ویکی پاسخ

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

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

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

نسخهٔ ‏۲۰ اکتبر ۲۰۲۰، ساعت ۱۲:۱۱

۸٬۶۸۷ بایت اضافه‌شده ،  ‏۲۰ اکتبر ۲۰۲۰
←‏ماکرو
خط ۲۸۴: خط ۲۸۴:
     End With
     End With
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.Find.Execute Replace:=wdReplaceAll
    Selection.HomeKey Unit:=wdLine
    Selection.MoveRight Unit:=wdCharacter, Count:=2, Extend:=wdExtend
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = " (" & ChrW(1593) & ChrW(1580) & ")"
        .Replacement.Text = "(" & ChrW(1593) & ChrW(1580) & ")"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = " (" & ChrW(1593) & ChrW(1580) & ")"
        .Replacement.Text = "(" & ChrW(1593) & ChrW(1580) & ")"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "S}"
        .Replacement.Text = "{{" & ChrW(1587) & ChrW(1608) & ChrW(1575) & _
            ChrW(1604) & "}}"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Application.Keyboard (1065)
    Selection.EndKey Unit:=wdLine
    Selection.MoveLeft Unit:=wdCharacter, Count:=2, Extend:=wdExtend
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "{S"
        .Replacement.Text = "^p{{" & ChrW(1662) & ChrW(1575) & ChrW(1740) & _
            ChrW(1575) & ChrW(1606) & " " & ChrW(1587) & ChrW(1608) & ChrW(1575) _
            & ChrW(1604) & "}}"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Application.Keyboard (1033)
    Selection.HomeKey Unit:=wdLine
    Selection.MoveRight Unit:=wdCharacter, Count:=2, Extend:=wdExtend
   
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "J}"
        .Replacement.Text = "{{" & ChrW(1662) & ChrW(1575) & ChrW(1587) & _
            ChrW(1582) & "}}^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.HomeKey Unit:=wdLine
    Selection.MoveRight Unit:=wdCharacter, Count:=2, Extend:=wdExtend
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "T}"
        .Replacement.Text = "^p=="
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.EndKey Unit:=wdLine
    Selection.MoveLeft Unit:=wdCharacter, Count:=2, Extend:=wdExtend
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "{T"
        .Replacement.Text = "==^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.MoveDown Unit:=wdScreen, Count:=10
    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.HomeKey Unit:=wdLine
    Selection.MoveRight Unit:=wdCharacter, Count:=2, Extend:=wdExtend
    Selection.Copy
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "M}"
        .Replacement.Text = "{{" & ChrW(1605) & ChrW(1591) & ChrW(1575) & _
            ChrW(1604) & ChrW(1593) & ChrW(1607) & " " & ChrW(1576) & ChrW(1740) _
            & ChrW(1588) & ChrW(1578) & ChrW(1585) & "}}^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Application.Keyboard (1065)
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "M}"
        .Replacement.Text = "{{" & ChrW(1605) & ChrW(1591) & ChrW(1575) & _
            ChrW(1604) & ChrW(1593) & ChrW(1607) & " " & ChrW(1576) & ChrW(1740) _
            & ChrW(1588) & ChrW(1578) & ChrW(1585) & "}}^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.EndKey Unit:=wdLine
    Selection.MoveLeft Unit:=wdCharacter, Count:=2, Extend:=wdExtend
    Selection.Copy
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "{M"
        .Replacement.Text = "^p{{" & ChrW(1662) & ChrW(1575) & ChrW(1740) & _
            ChrW(1575) & ChrW(1606) & " " & ChrW(1605) & ChrW(1591) & ChrW(1575) _
            & ChrW(1604) & ChrW(1593) & ChrW(1607) & " " & ChrW(1576) & ChrW( _
            1740) & ChrW(1588) & ChrW(1578) & ChrW(1585) & "}}"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "{M"
        .Replacement.Text = "^p{{" & ChrW(1662) & ChrW(1575) & ChrW(1740) & _
            ChrW(1575) & ChrW(1606) & " " & ChrW(1605) & ChrW(1591) & ChrW(1575) _
            & ChrW(1604) & ChrW(1593) & ChrW(1607) & " " & ChrW(1576) & ChrW( _
            1740) & ChrW(1588) & ChrW(1578) & ChrW(1585) & "}}"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With


'
'
خط ۴۳۲: خط ۶۷۶:
         .Replacement.Text = " (" & ChrW(1593) & ")"
         .Replacement.Text = " (" & ChrW(1593) & ")"
         .Forward = True
         .Forward = True
         .Wrap = wdFindAsk
         .Wrap = wdFindContinue
         .Format = False
         .Format = False
         .MatchCase = False
         .MatchCase = False
خط ۴۵۷: خط ۷۰۱:
         .Replacement.Text = " (" & ChrW(1593) & ")"
         .Replacement.Text = " (" & ChrW(1593) & ")"
         .Forward = True
         .Forward = True
         .Wrap = wdFindAsk
         .Wrap = wdFindContinue
         .Format = False
         .Format = False
         .MatchCase = False
         .MatchCase = False
خط ۴۸۱: خط ۷۲۵:
         .Replacement.Text = " (" & ChrW(1593) & ")"
         .Replacement.Text = " (" & ChrW(1593) & ")"
         .Forward = True
         .Forward = True
         .Wrap = wdFindAsk
         .Wrap = wdFindContinue
         .Format = False
         .Format = False
         .MatchCase = False
         .MatchCase = False
خط ۵۰۶: خط ۷۵۰:
         .Replacement.Text = " (" & ChrW(1589) & ")"
         .Replacement.Text = " (" & ChrW(1589) & ")"
         .Forward = True
         .Forward = True
         .Wrap = wdFindAsk
         .Wrap = wdFindContinue
         .Format = False
         .Format = False
         .MatchCase = False
         .MatchCase = False
خط ۷۲۴: خط ۹۶۸:
         .Replacement.Text = "(" & ChrW(1593) & ")"
         .Replacement.Text = "(" & ChrW(1593) & ")"
         .Forward = True
         .Forward = True
         .Wrap = wdFindAsk
         .Wrap = wdFindContinue
         .Format = False
         .Format = False
         .MatchCase = False
         .MatchCase = False
خط ۷۴۳: خط ۹۸۷:
         .Replacement.Text = "(" & ChrW(1593) & ")"
         .Replacement.Text = "(" & ChrW(1593) & ")"
         .Forward = True
         .Forward = True
         .Wrap = wdFindAsk
         .Wrap = wdFindContinue
         .Format = False
         .Format = False
         .MatchCase = False
         .MatchCase = False
خط ۷۶۲: خط ۱٬۰۰۶:
         .Replacement.Text = "(" & ChrW(1593) & ")"
         .Replacement.Text = "(" & ChrW(1593) & ")"
         .Forward = True
         .Forward = True
         .Wrap = wdFindAsk
         .Wrap = wdFindContinue
         .Format = False
         .Format = False
         .MatchCase = False
         .MatchCase = False
خط ۷۸۲: خط ۱٬۰۲۶:
         .Replacement.Text = "(" & ChrW(1589) & ")"
         .Replacement.Text = "(" & ChrW(1589) & ")"
         .Forward = True
         .Forward = True
         .Wrap = wdFindAsk
         .Wrap = wdFindContinue
         .Format = False
         .Format = False
         .MatchCase = False
         .MatchCase = False
خط ۸۰۳: خط ۱٬۰۴۷:
         .Replacement.Text = "(" & ChrW(1593) & ")"
         .Replacement.Text = "(" & ChrW(1593) & ")"
         .Forward = True
         .Forward = True
         .Wrap = wdFindAsk
         .Wrap = wdFindContinue
         .Format = False
         .Format = False
         .MatchCase = False
         .MatchCase = False
خط ۸۲۲: خط ۱٬۰۶۶:
         .Replacement.Text = "(" & ChrW(1593) & ")"
         .Replacement.Text = "(" & ChrW(1593) & ")"
         .Forward = True
         .Forward = True
         .Wrap = wdFindAsk
         .Wrap = wdFindContinue
         .Format = False
         .Format = False
         .MatchCase = False
         .MatchCase = False
خط ۸۴۲: خط ۱٬۰۸۶:
         .Replacement.Text = "(" & ChrW(1589) & ")"
         .Replacement.Text = "(" & ChrW(1589) & ")"
         .Forward = True
         .Forward = True
         .Wrap = wdFindAsk
         .Wrap = wdFindContinue
         .Format = False
         .Format = False
         .MatchCase = False
         .MatchCase = False
خط ۸۶۲: خط ۱٬۱۰۶:
         .Replacement.Text = "(" & ChrW(1589) & ")"
         .Replacement.Text = "(" & ChrW(1589) & ")"
         .Forward = True
         .Forward = True
         .Wrap = wdFindAsk
         .Wrap = wdFindContinue
         .Format = False
         .Format = False
         .MatchCase = False
         .MatchCase = False
خط ۱٬۰۶۴: خط ۱٬۳۰۸:
         .Replacement.Text = "<ref>"
         .Replacement.Text = "<ref>"
         .Forward = True
         .Forward = True
         .Wrap = wdFindAsk
         .Wrap = wdFindContinue
         .Format = False
         .Format = False
         .MatchCase = False
         .MatchCase = False
خط ۱٬۰۸۳: خط ۱٬۳۲۷:
         .Replacement.Text = "<ref>"
         .Replacement.Text = "<ref>"
         .Forward = True
         .Forward = True
         .Wrap = wdFindAsk
         .Wrap = wdFindContinue
         .Format = False
         .Format = False
         .MatchCase = False
         .MatchCase = False
خط ۱٬۱۰۰: خط ۱٬۳۴۴:
         .Replacement.Text = "<ref>"
         .Replacement.Text = "<ref>"
         .Forward = True
         .Forward = True
         .Wrap = wdFindAsk
         .Wrap = wdFindContinue
         .Format = False
         .Format = False
         .MatchCase = False
         .MatchCase = False
خط ۱٬۱۲۲: خط ۱٬۳۶۶:
         .Replacement.Text = "</ref>"
         .Replacement.Text = "</ref>"
         .Forward = True
         .Forward = True
         .Wrap = wdFindAsk
         .Wrap = wdFindContinue
         .Format = False
         .Format = False
         .MatchCase = False
         .MatchCase = False
خط ۱٬۱۴۰: خط ۱٬۳۸۴:
         .Replacement.Text = "</ref>"
         .Replacement.Text = "</ref>"
         .Forward = True
         .Forward = True
         .Wrap = wdFindAsk
         .Wrap = wdFindContinue
         .Format = False
         .Format = False
         .MatchCase = False
         .MatchCase = False
خط ۱٬۲۵۲: خط ۱٬۴۹۶:
         .Replacement.Text = "}}^p{{"
         .Replacement.Text = "}}^p{{"
         .Forward = True
         .Forward = True
         .Wrap = wdFindAsk
         .Wrap = wdFindContinue
         .Format = False
         .Format = False
         .MatchCase = False
         .MatchCase = False
خط ۱٬۲۷۸: خط ۱٬۵۲۲:
         .Replacement.Text = " " & ChrW(1589)
         .Replacement.Text = " " & ChrW(1589)
         .Forward = True
         .Forward = True
         .Wrap = wdFindAsk
         .Wrap = wdFindContinue
         .Format = False
         .Format = False
         .MatchCase = False
         .MatchCase = False
خط ۱٬۲۹۵: خط ۱٬۵۳۹:
         .Replacement.Text = " " & ChrW(1580)
         .Replacement.Text = " " & ChrW(1580)
         .Forward = True
         .Forward = True
         .Wrap = wdFindAsk
         .Wrap = wdFindContinue
         .Format = False
         .Format = False
         .MatchCase = False
         .MatchCase = False
خط ۱٬۳۲۶: خط ۱٬۵۷۰:
             1588) & ChrW(1578) & ChrW(1585)
             1588) & ChrW(1578) & ChrW(1585)
         .Forward = True
         .Forward = True
         .Wrap = wdFindAsk
         .Wrap = wdFindContinue
         .Format = False
         .Format = False
         .MatchCase = False
         .MatchCase = False
خط ۱٬۳۵۱: خط ۱٬۵۹۵:
         .Replacement.Text = "(" & ChrW(1589) & ")"
         .Replacement.Text = "(" & ChrW(1589) & ")"
         .Forward = True
         .Forward = True
         .Wrap = wdFindAsk
         .Wrap = wdFindContinue
         .Format = False
         .Format = False
         .MatchCase = False
         .MatchCase = False
خط ۱٬۳۶۸: خط ۱٬۶۱۲:
         .Replacement.Text = "(" & ChrW(1593) & ")"
         .Replacement.Text = "(" & ChrW(1593) & ")"
         .Forward = True
         .Forward = True
         .Wrap = wdFindAsk
         .Wrap = wdFindContinue
         .Format = False
         .Format = False
         .MatchCase = False
         .MatchCase = False
خط ۱٬۳۸۵: خط ۱٬۶۲۹:
         .Replacement.Text = "(" & ChrW(1587) & ")"
         .Replacement.Text = "(" & ChrW(1587) & ")"
         .Forward = True
         .Forward = True
         .Wrap = wdFindAsk
         .Wrap = wdFindContinue
         .Format = False
         .Format = False
         .MatchCase = False
         .MatchCase = False
خط ۱٬۴۰۲: خط ۱٬۶۴۶:
         .Replacement.Text = "(" & ChrW(1593) & ChrW(1580) & ")"
         .Replacement.Text = "(" & ChrW(1593) & ChrW(1580) & ")"
         .Forward = True
         .Forward = True
         .Wrap = wdFindAsk
         .Wrap = wdFindContinue
         .Format = False
         .Format = False
         .MatchCase = False
         .MatchCase = False
برگرفته از «https://fa.wikipasokh.com/view/ویژه:تفاوت_گوشی_همراه/2218»