۸٬۳۵۱
ویرایش
بدون خلاصۀ ویرایش |
Nazarzadeh (بحث | مشارکتها) (←ماکرو) |
||
خط ۱٬۰۷۷: | خط ۱٬۰۷۷: | ||
End With | End With | ||
Selection.Find.Execute Replace:=wdReplaceAll | Selection.Find.Execute Replace:=wdReplaceAll | ||
Selection.Find.ClearFormatting | |||
Selection.Find.Replacement.ClearFormatting | |||
With Selection.Find | |||
.Text = "<ref>-" | |||
.Replacement.Text = "<ref>" | |||
.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 | With Selection.Find | ||
.Text = "<ref> " | .Text = "<ref> " |