۷٬۰۶۳
ویرایش
ویکی پاسخ:نکات ویرایشی: تفاوت میان نسخهها
←ماکرو
Nazarzadeh (بحث | مشارکتها) بدون خلاصۀ ویرایش |
Nazarzadeh (بحث | مشارکتها) (←ماکرو) |
||
| خط ۷۱۳: | خط ۷۱۳: | ||
.MatchSoundsLike = False | .MatchSoundsLike = False | ||
.MatchAllWordForms = False | .MatchAllWordForms = False | ||
End With | |||
Selection.Find.Execute Replace:=wdReplaceAll | |||
Selection.Find.ClearFormatting | |||
Selection.Find.Replacement.ClearFormatting | |||
With Selection.Find | |||
.Text = "-" & ChrW(1593) & ChrW(1604) & ChrW(1740) & ChrW(1607) & _ | |||
ChrW(1605) & " " & ChrW(1575) & ChrW(1604) & ChrW(1587) & ChrW(1604) _ | |||
& ChrW(1575) & ChrW(1605) & "-" | |||
.Replacement.Text = "(" & ChrW(1593) & ")" | |||
.Forward = True | |||
.Wrap = wdFindAsk | |||
.Format = False | |||
.MatchCase = False | |||
.MatchWholeWord = False | |||
.MatchKashida = False | |||
.MatchDiacritics = False | |||
.MatchAlefHamza = False | |||
.MatchControl = False | |||
.MatchAllWordForms = False | |||
.MatchSoundsLike = False | |||
.MatchWildcards = True | |||
End With | |||
Selection.Find.Execute Replace:=wdReplaceAll | |||
With Selection.Find | |||
.Text = "(" & ChrW(1593) & ChrW(1604) & ChrW(1740) & ChrW(1607) & " " _ | |||
& ChrW(1575) & ChrW(1604) & ChrW(1587) & ChrW(1604) & ChrW(1575) & _ | |||
ChrW(1605) & ")" | |||
.Replacement.Text = "(" & ChrW(1593) & ")" | |||
.Forward = True | |||
.Wrap = wdFindAsk | |||
.Format = False | |||
.MatchCase = False | |||
.MatchWholeWord = False | |||
.MatchKashida = False | |||
.MatchDiacritics = False | |||
.MatchAlefHamza = False | |||
.MatchControl = False | |||
.MatchAllWordForms = False | |||
.MatchSoundsLike = False | |||
.MatchWildcards = True | |||
End With | |||
Selection.Find.Execute Replace:=wdReplaceAll | |||
With Selection.Find | |||
.Text = ChrW(1593) & ChrW(1604) & ChrW(1740) & ChrW(1607) & ChrW(1605 _ | |||
) & " " & ChrW(1575) & ChrW(1604) & ChrW(1587) & ChrW(1604) & ChrW( _ | |||
1575) & ChrW(1605) | |||
.Replacement.Text = "(" & ChrW(1593) & ")" | |||
.Forward = True | |||
.Wrap = wdFindAsk | |||
.Format = False | |||
.MatchCase = False | |||
.MatchWholeWord = False | |||
.MatchKashida = False | |||
.MatchDiacritics = False | |||
.MatchAlefHamza = False | |||
.MatchControl = False | |||
.MatchAllWordForms = False | |||
.MatchSoundsLike = False | |||
.MatchWildcards = True | |||
End With | |||
Selection.Find.Execute Replace:=wdReplaceAll | |||
With Selection.Find | |||
.Text = "(" & ChrW(1589) & ChrW(1604) & ChrW(1740) & " " & ChrW(1575) _ | |||
& ChrW(1604) & ChrW(1604) & ChrW(1607) & " " & ChrW(1593) & ChrW( _ | |||
1604) & ChrW(1740) & ChrW(1607) & " " & ChrW(1608) & ChrW(1570) & _ | |||
ChrW(1604) & ChrW(1607) & ")" | |||
.Replacement.Text = "(" & ChrW(1589) & ")" | |||
.Forward = True | |||
.Wrap = wdFindAsk | |||
.Format = False | |||
.MatchCase = False | |||
.MatchWholeWord = False | |||
.MatchKashida = False | |||
.MatchDiacritics = False | |||
.MatchAlefHamza = False | |||
.MatchControl = False | |||
.MatchAllWordForms = False | |||
.MatchSoundsLike = False | |||
.MatchWildcards = True | |||
End With | End With | ||
Selection.Find.Execute Replace:=wdReplaceAll | Selection.Find.Execute Replace:=wdReplaceAll | ||