پرش به محتوا

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

بدون خلاصۀ ویرایش
بدون خلاصۀ ویرایش
بدون خلاصۀ ویرایش
خط ۵۶۱: خط ۵۶۱:
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.Find.Execute Replace:=wdReplaceAll
     Application.Keyboard (1065)
     Application.Keyboard (1065)
        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
    Application.Keyboard (1065)
    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
    Application.Keyboard (1065)
    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
'
'
' numbers
' numbers