ویکی پاسخ

ویکی پاسخ:نکات ویرایشی: تفاوت میان نسخه‌ها

صفحهٔ پروژه بحث

ویکی پاسخ:نکات ویرایشی (نمایش مبدأ)

نسخهٔ ‏۳ دسامبر ۲۰۲۰، ساعت ۱۶:۱۹

۹٬۹۱۵ بایت اضافه‌شده ،  ‏۳ دسامبر ۲۰۲۰
←‏ماکرو
(ابرابزار)
خط ۱۱۵: خط ۱۱۵:
With ActiveDocument
With ActiveDocument
   For i = .Footnotes.Count To 1 Step -1
   For i = .Footnotes.Count To 1 Step -1
  With .Footnotes(i)
    With .Footnotes(i)
  Set RngNt = .Range
      Set RngNt = .Range
  With RngNt
      With RngNt
  '.End = .End - 1
        '.End = .End - 1
  '.Start = .Start + 2
        '.Start = .Start + 2
  End With
      End With
  Set RngTxt = .Reference
      Set RngTxt = .Reference
  With RngTxt
      With RngTxt
  .InsertAfter "<ref>"
        .InsertAfter "<ref>"
  .Collapse wdCollapseEnd
        .Collapse wdCollapseEnd
  .InsertAfter "</ref>"
        .InsertAfter "</ref>"
  .Collapse wdCollapseStart
        .Collapse wdCollapseStart
  .FormattedText = RngNt.FormattedText
        .FormattedText = RngNt.FormattedText
  End With
      End With
  .Delete
      .Delete
  End With
    End With
   Next
   Next
End With
End With
خط ۱۳۶: خط ۱۳۶:


'
'
' fasiliyi paragrafha
' fasiliyi paragrafha
'
'
With Selection.Find
With Selection.Find
  .Text = "^p"
        .Text = "^p"
  .Replacement.Text = "^p^p"
        .Replacement.Text = "^p^p"
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchWildcards = False
        .MatchWildcards = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  End With
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll


With Selection.Find
With Selection.Find
  .Text = " "
        .Text = " "
  .Replacement.Text = " "
        .Replacement.Text = " "
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchWildcards = False
        .MatchWildcards = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  End With
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
 
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p "
        .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.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
  With Selection.Find
  .Text = "^p "
  .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.Find.ClearFormatting
    Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
  With Selection.Find
    With Selection.Find
  .Text = "{Q"
        .Text = "{Q"
  .Replacement.Text = "{{" & ChrW(1602) & ChrW(1585) & ChrW(1570) & _
        .Replacement.Text = "{{" & ChrW(1602) & ChrW(1585) & ChrW(1570) & _
  ChrW(1606) & "|"
            ChrW(1606) & "|"
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchWildcards = False
        .MatchWildcards = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  End With
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
    With Selection.Find
  .Text = "Q}"
        .Text = "Q}"
  .Replacement.Text = "}}"
        .Replacement.Text = "}}"
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchWildcards = False
        .MatchWildcards = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  End With
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
   


  Selection.Find.ClearFormatting
    Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
  With Selection.Find
    With Selection.Find
  .Text = "{S"
        .Text = "{S"
  .Replacement.Text = "^p{{" & ChrW(1587) & ChrW(1608) & ChrW(1575) & _
        .Replacement.Text = "^p{{" & ChrW(1587) & ChrW(1608) & ChrW(1575) & _
  ChrW(1604) & "}}^p"
            ChrW(1604) & "}}^p"
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchWildcards = False
        .MatchWildcards = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  End With
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
    With Selection.Find
  .Text = "S}"
        .Text = "S}"
  .Replacement.Text = "^p{{" & ChrW(1662) & ChrW(1575) & ChrW(1740) & _
        .Replacement.Text = "^p{{" & ChrW(1662) & ChrW(1575) & ChrW(1740) & _
  ChrW(1575) & ChrW(1606) & " " & ChrW(1587) & ChrW(1608) & ChrW(1575) _
            ChrW(1575) & ChrW(1606) & " " & ChrW(1587) & ChrW(1608) & ChrW(1575) _
  & ChrW(1604) & "}}^p"
            & ChrW(1604) & "}}^p"
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchWildcards = False
        .MatchWildcards = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  End With
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
   
    With Selection.Find
        .Text = "{J"
        .Replacement.Text = "^p{{" & 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
   
    With Selection.Find
        .Text = "J}"
        .Replacement.Text = "^p{{" & ChrW(1662) & ChrW(1575) & ChrW(1740) & _
            ChrW(1575) & ChrW(1606) & " " & 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
   
    With Selection.Find
        .Text = "{M"
        .Replacement.Text = "^p{{" & 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
   
    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) & "}}^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
   
    With Selection.Find
        .Text = "{T"
        .Replacement.Text = "=="
        .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
   
    With Selection.Find
        .Text = "T}"
        .Replacement.Text = "=="
        .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


  With Selection.Find
    Selection.HomeKey Unit:=wdLine
  .Text = "{J"
    Selection.MoveRight Unit:=wdCharacter, Count:=2, Extend:=wdExtend
  .Replacement.Text = "^p{{" & ChrW(1662) & ChrW(1575) & ChrW(1587) & _
    Selection.Find.ClearFormatting
  ChrW(1582) & "}}^p"
    Selection.Find.Replacement.ClearFormatting
  .Forward = True
    With Selection.Find
  .Wrap = wdFindContinue
        .Text = " (" & ChrW(1593) & ChrW(1580) & ")"
  .Format = False
        .Replacement.Text = "(" & ChrW(1593) & ChrW(1580) & ")"
  .MatchCase = False
        .Forward = True
  .MatchWholeWord = False
        .Wrap = wdFindContinue
  .MatchKashida = False
        .Format = False
  .MatchDiacritics = False
        .MatchCase = False
  .MatchAlefHamza = False
        .MatchWholeWord = False
  .MatchControl = False
        .MatchKashida = False
  .MatchWildcards = False
        .MatchDiacritics = False
  .MatchSoundsLike = False
        .MatchAlefHamza = False
  .MatchAllWordForms = False
        .MatchControl = False
  End With
        .MatchWildcards = False
  Selection.Find.Execute Replace:=wdReplaceAll
        .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
   
    Selection.EndKey Unit:=wdLine
    Selection.MoveLeft Unit:=wdCharacter, Count:=2, Extend:=wdExtend


  With Selection.Find
    Selection.Find.ClearFormatting
  .Text = "J}"
    Selection.Find.Replacement.ClearFormatting
  .Replacement.Text = "^p{{" & ChrW(1662) & ChrW(1575) & ChrW(1740) & _
    With Selection.Find
  ChrW(1575) & ChrW(1606) & " " & ChrW(1662) & ChrW(1575) & ChrW(1587) _
        .Text = "{S"
  & ChrW(1582) & "}}^p"
        .Replacement.Text = "^p{{" & ChrW(1662) & ChrW(1575) & ChrW(1740) & _
  .Forward = True
            ChrW(1575) & ChrW(1606) & " " & ChrW(1587) & ChrW(1608) & ChrW(1575) _
  .Wrap = wdFindContinue
            & ChrW(1604) & "}}"
  .Format = False
        .Forward = True
  .MatchCase = False
        .Wrap = wdFindContinue
  .MatchWholeWord = False
        .Format = False
  .MatchKashida = False
        .MatchCase = False
  .MatchDiacritics = False
        .MatchWholeWord = False
  .MatchAlefHamza = False
        .MatchKashida = False
  .MatchControl = False
        .MatchDiacritics = False
  .MatchWildcards = False
        .MatchAlefHamza = False
  .MatchSoundsLike = False
        .MatchControl = False
  .MatchAllWordForms = False
        .MatchWildcards = False
  End With
        .MatchSoundsLike = False
  Selection.Find.Execute Replace:=wdReplaceAll
        .MatchAllWordForms = False
 
    End With
  With Selection.Find
    Selection.Find.Execute Replace:=wdReplaceAll
  .Text = "{M"
   
  .Replacement.Text = "^p{{" & ChrW(1605) & ChrW(1591) & ChrW(1575) & _
    Selection.HomeKey Unit:=wdLine
  ChrW(1604) & ChrW(1593) & ChrW(1607) & " " & ChrW(1576) & ChrW(1740) _
    Selection.MoveRight Unit:=wdCharacter, Count:=2, Extend:=wdExtend
  & ChrW(1588) & ChrW(1578) & ChrW(1585) & "}}^p"
   
  .Forward = True
    Selection.Find.ClearFormatting
  .Wrap = wdFindContinue
    Selection.Find.Replacement.ClearFormatting
  .Format = False
    With Selection.Find
  .MatchCase = False
        .Text = "J}"
  .MatchWholeWord = False
        .Replacement.Text = "{{" & ChrW(1662) & ChrW(1575) & ChrW(1587) & _
  .MatchKashida = False
            ChrW(1582) & "}}^p"
  .MatchDiacritics = False
        .Forward = True
  .MatchAlefHamza = False
        .Wrap = wdFindContinue
  .MatchControl = False
        .Format = False
  .MatchWildcards = False
        .MatchCase = False
  .MatchSoundsLike = False
        .MatchWholeWord = False
  .MatchAllWordForms = False
        .MatchKashida = False
  End With
        .MatchDiacritics = False
  Selection.Find.Execute Replace:=wdReplaceAll
        .MatchAlefHamza = False
 
        .MatchControl = False
  With Selection.Find
        .MatchWildcards = False
  .Text = "M}"
        .MatchSoundsLike = False
  .Replacement.Text = "^p{{" & ChrW(1662) & ChrW(1575) & ChrW(1740) & _
        .MatchAllWordForms = False
  ChrW(1575) & ChrW(1606) & " " & ChrW(1605) & ChrW(1591) & ChrW(1575) _
    End With
  & ChrW(1604) & ChrW(1593) & ChrW(1607) & " " & ChrW(1576) & ChrW(_
    Selection.Find.Execute Replace:=wdReplaceAll
  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
 
  With Selection.Find
  .Text = "{T"
  .Replacement.Text = "=="
  .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
 
  With Selection.Find
  .Text = "T}"
  .Replacement.Text = "=="
  .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 = " (" & 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
 
  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
 
  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:=۱۰
  Selection.MoveUp Unit:=wdLine, Count:=۱
  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
 
  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
 
  With Selection.Find
  .Text = " ==" & ChrW(1605) & ChrW(1606) & ChrW(1575) & ChrW(1576) & _
  ChrW(1593) & " " & ChrW(1580) & ChrW(1607) & ChrW(1578) & " " & ChrW _
  (1605) & ChrW(1591) & ChrW(1575) & ChrW(1604) & ChrW(1593) & ChrW(_
  1607) & " " & ChrW(1576) & ChrW(1610) & ChrW(1588) & ChrW(۱۵۷۸) & _
  ChrW(1585) & ":=="
  .Replacement.Text = " ==" & ChrW(1605) & ChrW(1591) & ChrW(1575) & _
  ChrW(1604) & ChrW(1593) & ChrW(1607) & " " & ChrW(1576) & ChrW(1610) _
  & ChrW(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


    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
   
    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
   
    With Selection.Find
        .Text = " ==" & ChrW(1605) & ChrW(1606) & ChrW(1575) & ChrW(1576) & _
            ChrW(1593) & " " & ChrW(1580) & ChrW(1607) & ChrW(1578) & " " & ChrW _
            (1605) & ChrW(1591) & ChrW(1575) & ChrW(1604) & ChrW(1593) & ChrW( _
            1607) & " " & ChrW(1576) & ChrW(1610) & ChrW(1588) & ChrW(1578) & _
            ChrW(1585) & ":=="
        .Replacement.Text = " ==" & ChrW(1605) & ChrW(1591) & ChrW(1575) & _
            ChrW(1604) & ChrW(1593) & ChrW(1607) & " " & ChrW(1576) & ChrW(1610) _
            & ChrW(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
'
' hazfe faseleye avvale khat
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p "
        .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
'
'
' ulguhayi awwal wa akhari matn
' ulguhayi awwal wa akhari matn
'
'
  Selection.HomeKey Unit:=wdStory
    Selection.HomeKey Unit:=wdStory
  Selection.TypeText Text:="{{" & ChrW(1588) & ChrW(1585) & ChrW(1608) & _
    Selection.TypeText Text:="{{" & ChrW(1588) & ChrW(1585) & ChrW(1608) & _
  ChrW(1593) & " " & ChrW(1605) & ChrW(1578) & ChrW(1606) & "}}"
        ChrW(1593) & " " & ChrW(1605) & ChrW(1578) & ChrW(1606) & "}}"
 
   
  Selection.EndKey Unit:=wdStory
    Selection.EndKey Unit:=wdStory
  Selection.TypeParagraph
    Selection.TypeParagraph
  Selection.TypeParagraph
    Selection.TypeParagraph
  Selection.TypeText Text:="==" & ChrW(1605) & ChrW(1606) & ChrW(1575) & _
    Selection.TypeText Text:="==" & ChrW(1605) & ChrW(1606) & ChrW(1575) & _
  ChrW(1576) & ChrW(1593) & "=="
        ChrW(1576) & ChrW(1593) & "=="
  Selection.TypeParagraph
    Selection.TypeParagraph
  Selection.TypeText Text:="{{پانویس}}"
    Selection.TypeText Text:="<references />"
  Selection.TypeParagraph
    Selection.TypeParagraph
  Selection.TypeText Text:="{{" & ChrW(1588) & ChrW(1575) & ChrW(1582) & _
    Selection.TypeText Text:="{{" & ChrW(1588) & ChrW(1575) & ChrW(1582) & _
  ChrW(1607)
        ChrW(1607)
  Selection.TypeParagraph
    Selection.TypeParagraph
  Selection.TypeText Text:=" | " & ChrW(1588) & ChrW(1575) & ChrW(1582) & _
    Selection.TypeText Text:=" | " & ChrW(1588) & ChrW(1575) & ChrW(1582) & _
  ChrW(1607) & " " & ChrW(1575) & ChrW(1589) & ChrW(1604) & ChrW(1740) & _
        ChrW(1607) & " " & ChrW(1575) & ChrW(1589) & ChrW(1604) & ChrW(1740) & _
  " = "
        " = "
  Selection.TypeParagraph
    Selection.TypeParagraph
  Selection.TypeText Text:="|" & ChrW(1588) & ChrW(1575) & ChrW(1582) & ChrW _
    Selection.TypeText Text:=" | " & ChrW(1588) & ChrW(1575) & ChrW(1582) & ChrW _
  (1607) & " " & ChrW(1601) & ChrW(1585) & ChrW(1593) & ChrW(1740) & ChrW(_
        (1607) & " " & ChrW(1601) & ChrW(1585) & ChrW(1593) & ChrW(1740) & ChrW( _
  ۱۷۷۷) & " = "
        1777) & " = "
  Selection.TypeParagraph
    Selection.TypeParagraph
  Selection.TypeText Text:="|" & ChrW(1588) & ChrW(1575) & ChrW(1582) & ChrW _
    Selection.TypeText Text:=" | " & ChrW(1588) & ChrW(1575) & ChrW(1582) & ChrW _
  (1607) & " " & ChrW(1601) & ChrW(1585) & ChrW(1593) & ChrW(1740) & ChrW(_
        (1607) & " " & ChrW(1601) & ChrW(1585) & ChrW(1593) & ChrW(1740) & ChrW( _
  ۱۷۷۸) & " = "
        1778) & " = "
  Selection.TypeParagraph
    Selection.TypeParagraph
  Selection.TypeText Text:="|" & ChrW(1588) & ChrW(1575) & ChrW(1582) & ChrW _
    Selection.TypeText Text:=" | " & ChrW(1588) & ChrW(1575) & ChrW(1582) & ChrW _
  (1607) & " " & ChrW(1601) & ChrW(1585) & ChrW(1593) & ChrW(1740) & ChrW(_
        (1607) & " " & ChrW(1601) & ChrW(1585) & ChrW(1593) & ChrW(1740) & ChrW( _
  ۱۷۷۹) & " = "
        1779) & " = "
  Selection.TypeParagraph
    Selection.TypeParagraph
  Selection.TypeText Text:="}}"
    Selection.TypeText Text:="}}"
  Selection.TypeParagraph
    Selection.TypeParagraph
 
       
  Selection.TypeParagraph
    Selection.TypeParagraph
  Selection.TypeText Text:="{{" & ChrW(1578) & ChrW(1705) & ChrW(1605) & _
        Selection.TypeText Text:="{{" & ChrW(1578) & ChrW(1705) & ChrW(1605) & _
  ChrW(1740) & ChrW(1604) & " " & ChrW(1605) & ChrW(1602) & ChrW(1575) & _
        ChrW(1740) & ChrW(1604) & " " & ChrW(1605) & ChrW(1602) & ChrW(1575) & _
  ChrW(1604) & ChrW(1607)
        ChrW(1604) & ChrW(1607)
  Selection.TypeParagraph
    Selection.TypeParagraph
  Selection.TypeText Text:=" | " & ChrW(1588) & ChrW(1606) & ChrW(1575) & _
    Selection.TypeText Text:=" | " & ChrW(1588) & ChrW(1606) & ChrW(1575) & _
  ChrW(1587) & ChrW(1607) & " = "
        ChrW(1587) & ChrW(1607) & " = "
  Selection.TypeParagraph
    Selection.TypeParagraph
  Selection.TypeText Text:=" | " & ChrW(1578) & ChrW(1740) & ChrW(1578) & _
    Selection.TypeText Text:=" | " & ChrW(1578) & ChrW(1740) & ChrW(1578) & _
  ChrW(1585) & ChrW(1607) & ChrW(1575) & " = "
        ChrW(1585) & ChrW(1607) & ChrW(1575) & " = "
  Selection.TypeParagraph
    Selection.TypeParagraph
  Selection.TypeText Text:=" | " & ChrW(1608) & ChrW(1740) & ChrW(1585) & ChrW _
    Selection.TypeText Text:=" | " & ChrW(1608) & ChrW(1740) & ChrW(1585) & ChrW _
  (1575) & ChrW(1740) & ChrW(۱۵۸۸) & " = "
        (1575) & ChrW(1740) & ChrW(1588) & " = "
  Selection.TypeParagraph
    Selection.TypeParagraph
  Selection.TypeText Text:=" | " & ChrW(1604) & ChrW(1740) & ChrW(1606) & _
    Selection.TypeText Text:=" | " & ChrW(1604) & ChrW(1740) & ChrW(1606) & _
  ChrW(1705) & ChrW(8204) & ChrW(1583) & ChrW(1607) & ChrW(1740) & " = "
        ChrW(1705) & ChrW(8204) & ChrW(1583) & ChrW(1607) & ChrW(1740) & " = "
  Selection.TypeParagraph
    Selection.TypeParagraph
  Selection.TypeText Text:=" | " & ChrW(1606) & ChrW(1575) & ChrW(1608) & _
    Selection.TypeText Text:=" | " & ChrW(1606) & ChrW(1575) & ChrW(1608) & _
  ChrW(1576) & ChrW(1585) & ChrW(1740) & " = "
        ChrW(1576) & ChrW(1585) & ChrW(1740) & " = "
  Selection.TypeParagraph
    Selection.TypeParagraph
  Selection.TypeText Text:=" | " & ChrW(1606) & ChrW(1605) & ChrW(1575) & ChrW _
    Selection.TypeText Text:=" | " & ChrW(1606) & ChrW(1605) & ChrW(1575) & ChrW _
  (1740) & ChrW(1607) & " = "
        (1740) & ChrW(1607) & " = "
  Selection.TypeParagraph
    Selection.TypeParagraph
  Selection.TypeText Text:=" | " & ChrW(1578) & ChrW(1594) & ChrW(1740) & _
    Selection.TypeText Text:=" | " & ChrW(1578) & ChrW(1594) & ChrW(1740) & _
  ChrW(1740) & ChrW(1585) & " " & ChrW(1605) & ChrW(1587) & ChrW(1740) & _
        ChrW(1740) & ChrW(1585) & " " & ChrW(1605) & ChrW(1587) & ChrW(1740) & _
  ChrW(1585) & " = "
        ChrW(1585) & " = "
  Selection.TypeParagraph
    Selection.TypeParagraph
  Selection.TypeText Text:=" | " & ChrW(1575) & ChrW(1585) & ChrW(1580) & _
    Selection.TypeText Text:=" | " & ChrW(1575) & ChrW(1585) & ChrW(1580) & _
  ChrW(1575) & ChrW(1593) & ChrW(1575) & ChrW(1578) & " = "
        ChrW(1575) & ChrW(1593) & ChrW(1575) & ChrW(1578) & " = "
  Selection.TypeParagraph
    Selection.TypeParagraph
  Selection.TypeText Text:=" | " & ChrW(1576) & ChrW(1575) & ChrW(1586) & _
    Selection.TypeText Text:=" | " & ChrW(1576) & ChrW(1575) & ChrW(1586) & _
  ChrW(1576) & ChrW(1740) & ChrW(1606) & ChrW(1740) & " = "
        ChrW(1576) & ChrW(1740) & ChrW(1606) & ChrW(1740) & " = "
  Selection.TypeParagraph
    Selection.TypeParagraph
  Selection.TypeText Text:=" | " & ChrW(1578) & ChrW(1705) & ChrW(1605) & ChrW _
    Selection.TypeText Text:=" | " & ChrW(1578) & ChrW(1705) & ChrW(1605) & ChrW _
  (1740) & ChrW(1604) & " = "
        (1740) & ChrW(1604) & " = "
  Selection.TypeParagraph
    Selection.TypeParagraph
  Selection.TypeText Text:=" | " & ChrW(1575) & ChrW(1608) & ChrW(1604) & _
    Selection.TypeText Text:=" | " & ChrW(1575) & ChrW(1608) & ChrW(1604) & _
  ChrW(1608) & ChrW(1740) & ChrW(1578) & " = "
        ChrW(1608) & ChrW(1740) & ChrW(1578) & " = "
  Selection.TypeParagraph
    Selection.TypeParagraph
  Selection.TypeText Text:=" | " & ChrW(1705) & ChrW(1740) & ChrW(1601) & _
    Selection.TypeText Text:=" | " & ChrW(1705) & ChrW(1740) & ChrW(1601) & _
  ChrW(1740) & ChrW(1578) & " = "
        ChrW(1740) & ChrW(1578) & " = "
  Selection.TypeParagraph
    Selection.TypeParagraph
  Selection.TypeText Text:="}}"
    Selection.TypeText Text:="}}"
 
   
  Selection.TypeParagraph
    Selection.TypeParagraph
  Selection.TypeText Text:="{{" & ChrW(1662) & ChrW(1575) & ChrW(1740) & _
    Selection.TypeText Text:="{{" & ChrW(1662) & ChrW(1575) & ChrW(1740) & _
  ChrW(1575) & ChrW(1606) & " " & ChrW(1605) & ChrW(1578) & ChrW(1606) & _
        ChrW(1575) & ChrW(1606) & " " & ChrW(1605) & ChrW(1578) & ChrW(1606) & _
  "}}"
        "}}"


'
'
خط ۷۵۳: خط ۷۷۶:
'
'
  Selection.HomeKey Unit:=wdStory
  Selection.HomeKey Unit:=wdStory
  With Selection.Find
    With Selection.Find
  .Text = "^p^p^p"
        .Text = "^p^p^p"
  .Replacement.Text = "^p^p"
        .Replacement.Text = "^p^p"
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchWildcards = False
        .MatchWildcards = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  End With
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll


'
'
' alayh al-salam wa mawaridi mushabih
' alayh al-salam wa mawaridi mushabih
'
'
'
'
  Selection.MoveRight Unit:=wdCharacter, Count:=2, Extend:=wdExtend
    Selection.MoveRight Unit:=wdCharacter, Count:=2, Extend:=wdExtend
  Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
    Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
  Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
  Selection.MoveRight Unit:=wdWord, Count:=2, Extend:=wdExtend
    Selection.MoveRight Unit:=wdWord, Count:=2, Extend:=wdExtend
  Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
  Selection.Copy
    Selection.Copy
  Selection.Find.ClearFormatting
    Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
  With Selection.Find
    With Selection.Find
  .Text = ChrW(8204) & " " & ChrW(1600) & " " & ChrW(1593) & ChrW(1604) _
        .Text = ChrW(8204) & " " & ChrW(1600) & " " & ChrW(1593) & ChrW(1604) _
  & ChrW(1610) & ChrW(1607) & " " & ChrW(1575) & ChrW(1604) & ChrW(_
            & ChrW(1610) & ChrW(1607) & " " & ChrW(1575) & ChrW(1604) & ChrW( _
  1587) & ChrW(1604) & ChrW(1575) & ChrW(1605) & " " & ChrW(1600)
            1587) & ChrW(1604) & ChrW(1575) & ChrW(1605) & " " & ChrW(1600)
  .Replacement.Text = " (" & ChrW(1593) & ")"
        .Replacement.Text = " (" & ChrW(1593) & ")"
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchWildcards = False
        .MatchWildcards = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  End With
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
 
   
  Selection.MoveRight Unit:=wdWord, Count:=4, Extend:=wdExtend
    Selection.MoveRight Unit:=wdWord, Count:=4, Extend:=wdExtend
  Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
  Selection.Copy
    Selection.Copy
  Selection.Find.ClearFormatting
    Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
  With Selection.Find
    With Selection.Find
  .Text = " " & ChrW(1600) & " " & ChrW(1593) & ChrW(1604) & ChrW(1610) _
        .Text = " " & ChrW(1600) & " " & ChrW(1593) & ChrW(1604) & ChrW(1610) _
  & ChrW(1607) & " " & ChrW(1575) & ChrW(1604) & ChrW(1587) & ChrW(_
            & ChrW(1607) & " " & ChrW(1575) & ChrW(1604) & ChrW(1587) & ChrW( _
  1604) & ChrW(1575) & ChrW(1605) & " " & ChrW(1600)
            1604) & ChrW(1575) & ChrW(1605) & " " & ChrW(1600)
  .Replacement.Text = " (" & ChrW(1593) & ")"
        .Replacement.Text = " (" & ChrW(1593) & ")"
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchWildcards = False
        .MatchWildcards = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  End With
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
  Selection.MoveRight Unit:=wdWord, Count:=4, Extend:=wdExtend
    Selection.MoveRight Unit:=wdWord, Count:=4, Extend:=wdExtend
  Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
  Selection.Copy
    Selection.Copy
  Selection.Find.ClearFormatting
    Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
  With Selection.Find
    With Selection.Find
  .Text = " " & ChrW(1600) & " " & ChrW(1593) & ChrW(1604) & ChrW(1610) _
        .Text = " " & ChrW(1600) & " " & ChrW(1593) & ChrW(1604) & ChrW(1610) _
  & ChrW(1607) & ChrW(1605) & " " & ChrW(1575) & ChrW(1604) & ChrW(_
            & ChrW(1607) & ChrW(1605) & " " & ChrW(1575) & ChrW(1604) & ChrW( _
  1587) & ChrW(1604) & ChrW(1575) & ChrW(1605) & " " & ChrW(1600)
            1587) & ChrW(1604) & ChrW(1575) & ChrW(1605) & " " & ChrW(1600)
  .Replacement.Text = " (" & ChrW(1593) & ")"
        .Replacement.Text = " (" & ChrW(1593) & ")"
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchWildcards = False
        .MatchWildcards = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  End With
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
  Selection.MoveRight Unit:=wdWord, Count:=8, Extend:=wdExtend
    Selection.MoveRight Unit:=wdWord, Count:=8, Extend:=wdExtend
  Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
  Selection.Copy
    Selection.Copy
  Selection.Find.ClearFormatting
    Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
  With Selection.Find
    With Selection.Find
  .Text = " " & ChrW(1600) & " " & ChrW(1589) & ChrW(1604) & ChrW(1610) _
        .Text = " " & ChrW(1600) & " " & ChrW(1589) & ChrW(1604) & ChrW(1610) _
  & " " & ChrW(1575) & ChrW(1604) & ChrW(1604) & ChrW(1607) & " " & _
            & " " & ChrW(1575) & ChrW(1604) & ChrW(1604) & ChrW(1607) & " " & _
  ChrW(1593) & ChrW(1604) & ChrW(1610) & ChrW(1607) & " " & ChrW(1608) _
            ChrW(1593) & ChrW(1604) & ChrW(1610) & ChrW(1607) & " " & ChrW(1608) _
  & " " & ChrW(1570) & ChrW(1604) & ChrW(1607) & " " & ChrW(1600)
            & " " & ChrW(1570) & ChrW(1604) & ChrW(1607) & " " & ChrW(1600)
  .Replacement.Text = " (" & ChrW(1589) & ")"
        .Replacement.Text = " (" & ChrW(1589) & ")"
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchWildcards = False
        .MatchWildcards = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  End With
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
  Selection.Find.ClearFormatting
        Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
  With Selection.Find
    With Selection.Find
  .Text = ChrW(1600) & " " & ChrW(1587) & ChrW(1604) & ChrW(1575) & _
        .Text = ChrW(1600) & " " & ChrW(1587) & ChrW(1604) & ChrW(1575) & _
  ChrW(1605) & " " & ChrW(1575) & ChrW(1604) & ChrW(1604) & ChrW(1607) _
            ChrW(1605) & " " & ChrW(1575) & ChrW(1604) & ChrW(1604) & ChrW(1607) _
  & " " & ChrW(1593) & ChrW(1604) & ChrW(1610) & ChrW(1607) & ChrW(_
            & " " & ChrW(1593) & ChrW(1604) & ChrW(1610) & ChrW(1607) & ChrW( _
  1575) & " " & ChrW(1600)
            1575) & " " & ChrW(1600)
  .Replacement.Text = "(" & ChrW(1587) & ")"
        .Replacement.Text = "(" & ChrW(1587) & ")"
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchWildcards = False
        .MatchWildcards = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  End With
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
    With Selection.Find
  .Text = ChrW(1600) & " " & ChrW(1593) & ChrW(1580) & ChrW(1604) & " " _
        .Text = ChrW(1600) & " " & ChrW(1593) & ChrW(1580) & ChrW(1604) & " " _
  & ChrW(1575) & ChrW(1604) & ChrW(1604) & ChrW(1607) & " " & ChrW(_
            & ChrW(1575) & ChrW(1604) & ChrW(1604) & ChrW(1607) & " " & ChrW( _
  1578) & ChrW(1593) & ChrW(1575) & ChrW(1604) & ChrW(1610) & " " & _
            1578) & ChrW(1593) & ChrW(1575) & ChrW(1604) & ChrW(1610) & " " & _
  ChrW(1601) & ChrW(1585) & ChrW(1580) & ChrW(1607) & " " & ChrW(1600)
            ChrW(1601) & ChrW(1585) & ChrW(1580) & ChrW(1607) & " " & ChrW(1600)
  .Replacement.Text = "(" & ChrW(1593) & ChrW(1580) & ")"
        .Replacement.Text = "(" & ChrW(1593) & ChrW(1580) & ")"
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchWildcards = False
        .MatchWildcards = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  End With
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
 
   
  Selection.Find.ClearFormatting
        Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
  With Selection.Find
    With Selection.Find
  .Text = ChrW(1600) & " " & ChrW(1593) & ChrW(1580) & ChrW(1604) & " " _
        .Text = ChrW(1600) & " " & ChrW(1593) & ChrW(1580) & ChrW(1604) & " " _
  & ChrW(1575) & ChrW(1604) & ChrW(1604) & ChrW(1607) & " " & ChrW(_
            & ChrW(1575) & ChrW(1604) & ChrW(1604) & ChrW(1607) & " " & ChrW( _
  1578) & ChrW(1593) & ChrW(1575) & ChrW(1604) & ChrW(1610) & " " & _
            1578) & ChrW(1593) & ChrW(1575) & ChrW(1604) & ChrW(1610) & " " & _
  ChrW(1601) & ChrW(1585) & ChrW(1580) & ChrW(1607) & " " & ChrW(1575) _
            ChrW(1601) & ChrW(1585) & ChrW(1580) & ChrW(1607) & " " & ChrW(1575) _
  & ChrW(1604) & ChrW(1588) & ChrW(1585) & ChrW(1610) & ChrW(1601) & _
            & ChrW(1604) & ChrW(1588) & ChrW(1585) & ChrW(1610) & ChrW(1601) & _
  " " & ChrW(1600)
            " " & ChrW(1600)
  .Replacement.Text = "(" & ChrW(1593) & ChrW(1580) & ")"
        .Replacement.Text = "(" & ChrW(1593) & ChrW(1580) & ")"
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchWildcards = False
        .MatchWildcards = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  End With
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
    With Selection.Find
  .Text = ChrW(1600) & " " & ChrW(1589) & ChrW(1604) & ChrW(1610) & " " _
        .Text = ChrW(1600) & " " & ChrW(1589) & ChrW(1604) & ChrW(1610) & " " _
  & ChrW(1575) & ChrW(1604) & ChrW(1604) & ChrW(1607) & " " & ChrW(_
            & ChrW(1575) & ChrW(1604) & ChrW(1604) & ChrW(1607) & " " & ChrW( _
  1593) & ChrW(1604) & ChrW(1610) & ChrW(1607) & " " & ChrW(1608) & _
            1593) & ChrW(1604) & ChrW(1610) & ChrW(1607) & " " & ChrW(1608) & _
  " " & ChrW(1570) & ChrW(1604) & ChrW(1607) & " " & ChrW(1608) & " " _
            " " & ChrW(1570) & ChrW(1604) & ChrW(1607) & " " & ChrW(1608) & " " _
  & ChrW(1587) & ChrW(1604) & ChrW(1605) & " " & ChrW(1600)
            & ChrW(1587) & ChrW(1604) & ChrW(1605) & " " & ChrW(1600)
  .Replacement.Text = "(" & ChrW(1589) & ")"
        .Replacement.Text = "(" & ChrW(1589) & ")"
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchWildcards = False
        .MatchWildcards = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  End With
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
    With Selection.Find
  .Text = ChrW(1600) & " " & ChrW(1589) & ChrW(1604) & ChrW(1610) & " " _
        .Text = ChrW(1600) & " " & ChrW(1589) & ChrW(1604) & ChrW(1610) & " " _
  & ChrW(1575) & ChrW(1604) & ChrW(1604) & ChrW(1607) & " " & ChrW(_
            & ChrW(1575) & ChrW(1604) & ChrW(1604) & ChrW(1607) & " " & ChrW( _
  1593) & ChrW(1604) & ChrW(1610) & ChrW(1607) & " " & ChrW(1608) & _
            1593) & ChrW(1604) & ChrW(1610) & ChrW(1607) & " " & ChrW(1608) & _
  " " & ChrW(1570) & ChrW(1604) & ChrW(1607) & " " & ChrW(1608) & " " _
            " " & ChrW(1570) & ChrW(1604) & ChrW(1607) & " " & ChrW(1608) & " " _
  & ChrW(1587) & ChrW(1604) & ChrW(1605) & " " & ChrW(1600)
            & ChrW(1587) & ChrW(1604) & ChrW(1605) & " " & ChrW(1600)
  .Replacement.Text = "(" & ChrW(1587) & ")"
        .Replacement.Text = "(" & ChrW(1587) & ")"
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchWildcards = False
        .MatchWildcards = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  End With
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
 
   
  Selection.Find.ClearFormatting
    Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
  With Selection.Find
    With Selection.Find
  .Text = ChrW(1600) & " " & ChrW(1589) & ChrW(1604) & ChrW(1610) & " " _
        .Text = ChrW(1600) & " " & ChrW(1589) & ChrW(1604) & ChrW(1610) & " " _
  & ChrW(1575) & ChrW(1604) & ChrW(1604) & ChrW(1607) & " " & ChrW(_
            & ChrW(1575) & ChrW(1604) & ChrW(1604) & ChrW(1607) & " " & ChrW( _
  1593) & ChrW(1604) & ChrW(1610) & ChrW(1607) & " " & ChrW(1608) & _
            1593) & ChrW(1604) & ChrW(1610) & ChrW(1607) & " " & ChrW(1608) & _
  " " & ChrW(1570) & ChrW(1604) & ChrW(1607) & " " & ChrW(1608) & " " _
            " " & ChrW(1570) & ChrW(1604) & ChrW(1607) & " " & ChrW(1608) & " " _
  & ChrW(1587) & ChrW(1604) & ChrW(1605) & " " & ChrW(1600)
            & ChrW(1587) & ChrW(1604) & ChrW(1605) & " " & ChrW(1600)
  .Replacement.Text = "(" & ChrW(1587) & ")"
        .Replacement.Text = "(" & ChrW(1587) & ")"
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchWildcards = False
        .MatchWildcards = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  End With
    End With
  Selection.Find.ClearFormatting
    Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
  With Selection.Find
    With Selection.Find
  .Text = ChrW(1593) & ChrW(1604) & ChrW(1740) & ChrW(1607) & " " & _
        .Text = ChrW(1593) & ChrW(1604) & ChrW(1740) & ChrW(1607) & " " & _
  ChrW(1575) & ChrW(1604) & ChrW(1587) & ChrW(1604) & ChrW(1575) & _
            ChrW(1575) & ChrW(1604) & ChrW(1587) & ChrW(1604) & ChrW(1575) & _
  ChrW(1605)
            ChrW(1605)
  .Replacement.Text = "(" & ChrW(1593) & ")"
        .Replacement.Text = "(" & ChrW(1593) & ")"
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchWildcards = False
        .MatchWildcards = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  End With
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
 
   
  Selection.Find.ClearFormatting
    Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
  With Selection.Find
    With Selection.Find
  .Text = "(" & ChrW(1593) & ChrW(1580) & ChrW(1604) & " " & ChrW(1575) _
        .Text = "(" & ChrW(1593) & ChrW(1580) & ChrW(1604) & " " & ChrW(1575) _
  & ChrW(1604) & ChrW(1604) & ChrW(1607) & " " & ChrW(1578) & ChrW(_
            & ChrW(1604) & ChrW(1604) & ChrW(1607) & " " & ChrW(1578) & ChrW( _
  1593) & ChrW(1575) & ChrW(1604) & ChrW(1610) & " " & ChrW(1601) & _
            1593) & ChrW(1575) & ChrW(1604) & ChrW(1610) & " " & ChrW(1601) & _
  ChrW(1585) & ChrW(1580) & ChrW(1607) & ")"
            ChrW(1585) & ChrW(1580) & ChrW(1607) & ")"
  .Replacement.Text = "(" & ChrW(1593) & ChrW(1580) & ")"
        .Replacement.Text = "(" & ChrW(1593) & ChrW(1580) & ")"
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchWildcards = False
        .MatchWildcards = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  End With
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
    With Selection.Find
  .Text = ChrW(1600) & " " & ChrW(1589) & ChrW(1604) & ChrW(1740) & " " _
        .Text = ChrW(1600) & " " & ChrW(1589) & ChrW(1604) & ChrW(1740) & " " _
  & ChrW(1575) & ChrW(1604) & ChrW(1604) & ChrW(1607) & " " & ChrW(_
            & ChrW(1575) & ChrW(1604) & ChrW(1604) & ChrW(1607) & " " & ChrW( _
  1593) & ChrW(1604) & ChrW(1740) & ChrW(1607) & " " & ChrW(1608) & _
            1593) & ChrW(1604) & ChrW(1740) & ChrW(1607) & " " & ChrW(1608) & _
  " " & ChrW(1570) & ChrW(1604) & ChrW(1607) & " " & ChrW(1608) & " " _
            " " & ChrW(1570) & ChrW(1604) & ChrW(1607) & " " & ChrW(1608) & " " _
  & ChrW(1587) & ChrW(1604) & ChrW(1605) & " " & ChrW(1600)
            & ChrW(1587) & ChrW(1604) & ChrW(1605) & " " & ChrW(1600)
  .Replacement.Text = "(" & ChrW(1589) & ")"
        .Replacement.Text = "(" & ChrW(1589) & ")"
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchWildcards = False
        .MatchWildcards = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  End With
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
  Selection.Find.ClearFormatting
        Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
  With Selection.Find
    With Selection.Find
  .Text = "-" & ChrW(1593) & ChrW(1604) & ChrW(1740) & ChrW(1607) & _
        .Text = "-" & ChrW(1593) & ChrW(1604) & ChrW(1740) & ChrW(1607) & _
  ChrW(1605) & " " & ChrW(1575) & ChrW(1604) & ChrW(1587) & ChrW(1604) _
            ChrW(1605) & " " & ChrW(1575) & ChrW(1604) & ChrW(1587) & ChrW(1604) _
  & ChrW(1575) & ChrW(1605) & "-"
            & ChrW(1575) & ChrW(1605) & "-"
  .Replacement.Text = "(" & ChrW(1593) & ")"
        .Replacement.Text = "(" & ChrW(1593) & ")"
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchWildcards = True
        .MatchWildcards = True
  End With
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
    With Selection.Find
  .Text = "(" & ChrW(1593) & ChrW(1604) & ChrW(1740) & ChrW(1607) & " " _
        .Text = "(" & ChrW(1593) & ChrW(1604) & ChrW(1740) & ChrW(1607) & " " _
  & ChrW(1575) & ChrW(1604) & ChrW(1587) & ChrW(1604) & ChrW(1575) & _
            & ChrW(1575) & ChrW(1604) & ChrW(1587) & ChrW(1604) & ChrW(1575) & _
  ChrW(1605) & ")"
            ChrW(1605) & ")"
  .Replacement.Text = "(" & ChrW(1593) & ")"
        .Replacement.Text = "(" & ChrW(1593) & ")"
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchWildcards = True
        .MatchWildcards = True
  End With
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
    With Selection.Find
  .Text = ChrW(1593) & ChrW(1604) & ChrW(1740) & ChrW(1607) & ChrW(1605 _
        .Text = ChrW(1593) & ChrW(1604) & ChrW(1740) & ChrW(1607) & ChrW(1605 _
) & " " & ChrW(1575) & ChrW(1604) & ChrW(1587) & ChrW(1604) & ChrW(_
            ) & " " & ChrW(1575) & ChrW(1604) & ChrW(1587) & ChrW(1604) & ChrW( _
  1575) & ChrW(1605)
            1575) & ChrW(1605)
  .Replacement.Text = "(" & ChrW(1593) & ")"
        .Replacement.Text = "(" & ChrW(1593) & ")"
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchWildcards = True
        .MatchWildcards = True
  End With
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
    With Selection.Find
  .Text = "(" & ChrW(1589) & ChrW(1604) & ChrW(1740) & " " & ChrW(1575) _
        .Text = "(" & ChrW(1589) & ChrW(1604) & ChrW(1740) & " " & ChrW(1575) _
  & ChrW(1604) & ChrW(1604) & ChrW(1607) & " " & ChrW(1593) & ChrW(_
            & ChrW(1604) & ChrW(1604) & ChrW(1607) & " " & ChrW(1593) & ChrW( _
  1604) & ChrW(1740) & ChrW(1607) & " " & ChrW(1608) & ChrW(1570) & _
            1604) & ChrW(1740) & ChrW(1607) & " " & ChrW(1608) & ChrW(1570) & _
  ChrW(1604) & ChrW(1607) & ")"
            ChrW(1604) & ChrW(1607) & ")"
  .Replacement.Text = "(" & ChrW(1589) & ")"
        .Replacement.Text = "(" & ChrW(1589) & ")"
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchWildcards = True
        .MatchWildcards = True
  End With
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
  Selection.Find.ClearFormatting
    Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
  With Selection.Find
    With Selection.Find
  .Text = "(" & ChrW(1593) & ChrW(1604) & ChrW(1610) & ChrW(1607) & _
        .Text = "(" & ChrW(1593) & ChrW(1604) & ChrW(1610) & ChrW(1607) & _
  ChrW(1605) & " " & ChrW(1575) & ChrW(1604) & ChrW(1587) & ChrW(1604) _
            ChrW(1605) & " " & ChrW(1575) & ChrW(1604) & ChrW(1587) & ChrW(1604) _
  & ChrW(1575) & ChrW(1605) & ")"
            & ChrW(1575) & ChrW(1605) & ")"
  .Replacement.Text = "(" & ChrW(1593) & ")"
        .Replacement.Text = "(" & ChrW(1593) & ")"
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchWildcards = False
        .MatchWildcards = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  End With
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
    With Selection.Find
  .Text = ChrW(1600) & " " & ChrW(1593) & ChrW(1604) & ChrW(1740) & _
        .Text = ChrW(1600) & " " & ChrW(1593) & ChrW(1604) & ChrW(1740) & _
  ChrW(1607) & " " & ChrW(1575) & ChrW(1604) & ChrW(1587) & ChrW(1604) _
            ChrW(1607) & " " & ChrW(1575) & ChrW(1604) & ChrW(1587) & ChrW(1604) _
  & ChrW(1575) & ChrW(1605) & " " & ChrW(1600)
            & ChrW(1575) & ChrW(1605) & " " & ChrW(1600)
  .Replacement.Text = "(" & ChrW(1593) & ")"
        .Replacement.Text = "(" & ChrW(1593) & ")"
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchWildcards = False
        .MatchWildcards = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  End With
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
    With Selection.Find
  .Text = "(" & ChrW(1589) & ChrW(1604) & ChrW(1740) & " " & ChrW(1575) _
        .Text = "(" & ChrW(1589) & ChrW(1604) & ChrW(1740) & " " & ChrW(1575) _
  & ChrW(1604) & ChrW(1604) & ChrW(1607) & " " & ChrW(1593) & ChrW(_
            & ChrW(1604) & ChrW(1604) & ChrW(1607) & " " & ChrW(1593) & ChrW( _
  1604) & ChrW(1740) & ChrW(1607) & " " & ChrW(1608) & ChrW(1570) & _
            1604) & ChrW(1740) & ChrW(1607) & " " & ChrW(1608) & ChrW(1570) & _
  ChrW(1604) & ChrW(1607) & ")"
            ChrW(1604) & ChrW(1607) & ")"
  .Replacement.Text = "(" & ChrW(1589) & ")"
        .Replacement.Text = "(" & ChrW(1589) & ")"
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchWildcards = False
        .MatchWildcards = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  End With
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
    With Selection.Find
  .Text = ChrW(1600) & " " & ChrW(1589) & ChrW(1604) & ChrW(1610) & " " _
        .Text = ChrW(1600) & " " & ChrW(1589) & ChrW(1604) & ChrW(1610) & " " _
  & ChrW(1575) & ChrW(1604) & ChrW(1604) & ChrW(1607) & " " & ChrW(_
            & ChrW(1575) & ChrW(1604) & ChrW(1604) & ChrW(1607) & " " & ChrW( _
  1593) & ChrW(1604) & ChrW(1610) & ChrW(1607) & " " & ChrW(1608) & _
            1593) & ChrW(1604) & ChrW(1610) & ChrW(1607) & " " & ChrW(1608) & _
  ChrW(1570) & ChrW(1604) & ChrW(1607) & " " & ChrW(1600)
            ChrW(1570) & ChrW(1604) & ChrW(1607) & " " & ChrW(1600)
  .Replacement.Text = "(" & ChrW(1589) & ")"
        .Replacement.Text = "(" & ChrW(1589) & ")"
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchWildcards = False
        .MatchWildcards = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  End With
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll


'
'
خط ۱٬۲۴۲: خط ۱٬۲۶۵:
'
'
'
'
  Selection.Find.ClearFormatting
    Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
  With Selection.Find
    With Selection.Find
  .Text = "۱"
        .Text = "1"
  .Replacement.Text = ChrW(1777)
        .Replacement.Text = ChrW(1777)
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchWildcards = False
        .MatchWildcards = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  End With
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
    With Selection.Find
  .Text = "۲"
        .Text = "2"
  .Replacement.Text = ChrW(1778)
        .Replacement.Text = ChrW(1778)
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchWildcards = False
        .MatchWildcards = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  End With
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
    With Selection.Find
  .Text = "۳"
        .Text = "3"
  .Replacement.Text = ChrW(1779)
        .Replacement.Text = ChrW(1779)
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchWildcards = False
        .MatchWildcards = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  End With
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
    With Selection.Find
  .Text = "۴"
        .Text = "4"
  .Replacement.Text = ChrW(1780)
        .Replacement.Text = ChrW(1780)
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchWildcards = False
        .MatchWildcards = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  End With
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
    With Selection.Find
  .Text = "۵"
        .Text = "5"
  .Replacement.Text = ChrW(1781)
        .Replacement.Text = ChrW(1781)
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchWildcards = False
        .MatchWildcards = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  End With
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
    With Selection.Find
  .Text = "۶"
        .Text = "6"
  .Replacement.Text = ChrW(1782)
        .Replacement.Text = ChrW(1782)
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchWildcards = False
        .MatchWildcards = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  End With
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
    With Selection.Find
  .Text = "۷"
        .Text = "7"
  .Replacement.Text = ChrW(1783)
        .Replacement.Text = ChrW(1783)
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchWildcards = False
        .MatchWildcards = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  End With
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
    With Selection.Find
  .Text = "۸"
        .Text = "8"
  .Replacement.Text = ChrW(1784)
        .Replacement.Text = ChrW(1784)
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchWildcards = False
        .MatchWildcards = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  End With
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
    With Selection.Find
  .Text = "۹"
        .Text = "9"
  .Replacement.Text = ChrW(1785)
        .Replacement.Text = ChrW(1785)
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchWildcards = False
        .MatchWildcards = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  End With
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
    With Selection.Find
  .Text = "۰"
        .Text = "0"
  .Replacement.Text = ChrW(1776)
        .Replacement.Text = ChrW(1776)
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchWildcards = False
        .MatchWildcards = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  End With
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
   


'
'
خط ۱٬۴۱۹: خط ۱٬۴۴۳:
'
'
'
'
  Selection.Copy
    Selection.Copy
  Selection.Find.ClearFormatting
    Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
  With Selection.Find
    With Selection.Find
  .Text = "<ref>."
        .Text = "<ref>."
  .Replacement.Text = "<ref>"
        .Replacement.Text = "<ref>"
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchWildcards = False
        .MatchWildcards = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  End With
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
  Selection.Find.ClearFormatting
    Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
  With Selection.Find
    With Selection.Find
  .Text = "<ref>-"
        .Text = "<ref>-"
  .Replacement.Text = "<ref>"
        .Replacement.Text = "<ref>"
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchWildcards = False
        .MatchWildcards = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  End With
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
    With Selection.Find
  .Text = "<ref>"
        .Text = "<ref> "
  .Replacement.Text = "<ref>"
        .Replacement.Text = "<ref>"
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchWildcards = False
        .MatchWildcards = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  End With
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
 
   
  Selection.Find.ClearFormatting
    Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
  With Selection.Find
    With Selection.Find
  .Text = "</ref>"
        .Text = " </ref>"
  .Replacement.Text = "</ref>"
        .Replacement.Text = "</ref>"
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchWildcards = False
        .MatchWildcards = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  End With
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll


With Selection.Find
With Selection.Find
  .Text = "^p</ref>"
        .Text = "^p</ref>"
  .Replacement.Text = "</ref>"
        .Replacement.Text = "</ref>"
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchWildcards = False
        .MatchWildcards = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  End With
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll


'
'
خط ۱٬۵۱۸: خط ۱٬۵۴۲:
'
'
'
'
  Selection.Find.ClearFormatting
    Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
  With Selection.Find
    With Selection.Find
  .Text = ChrW(1577)
        .Text = ChrW(1577)
  .Replacement.Text = ChrW(1607)
        .Replacement.Text = ChrW(1607)
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchWildcards = False
        .MatchWildcards = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  End With
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
'
'
' hijri qamari
' hijri qamari
'
'
'
'
  Selection.Find.ClearFormatting
    Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
  With Selection.Find
    With Selection.Find
  .Text = " " & ChrW(1607) & ChrW(1602) & "."
        .Text = " " & ChrW(1607) & ChrW(1602) & "."
  .Replacement.Text = " " & ChrW(1602) & "."
        .Replacement.Text = " " & ChrW(1602) & "."
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchWildcards = False
        .MatchWildcards = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  End With
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
    With Selection.Find
  .Text = ChrW(1607) & ChrW(8205) & ". " & ChrW(1602) & "<"
        .Text = ChrW(1607) & ChrW(8205) & ". " & ChrW(1602) & "<"
  .Replacement.Text = " " & ChrW(1602) & ".<"
        .Replacement.Text = " " & ChrW(1602) & ".<"
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchWildcards = False
        .MatchWildcards = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  End With
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
 
'
'
' kharij kardan irja' az parantez quran
' kharij kardan irja' az parantez quran
'
'
  Selection.Find.ClearFormatting
    Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
  With Selection.Find
    With Selection.Find
  .Text = "\<ref\>(*)\</ref\>\}\}"
        .Text = "\<ref\>(*)\</ref\>\}\}"
  .Replacement.Text = "}}<ref>\1</ref>"
        .Replacement.Text = "}}<ref>\1</ref>"
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchWildcards = True
        .MatchWildcards = True
  End With
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll


'
'
خط ۱٬۶۰۵: خط ۱٬۶۲۸:
'
'
'
'
  Selection.Find.ClearFormatting
    Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
  With Selection.Find
    With Selection.Find
  .Text = "}}^p^p{{"
        .Text = "}}^p^p{{"
  .Replacement.Text = "}}^p{{"
        .Replacement.Text = "}}^p{{"
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchWildcards = False
        .MatchWildcards = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  End With
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
 
'
'
' safhe wa jeld
' safhe wa jeld
'
'
'
'
  Selection.Find.ClearFormatting
    Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
  With Selection.Find
    With Selection.Find
  .Text = " " & ChrW(1589) & " "
        .Text = " " & ChrW(1589) & " "
  .Replacement.Text = " " & ChrW(1589)
        .Replacement.Text = " " & ChrW(1589)
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchWildcards = False
        .MatchWildcards = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  End With
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
    With Selection.Find
  .Text = " " & ChrW(1580) & " "
        .Text = " " & ChrW(1580) & " "
  .Replacement.Text = " " & ChrW(1580)
        .Replacement.Text = " " & ChrW(1580)
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchWildcards = False
        .MatchWildcards = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  End With
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
   


'
'
خط ۱٬۶۷۱: خط ۱٬۶۹۴:
'
'
'
'
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
    With Selection.Find
  .Text = ChrW(1605) & ChrW(1593) & ChrW(1585) & ChrW(1601) & ChrW(1610 _
        .Text = ChrW(1605) & ChrW(1593) & ChrW(1585) & ChrW(1601) & ChrW(1610 _
) & " " & ChrW(1605) & ChrW(1606) & ChrW(1575) & ChrW(1576) & ChrW(_
            ) & " " & ChrW(1605) & ChrW(1606) & ChrW(1575) & ChrW(1576) & ChrW( _
  1593) & " " & ChrW(1580) & ChrW(1607) & ChrW(1578) & " " & ChrW(1605 _
            1593) & " " & ChrW(1580) & ChrW(1607) & ChrW(1578) & " " & ChrW(1605 _
) & ChrW(1591) & ChrW(1575) & ChrW(1604) & ChrW(1593) & ChrW(1607) & _
            ) & ChrW(1591) & ChrW(1575) & ChrW(1604) & ChrW(1593) & ChrW(1607) & _
  " " & ChrW(1576) & ChrW(1610) & ChrW(1588) & ChrW(1578) & ChrW(1585 _
            " " & ChrW(1576) & ChrW(1610) & ChrW(1588) & ChrW(1578) & ChrW(1585 _
) & ":"
            ) & ":"
  .Replacement.Text = ChrW(1605) & ChrW(1591) & ChrW(1575) & ChrW(1604) _
        .Replacement.Text = ChrW(1605) & ChrW(1591) & ChrW(1575) & ChrW(1604) _
  & 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
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchWildcards = False
        .MatchWildcards = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  End With
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
   


'
'
خط ۱٬۷۰۱: خط ۱٬۷۲۵:
'
'
'
'
  Selection.Find.ClearFormatting
    Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
  With Selection.Find
    With Selection.Find
  .Text = " (" & ChrW(1589) & ")"
        .Text = " (" & ChrW(1589) & ")"
  .Replacement.Text = "(" & ChrW(1589) & ")"
        .Replacement.Text = "(" & ChrW(1589) & ")"
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchWildcards = False
        .MatchWildcards = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  End With
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
    With Selection.Find
  .Text = " (" & ChrW(1593) & ")"
        .Text = " (" & ChrW(1593) & ")"
  .Replacement.Text = "(" & ChrW(1593) & ")"
        .Replacement.Text = "(" & ChrW(1593) & ")"
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchWildcards = False
        .MatchWildcards = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  End With
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
    With Selection.Find
  .Text = " (" & ChrW(1587) & ")"
        .Text = " (" & ChrW(1587) & ")"
  .Replacement.Text = "(" & ChrW(1587) & ")"
        .Replacement.Text = "(" & ChrW(1587) & ")"
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchWildcards = False
        .MatchWildcards = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  End With
    End With
  Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
    With Selection.Find
  .Text = " (" & ChrW(1593) & ChrW(1580) & ")"
        .Text = " (" & ChrW(1593) & ChrW(1580) & ")"
  .Replacement.Text = "(" & ChrW(1593) & ChrW(1580) & ")"
        .Replacement.Text = "(" & ChrW(1593) & ChrW(1580) & ")"
  .Forward = True
        .Forward = True
  .Wrap = wdFindContinue
        .Wrap = wdFindContinue
  .Format = False
        .Format = False
  .MatchCase = False
        .MatchCase = False
  .MatchWholeWord = False
        .MatchWholeWord = False
  .MatchKashida = False
        .MatchKashida = False
  .MatchDiacritics = False
        .MatchDiacritics = False
  .MatchAlefHamza = False
        .MatchAlefHamza = False
  .MatchControl = False
        .MatchControl = False
  .MatchWildcards = False
        .MatchWildcards = False
  .MatchSoundsLike = False
        .MatchSoundsLike = False
  .MatchAllWordForms = False
        .MatchAllWordForms = False
  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 = "(" & 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) & " " & ChrW(1608) & ChrW(1587) & ChrW(1604) _
            & ChrW(1605) & ")"
        .Replacement.Text = "(" & ChrW(1589) & ")"
        .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
End Sub
End Sub
</pre>
</pre>
برگرفته از «https://fa.wikipasokh.com/view/ویژه:تفاوت_گوشی_همراه/6941»