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

از ویکی پاسخ
(ابرابزار)
خط ۱۱۵: خط ۱۱۵:
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>

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

انتخاب عنوان

  • کلیدواژه (های) متن باید در عنوان بیاید و هر چه به ابتدای عنوان نزدیک تر بهتر.
  • در انتخاب عنوان به این که چه کلمات و عباراتی بهتر جستجو می‌شوند توجه کنید.

مواردی که باید در متن‌ها اصلاح شوند

  • عدم هماهنگی میان سؤال و پاسخ گاهی با اصلاح سؤال حل می‌شود و گاهی با اصلاح پاسخ!
  • موارد خارج از بحث که کمکی به بحث نمی‌کنند. (مگر آن که بشود ربطی میان آنان و بحث برقرار کرد)
  • لحن خطابی
  • استفاده از عبارات و کلماتی که حس دهه شصت را به مخاطب القا می‌کند!
  • پرش از مراحل استدلال
  • ذکر شعر. (مگر آن که شعر خیلی مناسب باشد)
  • پاراگراف‌های طولانی
  • آیات قرآن حتماً آدرس داشته باشند. به این شکل (بقره: ۲۵۰)
  • متن و ترجمه آیات قرآن باید مجدد بارگزاری شود و به آنچه در متن هست اکتفا نگردد.
  • تمام آیات قرآن به صورت الگو مورد استفاده قرار می‌گیرند. همچنین آدرس سوره و آیه نیز در درون الگو و به صورت پانویس درون متنی بیاید.
  • حروف اختصاری «ش» و «ق» برای همه تاریخ‌ها اصلاح و اضافه شود.

نکات شکلی

  • وقتی نقل قول مستقیمی در حد چند خط (مثلا یک روایت طولانی) در متن هست باید به صورت مجزا از بقیه متن و به صورت تو رفته (با اضافه کردن :: به ابتدای پاراگراف) آورده شود.

موارد ویرایشی

  • اسامی کتب عربی باید با حروف عربی نوشته شوند. اگر روی متن «ابرابزار» اجرا می‌کنید حتماً تغییرات را بررسی کنید و اسامی کتب عربی را به عربی برگردانید.
  • اگر روی متن «ابرابزار» اجرا می‌کنید حتماً تغییرات را بررسی کنید و موارد اشتباه را اصلاح و اطلاع دهید.
  • در بسیاری از موارد فهرست‌های ترتیبی استفاده شده‌اند در حالی که این فهرست‌ها فقط در مواردی باید استفاده شوند که ترتیبی میان موارد وجود دارد در غیر این صورت باید از فهرست بدون ترتیب استفاده کرد (مثل همین فهرست).

شناسه

نکاتی پیرامون نوشتن شناسه

  • نباید در شناسه عبارتی مبهم که اطلاعات مشخص و معینی به مخاطب نمی‌دهد ذکر شود.
  • شروع شناسه باید مثبت باشد نه منفی.
  • سرشاسه نباید با حروف اضافه، ماند «در» و «با» شروع شود.
  • سعی شود سرشناسه با عبارت اصلی مدخل، یا نزدیک‌ترین عبارت به آن آغاز شود.
  • سعی شود سرشناسه همان پاسخی باشد که مخاطب سؤال، دنبال آن بوده است.
  • سرشناسه باید جمله‌ای کوتاه باشد.

متن و ترجمه آیات

برای درج متن و ترجمه آیات قرآن، از پایگاه دانشنامه اسلامی، بخش قرآن استفاده شود. در این بخش، پنج ترجمه است که کاربر ویکی مناسب‌ترین ترجمه را انتخاب خواهد کرد.

نکات نگارشی

  • اعراب کلماتی که برای مخاطب عام مشخص نیست در متن مقاله به‌ویژه شناسه مشخص شود.
  • پرهیز از این که چند فعل پشت سر هم بیایند، کنید!
  • از تیترهای مانند «در قرآن» و «در روایات» دوری شود و به جای آن به مطلبی که در قرآن و در روایات آمده اشاره شود.
  • آرایه‌های ادبی مانند تشبیه و استعاره (و از آن ها بدتر سجع و وزن و قافیه!) در ادبیات ویکی راه ندارد.
  • نشانه‌های جمع در زبان فارسی با «ان» و «ها» است؛ بنابراین، جمع‌هایی مانند معاصرین و معصومین(ع) درست نیست.

کارهای مورد نیاز

  1. مطالعه اجمالی متن و بررسی کلیت پاسخ
    1. کیفیت کلی متن چقدر است؟
    2. پاسخ قانع کننده هست؟
  2. اجرای ماکرو
  3. بارگذاری با «ایجاد مبدأ» و ذخیره با توضیح ویرایش «نسخه اولیه»
  4. پرکردن الگوی {{شاخه}} با توجه به شاخه بندی پاسخ
  5. ویرایش و اصلاح متن با توجه به موارد ذکر شده در بالا و اضافه کردن تیترها (با توضیح ویرایش)
  6. نوشتن شناسه (با توضیح ویرایش) (نکته: می‌توان از بخش نتیجه‌گیری که در انتهای متن می‌آید به عنوان بخشی از شناسه استفاده کرد)
  7. اجرای ابرابزار
  8. لینک کردن (با توضیح ویرایش)

قالب مقاله

{{شروع متن}}
{{سوال}}

{{پایان سوال}}

{{پاسخ}}

{{پایان پاسخ}}
{{مطالعه بیشتر}}

== مطالعه بیشتر ==
{{پایان مطالعه بیشتر}}

== منابع ==
{{پانویس|۲}}

{{شاخه
 | شاخه اصلی =
 |شاخه فرعی۱ =
 |شاخه فرعی۲ =
 |شاخه فرعی۳ =
}}

{{تکمیل مقاله
 | شناسه =
 | تیترها =
 | ویرایش =
 | لینک‌دهی =
 | ناوبری =
 | نمایه =
 | تغییر مسیر =
 | بازبینی =
 | ارجاعات =
 | تکمیل =
 | اولویت =
 | کیفیت =
}}
{{پایان متن}}

ماکرو

ماکرویی که برای اصلاح فایل‌های ورد به کار می‌رود از قرار زیر است. این ماکرو الگوهای مورد نیاز را به اول و آخر متن اضافه می‌کند. الگوهای سؤال، پاسخ، قرآن، مطالعه بیشتر، و بخش منابع را می‌افزاید؛ و ارجاعات را به شکل مدیا ویکی برمی‌گرداند. موارد جزئی دیگر هم در این ماکرو گنجانده شده.

شما هم اگر در فایل‌ها موردی می‌بینید که قابل اصلاح از طریق جستجو و جایگزینی هست اطلاع دهید تا به ماکرو اضافه شود.

این متن باید همواره در حال به روز رسانی باشد اگر فکر می‌کنید این متن به روز نیست به‌کاربر:nazarzadeh یاداوری کنید.

Sub wikipasokh()
'
' irja'at
'
'

Application.ScreenUpdating = False
Dim i As Long, RngNt As Range, RngTxt As Range
With ActiveDocument
  For i = .Footnotes.Count To 1 Step -1
    With .Footnotes(i)
      Set RngNt = .Range
      With RngNt
        '.End = .End - 1
        '.Start = .Start + 2
      End With
      Set RngTxt = .Reference
      With RngTxt
        .InsertAfter "<ref>"
        .Collapse wdCollapseEnd
        .InsertAfter "</ref>"
        .Collapse wdCollapseStart
        .FormattedText = RngNt.FormattedText
      End With
      .Delete
    End With
  Next
End With
Application.ScreenUpdating = True

'
'  fasiliyi paragrafha
'
With Selection.Find
        .Text = "^p"
        .Replacement.Text = "^p^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 = "  "
        .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.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


'
' taghayi narmafzar
'

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "{Q"
        .Replacement.Text = "{{" & ChrW(1602) & ChrW(1585) & ChrW(1570) & _
            ChrW(1606) & "|"
        .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 = "Q}"
        .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.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "{S"
        .Replacement.Text = "^p{{" & ChrW(1587) & ChrW(1608) & ChrW(1575) & _
            ChrW(1604) & "}}^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 = "S}"
        .Replacement.Text = "^p{{" & ChrW(1662) & ChrW(1575) & ChrW(1740) & _
            ChrW(1575) & ChrW(1606) & " " & ChrW(1587) & ChrW(1608) & ChrW(1575) _
             & ChrW(1604) & "}}^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(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

    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:=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
'
    Selection.HomeKey Unit:=wdStory
    Selection.TypeText Text:="{{" & ChrW(1588) & ChrW(1585) & ChrW(1608) & _
        ChrW(1593) & " " & ChrW(1605) & ChrW(1578) & ChrW(1606) & "}}"
    
    Selection.EndKey Unit:=wdStory
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeText Text:="==" & ChrW(1605) & ChrW(1606) & ChrW(1575) & _
        ChrW(1576) & ChrW(1593) & "=="
    Selection.TypeParagraph
    Selection.TypeText Text:="<references />"
    Selection.TypeParagraph
    Selection.TypeText Text:="{{" & ChrW(1588) & ChrW(1575) & ChrW(1582) & _
        ChrW(1607)
    Selection.TypeParagraph
    Selection.TypeText Text:=" | " & ChrW(1588) & ChrW(1575) & ChrW(1582) & _
        ChrW(1607) & " " & ChrW(1575) & ChrW(1589) & ChrW(1604) & ChrW(1740) & _
        " = "
    Selection.TypeParagraph
    Selection.TypeText Text:=" | " & ChrW(1588) & ChrW(1575) & ChrW(1582) & ChrW _
        (1607) & " " & ChrW(1601) & ChrW(1585) & ChrW(1593) & ChrW(1740) & ChrW( _
        1777) & " = "
    Selection.TypeParagraph
    Selection.TypeText Text:=" | " & ChrW(1588) & ChrW(1575) & ChrW(1582) & ChrW _
        (1607) & " " & ChrW(1601) & ChrW(1585) & ChrW(1593) & ChrW(1740) & ChrW( _
        1778) & " = "
    Selection.TypeParagraph
    Selection.TypeText Text:=" | " & ChrW(1588) & ChrW(1575) & ChrW(1582) & ChrW _
        (1607) & " " & ChrW(1601) & ChrW(1585) & ChrW(1593) & ChrW(1740) & ChrW( _
        1779) & " = "
    Selection.TypeParagraph
    Selection.TypeText Text:="}}"
    Selection.TypeParagraph
        
    Selection.TypeParagraph
        Selection.TypeText Text:="{{" & ChrW(1578) & ChrW(1705) & ChrW(1605) & _
        ChrW(1740) & ChrW(1604) & " " & ChrW(1605) & ChrW(1602) & ChrW(1575) & _
        ChrW(1604) & ChrW(1607)
    Selection.TypeParagraph
    Selection.TypeText Text:=" | " & ChrW(1588) & ChrW(1606) & ChrW(1575) & _
        ChrW(1587) & ChrW(1607) & " = "
    Selection.TypeParagraph
    Selection.TypeText Text:=" | " & ChrW(1578) & ChrW(1740) & ChrW(1578) & _
        ChrW(1585) & ChrW(1607) & ChrW(1575) & " = "
    Selection.TypeParagraph
    Selection.TypeText Text:=" | " & ChrW(1608) & ChrW(1740) & ChrW(1585) & ChrW _
        (1575) & ChrW(1740) & ChrW(1588) & " = "
    Selection.TypeParagraph
    Selection.TypeText Text:=" | " & ChrW(1604) & ChrW(1740) & ChrW(1606) & _
        ChrW(1705) & ChrW(8204) & ChrW(1583) & ChrW(1607) & ChrW(1740) & " = "
    Selection.TypeParagraph
    Selection.TypeText Text:=" | " & ChrW(1606) & ChrW(1575) & ChrW(1608) & _
        ChrW(1576) & ChrW(1585) & ChrW(1740) & " = "
    Selection.TypeParagraph
    Selection.TypeText Text:=" | " & ChrW(1606) & ChrW(1605) & ChrW(1575) & ChrW _
        (1740) & ChrW(1607) & " = "
    Selection.TypeParagraph
    Selection.TypeText Text:=" | " & ChrW(1578) & ChrW(1594) & ChrW(1740) & _
        ChrW(1740) & ChrW(1585) & " " & ChrW(1605) & ChrW(1587) & ChrW(1740) & _
        ChrW(1585) & " = "
    Selection.TypeParagraph
    Selection.TypeText Text:=" | " & ChrW(1575) & ChrW(1585) & ChrW(1580) & _
        ChrW(1575) & ChrW(1593) & ChrW(1575) & ChrW(1578) & " = "
    Selection.TypeParagraph
    Selection.TypeText Text:=" | " & ChrW(1576) & ChrW(1575) & ChrW(1586) & _
        ChrW(1576) & ChrW(1740) & ChrW(1606) & ChrW(1740) & " = "
    Selection.TypeParagraph
    Selection.TypeText Text:=" | " & ChrW(1578) & ChrW(1705) & ChrW(1605) & ChrW _
        (1740) & ChrW(1604) & " = "
    Selection.TypeParagraph
    Selection.TypeText Text:=" | " & ChrW(1575) & ChrW(1608) & ChrW(1604) & _
        ChrW(1608) & ChrW(1740) & ChrW(1578) & " = "
    Selection.TypeParagraph
    Selection.TypeText Text:=" | " & ChrW(1705) & ChrW(1740) & ChrW(1601) & _
        ChrW(1740) & ChrW(1578) & " = "
    Selection.TypeParagraph
    Selection.TypeText Text:="}}"
    
    Selection.TypeParagraph
    Selection.TypeText Text:="{{" & ChrW(1662) & ChrW(1575) & ChrW(1740) & _
        ChrW(1575) & ChrW(1606) & " " & ChrW(1605) & ChrW(1578) & ChrW(1606) & _
        "}}"

'
' hazfi interhayi izafa
'
'
 Selection.HomeKey Unit:=wdStory
    With Selection.Find
        .Text = "^p^p^p"
        .Replacement.Text = "^p^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.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
'
'
    Selection.MoveRight Unit:=wdCharacter, Count:=2, Extend:=wdExtend
    Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
    Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.MoveRight Unit:=wdWord, Count:=2, Extend:=wdExtend
    Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.Copy
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(8204) & " " & ChrW(1600) & " " & ChrW(1593) & ChrW(1604) _
             & ChrW(1610) & ChrW(1607) & " " & ChrW(1575) & ChrW(1604) & ChrW( _
            1587) & ChrW(1604) & ChrW(1575) & ChrW(1605) & " " & ChrW(1600)
        .Replacement.Text = " (" & ChrW(1593) & ")"
        .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.MoveRight Unit:=wdWord, Count:=4, Extend:=wdExtend
    Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.Copy
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = " " & ChrW(1600) & " " & ChrW(1593) & ChrW(1604) & ChrW(1610) _
             & ChrW(1607) & " " & ChrW(1575) & ChrW(1604) & ChrW(1587) & ChrW( _
            1604) & ChrW(1575) & ChrW(1605) & " " & ChrW(1600)
        .Replacement.Text = " (" & ChrW(1593) & ")"
        .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.MoveRight Unit:=wdWord, Count:=4, Extend:=wdExtend
    Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.Copy
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = " " & ChrW(1600) & " " & ChrW(1593) & ChrW(1604) & ChrW(1610) _
             & ChrW(1607) & ChrW(1605) & " " & ChrW(1575) & ChrW(1604) & ChrW( _
            1587) & ChrW(1604) & ChrW(1575) & ChrW(1605) & " " & ChrW(1600)
        .Replacement.Text = " (" & ChrW(1593) & ")"
        .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.MoveRight Unit:=wdWord, Count:=8, Extend:=wdExtend
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.Copy
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = " " & ChrW(1600) & " " & ChrW(1589) & ChrW(1604) & ChrW(1610) _
             & " " & ChrW(1575) & ChrW(1604) & ChrW(1604) & ChrW(1607) & " " & _
            ChrW(1593) & ChrW(1604) & ChrW(1610) & ChrW(1607) & " " & ChrW(1608) _
             & " " & ChrW(1570) & ChrW(1604) & ChrW(1607) & " " & ChrW(1600)
        .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
        Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(1600) & " " & ChrW(1587) & ChrW(1604) & ChrW(1575) & _
            ChrW(1605) & " " & ChrW(1575) & ChrW(1604) & ChrW(1604) & ChrW(1607) _
             & " " & ChrW(1593) & ChrW(1604) & ChrW(1610) & ChrW(1607) & ChrW( _
            1575) & " " & ChrW(1600)
        .Replacement.Text = "(" & ChrW(1587) & ")"
        .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 = ChrW(1600) & " " & ChrW(1593) & ChrW(1580) & ChrW(1604) & " " _
             & ChrW(1575) & ChrW(1604) & ChrW(1604) & ChrW(1607) & " " & ChrW( _
            1578) & ChrW(1593) & ChrW(1575) & ChrW(1604) & ChrW(1610) & " " & _
            ChrW(1601) & ChrW(1585) & ChrW(1580) & ChrW(1607) & " " & ChrW(1600)
        .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.Execute Replace:=wdReplaceAll
    
        Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(1600) & " " & ChrW(1593) & ChrW(1580) & ChrW(1604) & " " _
             & ChrW(1575) & ChrW(1604) & ChrW(1604) & ChrW(1607) & " " & ChrW( _
            1578) & ChrW(1593) & ChrW(1575) & ChrW(1604) & ChrW(1610) & " " & _
            ChrW(1601) & ChrW(1585) & ChrW(1580) & ChrW(1607) & " " & ChrW(1575) _
             & ChrW(1604) & ChrW(1588) & ChrW(1585) & ChrW(1610) & ChrW(1601) & _
            " " & ChrW(1600)
        .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.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = ChrW(1600) & " " & ChrW(1589) & ChrW(1604) & ChrW(1610) & " " _
             & ChrW(1575) & ChrW(1604) & ChrW(1604) & ChrW(1607) & " " & ChrW( _
            1593) & ChrW(1604) & ChrW(1610) & ChrW(1607) & " " & ChrW(1608) & _
            " " & ChrW(1570) & ChrW(1604) & ChrW(1607) & " " & ChrW(1608) & " " _
            & ChrW(1587) & ChrW(1604) & ChrW(1605) & " " & ChrW(1600)
        .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
    With Selection.Find
        .Text = ChrW(1600) & " " & ChrW(1589) & ChrW(1604) & ChrW(1610) & " " _
             & ChrW(1575) & ChrW(1604) & ChrW(1604) & ChrW(1607) & " " & ChrW( _
            1593) & ChrW(1604) & ChrW(1610) & ChrW(1607) & " " & ChrW(1608) & _
            " " & ChrW(1570) & ChrW(1604) & ChrW(1607) & " " & ChrW(1608) & " " _
            & ChrW(1587) & ChrW(1604) & ChrW(1605) & " " & ChrW(1600)
        .Replacement.Text = "(" & ChrW(1587) & ")"
        .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 = ChrW(1600) & " " & ChrW(1589) & ChrW(1604) & ChrW(1610) & " " _
             & ChrW(1575) & ChrW(1604) & ChrW(1604) & ChrW(1607) & " " & ChrW( _
            1593) & ChrW(1604) & ChrW(1610) & ChrW(1607) & " " & ChrW(1608) & _
            " " & ChrW(1570) & ChrW(1604) & ChrW(1607) & " " & ChrW(1608) & " " _
            & ChrW(1587) & ChrW(1604) & ChrW(1605) & " " & ChrW(1600)
        .Replacement.Text = "(" & ChrW(1587) & ")"
        .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(1604) & ChrW(1740) & ChrW(1607) & " " & _
            ChrW(1575) & ChrW(1604) & ChrW(1587) & ChrW(1604) & ChrW(1575) & _
            ChrW(1605)
        .Replacement.Text = "(" & ChrW(1593) & ")"
        .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 = "(" & ChrW(1593) & ChrW(1580) & ChrW(1604) & " " & ChrW(1575) _
             & ChrW(1604) & ChrW(1604) & ChrW(1607) & " " & ChrW(1578) & ChrW( _
            1593) & ChrW(1575) & ChrW(1604) & ChrW(1610) & " " & ChrW(1601) & _
            ChrW(1585) & ChrW(1580) & ChrW(1607) & ")"
        .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.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = ChrW(1600) & " " & 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) & " " & ChrW(1600)
        .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
        Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "-" & ChrW(1593) & ChrW(1604) & ChrW(1740) & ChrW(1607) & _
            ChrW(1605) & " " & ChrW(1575) & ChrW(1604) & ChrW(1587) & ChrW(1604) _
             & ChrW(1575) & ChrW(1605) & "-"
        .Replacement.Text = "(" & ChrW(1593) & ")"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(" & ChrW(1593) & ChrW(1604) & ChrW(1740) & ChrW(1607) & " " _
             & ChrW(1575) & ChrW(1604) & ChrW(1587) & ChrW(1604) & ChrW(1575) & _
            ChrW(1605) & ")"
        .Replacement.Text = "(" & ChrW(1593) & ")"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = ChrW(1593) & ChrW(1604) & ChrW(1740) & ChrW(1607) & ChrW(1605 _
            ) & " " & ChrW(1575) & ChrW(1604) & ChrW(1587) & ChrW(1604) & ChrW( _
            1575) & ChrW(1605)
        .Replacement.Text = "(" & ChrW(1593) & ")"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "(" & ChrW(1589) & ChrW(1604) & ChrW(1740) & " " & ChrW(1575) _
             & ChrW(1604) & ChrW(1604) & ChrW(1607) & " " & ChrW(1593) & ChrW( _
            1604) & ChrW(1740) & ChrW(1607) & " " & ChrW(1608) & ChrW(1570) & _
            ChrW(1604) & ChrW(1607) & ")"
        .Replacement.Text = "(" & ChrW(1589) & ")"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "(" & ChrW(1593) & ChrW(1604) & ChrW(1610) & ChrW(1607) & _
            ChrW(1605) & " " & ChrW(1575) & ChrW(1604) & ChrW(1587) & ChrW(1604) _
             & ChrW(1575) & ChrW(1605) & ")"
        .Replacement.Text = "(" & ChrW(1593) & ")"
        .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 = ChrW(1600) & " " & ChrW(1593) & ChrW(1604) & ChrW(1740) & _
            ChrW(1607) & " " & ChrW(1575) & ChrW(1604) & ChrW(1587) & ChrW(1604) _
             & ChrW(1575) & ChrW(1605) & " " & ChrW(1600)
        .Replacement.Text = "(" & ChrW(1593) & ")"
        .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 = "(" & ChrW(1589) & ChrW(1604) & ChrW(1740) & " " & ChrW(1575) _
             & ChrW(1604) & ChrW(1604) & ChrW(1607) & " " & ChrW(1593) & ChrW( _
            1604) & ChrW(1740) & ChrW(1607) & " " & ChrW(1608) & ChrW(1570) & _
            ChrW(1604) & ChrW(1607) & ")"
        .Replacement.Text = "(" & ChrW(1589) & ")"
        .Forward = True
        .Wrap = 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 = ChrW(1600) & " " & ChrW(1589) & ChrW(1604) & ChrW(1610) & " " _
             & ChrW(1575) & ChrW(1604) & ChrW(1604) & ChrW(1607) & " " & ChrW( _
            1593) & ChrW(1604) & ChrW(1610) & ChrW(1607) & " " & ChrW(1608) & _
            ChrW(1570) & ChrW(1604) & ChrW(1607) & " " & ChrW(1600)
        .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

'
' adadha
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "1"
        .Replacement.Text = ChrW(1777)
        .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 = "2"
        .Replacement.Text = ChrW(1778)
        .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 = "3"
        .Replacement.Text = ChrW(1779)
        .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 = "4"
        .Replacement.Text = ChrW(1780)
        .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 = "5"
        .Replacement.Text = ChrW(1781)
        .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 = "6"
        .Replacement.Text = ChrW(1782)
        .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 = "7"
        .Replacement.Text = ChrW(1783)
        .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 = "8"
        .Replacement.Text = ChrW(1784)
        .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 = "9"
        .Replacement.Text = ChrW(1785)
        .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 = "0"
        .Replacement.Text = ChrW(1776)
        .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
    

'
' islahi irja'at
'
'
    Selection.Copy
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "<ref>."
        .Replacement.Text = "<ref>"
        .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 = "<ref>-"
        .Replacement.Text = "<ref>"
        .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 = "<ref> "
        .Replacement.Text = "<ref>"
        .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 = " </ref>"
        .Replacement.Text = "</ref>"
        .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 = "^p</ref>"
        .Replacement.Text = "</ref>"
        .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

'
' ta' arabi be ha
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(1577)
        .Replacement.Text = ChrW(1607)
        .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
'
' hijri qamari
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = " " & ChrW(1607) & ChrW(1602) & "."
        .Replacement.Text = " " & ChrW(1602) & "."
        .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 = ChrW(1607) & ChrW(8205) & ". " & ChrW(1602) & "<"
        .Replacement.Text = " " & ChrW(1602) & ".<"
        .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
'
' kharij kardan irja' az parantez quran
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "\<ref\>(*)\</ref\>\}\}"
        .Replacement.Text = "}}<ref>\1</ref>"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

'
' hazfe faseleye olguha
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "}}^p^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.Execute Replace:=wdReplaceAll
'
' safhe wa jeld
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = " " & ChrW(1589) & " "
        .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
    With Selection.Find
        .Text = " " & ChrW(1580) & " "
        .Replacement.Text = " " & 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.Execute Replace:=wdReplaceAll
    

'
' mutale'eye bishtar
'
'
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = ChrW(1605) & ChrW(1593) & ChrW(1585) & ChrW(1601) & ChrW(1610 _
            ) & " " & 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 = 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
    

'
' (s) (a) (aj)
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = " (" & ChrW(1589) & ")"
        .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
    With Selection.Find
        .Text = " (" & ChrW(1593) & ")"
        .Replacement.Text = "(" & ChrW(1593) & ")"
        .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 = " (" & ChrW(1587) & ")"
        .Replacement.Text = "(" & ChrW(1587) & ")"
        .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 = " (" & 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.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