۷٬۰۶۳
ویرایش
ویکی پاسخ:نکات ویرایشی: تفاوت میان نسخهها
←ماکرو
Nazarzadeh (بحث | مشارکتها) بدون خلاصۀ ویرایش |
Nazarzadeh (بحث | مشارکتها) (←ماکرو) |
||
| خط ۱٬۳۰۷: | خط ۱٬۳۰۷: | ||
& ChrW(1593) & ChrW(1607) & " " & ChrW(1576) & ChrW(1610) & ChrW( _ | & ChrW(1593) & ChrW(1607) & " " & ChrW(1576) & ChrW(1610) & ChrW( _ | ||
1588) & ChrW(1578) & ChrW(1585) | 1588) & ChrW(1578) & ChrW(1585) | ||
.Forward = True | |||
.Wrap = wdFindAsk | |||
.Format = False | |||
.MatchCase = False | |||
.MatchWholeWord = False | |||
.MatchKashida = False | |||
.MatchDiacritics = False | |||
.MatchAlefHamza = False | |||
.MatchControl = False | |||
.MatchWildcards = False | |||
.MatchSoundsLike = False | |||
.MatchAllWordForms = False | |||
End With | |||
Selection.Find.Execute Replace:=wdReplaceAll | |||
Application.Keyboard (1065) | |||
' | |||
' (s) (a) (aj) | |||
' | |||
' | |||
Selection.Find.ClearFormatting | |||
Selection.Find.Replacement.ClearFormatting | |||
With Selection.Find | |||
.Text = " (" & ChrW(1589) & ")" | |||
.Replacement.Text = "(" & ChrW(1589) & ")" | |||
.Forward = True | |||
.Wrap = wdFindAsk | |||
.Format = False | |||
.MatchCase = False | |||
.MatchWholeWord = False | |||
.MatchKashida = False | |||
.MatchDiacritics = False | |||
.MatchAlefHamza = False | |||
.MatchControl = False | |||
.MatchWildcards = False | |||
.MatchSoundsLike = False | |||
.MatchAllWordForms = False | |||
End With | |||
Selection.Find.Execute Replace:=wdReplaceAll | |||
With Selection.Find | |||
.Text = " (" & ChrW(1593) & ")" | |||
.Replacement.Text = "(" & ChrW(1593) & ")" | |||
.Forward = True | |||
.Wrap = wdFindAsk | |||
.Format = False | |||
.MatchCase = False | |||
.MatchWholeWord = False | |||
.MatchKashida = False | |||
.MatchDiacritics = False | |||
.MatchAlefHamza = False | |||
.MatchControl = False | |||
.MatchWildcards = False | |||
.MatchSoundsLike = False | |||
.MatchAllWordForms = False | |||
End With | |||
Selection.Find.Execute Replace:=wdReplaceAll | |||
With Selection.Find | |||
.Text = " (" & ChrW(1587) & ")" | |||
.Replacement.Text = "(" & ChrW(1587) & ")" | |||
.Forward = True | |||
.Wrap = wdFindAsk | |||
.Format = False | |||
.MatchCase = False | |||
.MatchWholeWord = False | |||
.MatchKashida = False | |||
.MatchDiacritics = False | |||
.MatchAlefHamza = False | |||
.MatchControl = False | |||
.MatchWildcards = False | |||
.MatchSoundsLike = False | |||
.MatchAllWordForms = False | |||
End With | |||
Selection.Find.Execute Replace:=wdReplaceAll | |||
With Selection.Find | |||
.Text = " (" & ChrW(1593) & ChrW(1580) & ")" | |||
.Replacement.Text = "(" & ChrW(1593) & ChrW(1580) & ")" | |||
.Forward = True | .Forward = True | ||
.Wrap = wdFindAsk | .Wrap = wdFindAsk | ||