۸٬۳۵۱
ویرایش
ویکی پاسخ:نکات ویرایشی: تفاوت میان نسخهها
←ماکرو
Nazarzadeh (بحث | مشارکتها) (←ماکرو) |
Nazarzadeh (بحث | مشارکتها) (←ماکرو) |
||
| خط ۲۸۴: | خط ۲۸۴: | ||
End With | End With | ||
Selection.Find.Execute Replace:=wdReplaceAll | Selection.Find.Execute Replace:=wdReplaceAll | ||
Selection.HomeKey Unit:=wdLine | |||
Selection.MoveRight Unit:=wdCharacter, Count:=2, Extend:=wdExtend | |||
Selection.Find.ClearFormatting | |||
Selection.Find.Replacement.ClearFormatting | |||
With Selection.Find | |||
.Text = " (" & ChrW(1593) & ChrW(1580) & ")" | |||
.Replacement.Text = "(" & ChrW(1593) & ChrW(1580) & ")" | |||
.Forward = True | |||
.Wrap = wdFindContinue | |||
.Format = False | |||
.MatchCase = False | |||
.MatchWholeWord = False | |||
.MatchKashida = False | |||
.MatchDiacritics = False | |||
.MatchAlefHamza = False | |||
.MatchControl = False | |||
.MatchWildcards = False | |||
.MatchSoundsLike = False | |||
.MatchAllWordForms = False | |||
End With | |||
Selection.Find.ClearFormatting | |||
Selection.Find.Replacement.ClearFormatting | |||
With Selection.Find | |||
.Text = " (" & ChrW(1593) & ChrW(1580) & ")" | |||
.Replacement.Text = "(" & ChrW(1593) & ChrW(1580) & ")" | |||
.Forward = True | |||
.Wrap = wdFindContinue | |||
.Format = False | |||
.MatchCase = False | |||
.MatchWholeWord = False | |||
.MatchKashida = False | |||
.MatchDiacritics = False | |||
.MatchAlefHamza = False | |||
.MatchControl = False | |||
.MatchWildcards = False | |||
.MatchSoundsLike = False | |||
.MatchAllWordForms = False | |||
End With | |||
Selection.Find.ClearFormatting | |||
Selection.Find.Replacement.ClearFormatting | |||
With Selection.Find | |||
.Text = "S}" | |||
.Replacement.Text = "{{" & ChrW(1587) & ChrW(1608) & ChrW(1575) & _ | |||
ChrW(1604) & "}}" | |||
.Forward = True | |||
.Wrap = wdFindContinue | |||
.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) | |||
Selection.EndKey Unit:=wdLine | |||
Selection.MoveLeft Unit:=wdCharacter, Count:=2, Extend:=wdExtend | |||
Selection.Find.ClearFormatting | |||
Selection.Find.Replacement.ClearFormatting | |||
With Selection.Find | |||
.Text = "{S" | |||
.Replacement.Text = "^p{{" & ChrW(1662) & ChrW(1575) & ChrW(1740) & _ | |||
ChrW(1575) & ChrW(1606) & " " & ChrW(1587) & ChrW(1608) & ChrW(1575) _ | |||
& ChrW(1604) & "}}" | |||
.Forward = True | |||
.Wrap = wdFindContinue | |||
.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 (1033) | |||
Selection.HomeKey Unit:=wdLine | |||
Selection.MoveRight Unit:=wdCharacter, Count:=2, Extend:=wdExtend | |||
Selection.Find.ClearFormatting | |||
Selection.Find.Replacement.ClearFormatting | |||
With Selection.Find | |||
.Text = "J}" | |||
.Replacement.Text = "{{" & ChrW(1662) & ChrW(1575) & ChrW(1587) & _ | |||
ChrW(1582) & "}}^p" | |||
.Forward = True | |||
.Wrap = wdFindContinue | |||
.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 | |||
Selection.HomeKey Unit:=wdLine | |||
Selection.MoveRight Unit:=wdCharacter, Count:=2, Extend:=wdExtend | |||
Selection.Find.ClearFormatting | |||
Selection.Find.Replacement.ClearFormatting | |||
With Selection.Find | |||
.Text = "T}" | |||
.Replacement.Text = "^p==" | |||
.Forward = True | |||
.Wrap = wdFindContinue | |||
.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 | |||
Selection.EndKey Unit:=wdLine | |||
Selection.MoveLeft Unit:=wdCharacter, Count:=2, Extend:=wdExtend | |||
Selection.Find.ClearFormatting | |||
Selection.Find.Replacement.ClearFormatting | |||
With Selection.Find | |||
.Text = "{T" | |||
.Replacement.Text = "==^p" | |||
.Forward = True | |||
.Wrap = wdFindContinue | |||
.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 | |||
Selection.MoveDown Unit:=wdScreen, Count:=10 | |||
Selection.MoveUp Unit:=wdLine, Count:=1 | |||
Selection.HomeKey Unit:=wdLine | |||
Selection.MoveRight Unit:=wdCharacter, Count:=2, Extend:=wdExtend | |||
Selection.Copy | |||
Selection.Find.ClearFormatting | |||
Selection.Find.Replacement.ClearFormatting | |||
With Selection.Find | |||
.Text = "M}" | |||
.Replacement.Text = "{{" & ChrW(1605) & ChrW(1591) & ChrW(1575) & _ | |||
ChrW(1604) & ChrW(1593) & ChrW(1607) & " " & ChrW(1576) & ChrW(1740) _ | |||
& ChrW(1588) & ChrW(1578) & ChrW(1585) & "}}^p" | |||
.Forward = True | |||
.Wrap = wdFindContinue | |||
.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) | |||
Selection.Find.ClearFormatting | |||
Selection.Find.Replacement.ClearFormatting | |||
With Selection.Find | |||
.Text = "M}" | |||
.Replacement.Text = "{{" & ChrW(1605) & ChrW(1591) & ChrW(1575) & _ | |||
ChrW(1604) & ChrW(1593) & ChrW(1607) & " " & ChrW(1576) & ChrW(1740) _ | |||
& ChrW(1588) & ChrW(1578) & ChrW(1585) & "}}^p" | |||
.Forward = True | |||
.Wrap = wdFindContinue | |||
.Format = False | |||
.MatchCase = False | |||
.MatchWholeWord = False | |||
.MatchKashida = False | |||
.MatchDiacritics = False | |||
.MatchAlefHamza = False | |||
.MatchControl = False | |||
.MatchWildcards = False | |||
.MatchSoundsLike = False | |||
.MatchAllWordForms = False | |||
End With | |||
Selection.EndKey Unit:=wdLine | |||
Selection.MoveLeft Unit:=wdCharacter, Count:=2, Extend:=wdExtend | |||
Selection.Copy | |||
Selection.Find.ClearFormatting | |||
Selection.Find.Replacement.ClearFormatting | |||
With Selection.Find | |||
.Text = "{M" | |||
.Replacement.Text = "^p{{" & ChrW(1662) & ChrW(1575) & ChrW(1740) & _ | |||
ChrW(1575) & ChrW(1606) & " " & ChrW(1605) & ChrW(1591) & ChrW(1575) _ | |||
& ChrW(1604) & ChrW(1593) & ChrW(1607) & " " & ChrW(1576) & ChrW( _ | |||
1740) & ChrW(1588) & ChrW(1578) & ChrW(1585) & "}}" | |||
.Forward = True | |||
.Wrap = wdFindContinue | |||
.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 | |||
Selection.Find.ClearFormatting | |||
Selection.Find.Replacement.ClearFormatting | |||
With Selection.Find | |||
.Text = "{M" | |||
.Replacement.Text = "^p{{" & ChrW(1662) & ChrW(1575) & ChrW(1740) & _ | |||
ChrW(1575) & ChrW(1606) & " " & ChrW(1605) & ChrW(1591) & ChrW(1575) _ | |||
& ChrW(1604) & ChrW(1593) & ChrW(1607) & " " & ChrW(1576) & ChrW( _ | |||
1740) & ChrW(1588) & ChrW(1578) & ChrW(1585) & "}}" | |||
.Forward = True | |||
.Wrap = wdFindContinue | |||
.Format = False | |||
.MatchCase = False | |||
.MatchWholeWord = False | |||
.MatchKashida = False | |||
.MatchDiacritics = False | |||
.MatchAlefHamza = False | |||
.MatchControl = False | |||
.MatchWildcards = False | |||
.MatchSoundsLike = False | |||
.MatchAllWordForms = False | |||
End With | |||
' | ' | ||
| خط ۴۳۲: | خط ۶۷۶: | ||
.Replacement.Text = " (" & ChrW(1593) & ")" | .Replacement.Text = " (" & ChrW(1593) & ")" | ||
.Forward = True | .Forward = True | ||
.Wrap = | .Wrap = wdFindContinue | ||
.Format = False | .Format = False | ||
.MatchCase = False | .MatchCase = False | ||
| خط ۴۵۷: | خط ۷۰۱: | ||
.Replacement.Text = " (" & ChrW(1593) & ")" | .Replacement.Text = " (" & ChrW(1593) & ")" | ||
.Forward = True | .Forward = True | ||
.Wrap = | .Wrap = wdFindContinue | ||
.Format = False | .Format = False | ||
.MatchCase = False | .MatchCase = False | ||
| خط ۴۸۱: | خط ۷۲۵: | ||
.Replacement.Text = " (" & ChrW(1593) & ")" | .Replacement.Text = " (" & ChrW(1593) & ")" | ||
.Forward = True | .Forward = True | ||
.Wrap = | .Wrap = wdFindContinue | ||
.Format = False | .Format = False | ||
.MatchCase = False | .MatchCase = False | ||
| خط ۵۰۶: | خط ۷۵۰: | ||
.Replacement.Text = " (" & ChrW(1589) & ")" | .Replacement.Text = " (" & ChrW(1589) & ")" | ||
.Forward = True | .Forward = True | ||
.Wrap = | .Wrap = wdFindContinue | ||
.Format = False | .Format = False | ||
.MatchCase = False | .MatchCase = False | ||
| خط ۷۲۴: | خط ۹۶۸: | ||
.Replacement.Text = "(" & ChrW(1593) & ")" | .Replacement.Text = "(" & ChrW(1593) & ")" | ||
.Forward = True | .Forward = True | ||
.Wrap = | .Wrap = wdFindContinue | ||
.Format = False | .Format = False | ||
.MatchCase = False | .MatchCase = False | ||
| خط ۷۴۳: | خط ۹۸۷: | ||
.Replacement.Text = "(" & ChrW(1593) & ")" | .Replacement.Text = "(" & ChrW(1593) & ")" | ||
.Forward = True | .Forward = True | ||
.Wrap = | .Wrap = wdFindContinue | ||
.Format = False | .Format = False | ||
.MatchCase = False | .MatchCase = False | ||
| خط ۷۶۲: | خط ۱٬۰۰۶: | ||
.Replacement.Text = "(" & ChrW(1593) & ")" | .Replacement.Text = "(" & ChrW(1593) & ")" | ||
.Forward = True | .Forward = True | ||
.Wrap = | .Wrap = wdFindContinue | ||
.Format = False | .Format = False | ||
.MatchCase = False | .MatchCase = False | ||
| خط ۷۸۲: | خط ۱٬۰۲۶: | ||
.Replacement.Text = "(" & ChrW(1589) & ")" | .Replacement.Text = "(" & ChrW(1589) & ")" | ||
.Forward = True | .Forward = True | ||
.Wrap = | .Wrap = wdFindContinue | ||
.Format = False | .Format = False | ||
.MatchCase = False | .MatchCase = False | ||
| خط ۸۰۳: | خط ۱٬۰۴۷: | ||
.Replacement.Text = "(" & ChrW(1593) & ")" | .Replacement.Text = "(" & ChrW(1593) & ")" | ||
.Forward = True | .Forward = True | ||
.Wrap = | .Wrap = wdFindContinue | ||
.Format = False | .Format = False | ||
.MatchCase = False | .MatchCase = False | ||
| خط ۸۲۲: | خط ۱٬۰۶۶: | ||
.Replacement.Text = "(" & ChrW(1593) & ")" | .Replacement.Text = "(" & ChrW(1593) & ")" | ||
.Forward = True | .Forward = True | ||
.Wrap = | .Wrap = wdFindContinue | ||
.Format = False | .Format = False | ||
.MatchCase = False | .MatchCase = False | ||
| خط ۸۴۲: | خط ۱٬۰۸۶: | ||
.Replacement.Text = "(" & ChrW(1589) & ")" | .Replacement.Text = "(" & ChrW(1589) & ")" | ||
.Forward = True | .Forward = True | ||
.Wrap = | .Wrap = wdFindContinue | ||
.Format = False | .Format = False | ||
.MatchCase = False | .MatchCase = False | ||
| خط ۸۶۲: | خط ۱٬۱۰۶: | ||
.Replacement.Text = "(" & ChrW(1589) & ")" | .Replacement.Text = "(" & ChrW(1589) & ")" | ||
.Forward = True | .Forward = True | ||
.Wrap = | .Wrap = wdFindContinue | ||
.Format = False | .Format = False | ||
.MatchCase = False | .MatchCase = False | ||
| خط ۱٬۰۶۴: | خط ۱٬۳۰۸: | ||
.Replacement.Text = "<ref>" | .Replacement.Text = "<ref>" | ||
.Forward = True | .Forward = True | ||
.Wrap = | .Wrap = wdFindContinue | ||
.Format = False | .Format = False | ||
.MatchCase = False | .MatchCase = False | ||
| خط ۱٬۰۸۳: | خط ۱٬۳۲۷: | ||
.Replacement.Text = "<ref>" | .Replacement.Text = "<ref>" | ||
.Forward = True | .Forward = True | ||
.Wrap = | .Wrap = wdFindContinue | ||
.Format = False | .Format = False | ||
.MatchCase = False | .MatchCase = False | ||
| خط ۱٬۱۰۰: | خط ۱٬۳۴۴: | ||
.Replacement.Text = "<ref>" | .Replacement.Text = "<ref>" | ||
.Forward = True | .Forward = True | ||
.Wrap = | .Wrap = wdFindContinue | ||
.Format = False | .Format = False | ||
.MatchCase = False | .MatchCase = False | ||
| خط ۱٬۱۲۲: | خط ۱٬۳۶۶: | ||
.Replacement.Text = "</ref>" | .Replacement.Text = "</ref>" | ||
.Forward = True | .Forward = True | ||
.Wrap = | .Wrap = wdFindContinue | ||
.Format = False | .Format = False | ||
.MatchCase = False | .MatchCase = False | ||
| خط ۱٬۱۴۰: | خط ۱٬۳۸۴: | ||
.Replacement.Text = "</ref>" | .Replacement.Text = "</ref>" | ||
.Forward = True | .Forward = True | ||
.Wrap = | .Wrap = wdFindContinue | ||
.Format = False | .Format = False | ||
.MatchCase = False | .MatchCase = False | ||
| خط ۱٬۲۵۲: | خط ۱٬۴۹۶: | ||
.Replacement.Text = "}}^p{{" | .Replacement.Text = "}}^p{{" | ||
.Forward = True | .Forward = True | ||
.Wrap = | .Wrap = wdFindContinue | ||
.Format = False | .Format = False | ||
.MatchCase = False | .MatchCase = False | ||
| خط ۱٬۲۷۸: | خط ۱٬۵۲۲: | ||
.Replacement.Text = " " & ChrW(1589) | .Replacement.Text = " " & ChrW(1589) | ||
.Forward = True | .Forward = True | ||
.Wrap = | .Wrap = wdFindContinue | ||
.Format = False | .Format = False | ||
.MatchCase = False | .MatchCase = False | ||
| خط ۱٬۲۹۵: | خط ۱٬۵۳۹: | ||
.Replacement.Text = " " & ChrW(1580) | .Replacement.Text = " " & ChrW(1580) | ||
.Forward = True | .Forward = True | ||
.Wrap = | .Wrap = wdFindContinue | ||
.Format = False | .Format = False | ||
.MatchCase = False | .MatchCase = False | ||
| خط ۱٬۳۲۶: | خط ۱٬۵۷۰: | ||
1588) & ChrW(1578) & ChrW(1585) | 1588) & ChrW(1578) & ChrW(1585) | ||
.Forward = True | .Forward = True | ||
.Wrap = | .Wrap = wdFindContinue | ||
.Format = False | .Format = False | ||
.MatchCase = False | .MatchCase = False | ||
| خط ۱٬۳۵۱: | خط ۱٬۵۹۵: | ||
.Replacement.Text = "(" & ChrW(1589) & ")" | .Replacement.Text = "(" & ChrW(1589) & ")" | ||
.Forward = True | .Forward = True | ||
.Wrap = | .Wrap = wdFindContinue | ||
.Format = False | .Format = False | ||
.MatchCase = False | .MatchCase = False | ||
| خط ۱٬۳۶۸: | خط ۱٬۶۱۲: | ||
.Replacement.Text = "(" & ChrW(1593) & ")" | .Replacement.Text = "(" & ChrW(1593) & ")" | ||
.Forward = True | .Forward = True | ||
.Wrap = | .Wrap = wdFindContinue | ||
.Format = False | .Format = False | ||
.MatchCase = False | .MatchCase = False | ||
| خط ۱٬۳۸۵: | خط ۱٬۶۲۹: | ||
.Replacement.Text = "(" & ChrW(1587) & ")" | .Replacement.Text = "(" & ChrW(1587) & ")" | ||
.Forward = True | .Forward = True | ||
.Wrap = | .Wrap = wdFindContinue | ||
.Format = False | .Format = False | ||
.MatchCase = False | .MatchCase = False | ||
| خط ۱٬۴۰۲: | خط ۱٬۶۴۶: | ||
.Replacement.Text = "(" & ChrW(1593) & ChrW(1580) & ")" | .Replacement.Text = "(" & ChrW(1593) & ChrW(1580) & ")" | ||
.Forward = True | .Forward = True | ||
.Wrap = | .Wrap = wdFindContinue | ||
.Format = False | .Format = False | ||
.MatchCase = False | .MatchCase = False | ||