ویکی پاسخ

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

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

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

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

۶۰۶ بایت اضافه‌شده ،  ‏۲۵ اکتبر ۲۰۲۰
←‏ماکرو
خط ۱۶۸: خط ۱۶۸:
     End With
     End With
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.Find.Execute Replace:=wdReplaceAll
     Application.Keyboard (1033)
      


     Selection.Find.ClearFormatting
     Selection.Find.ClearFormatting
خط ۲۷۴: خط ۲۷۴:
             ChrW(1575) & ChrW(1606) & " " & ChrW(1605) & ChrW(1591) & ChrW(1575) _
             ChrW(1575) & ChrW(1606) & " " & ChrW(1605) & ChrW(1591) & ChrW(1575) _
             & ChrW(1604) & ChrW(1593) & ChrW(1607) & " " & ChrW(1576) & ChrW( _
             & ChrW(1604) & ChrW(1593) & ChrW(1607) & " " & ChrW(1576) & ChrW( _
             1740) & ChrW(1588) & ChrW(1578) & ChrW(1585) & "}}"
             1740) & ChrW(1588) & ChrW(1578) & ChrW(1585) & "}}^p"
         .Forward = True
         .Forward = True
         .Wrap = wdFindContinue
         .Wrap = wdFindContinue
خط ۳۸۴: خط ۳۸۴:
     End With
     End With
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.Find.Execute Replace:=wdReplaceAll
     Application.Keyboard (1065)
      
     Selection.EndKey Unit:=wdLine
     Selection.EndKey Unit:=wdLine
     Selection.MoveLeft Unit:=wdCharacter, Count:=2, Extend:=wdExtend
     Selection.MoveLeft Unit:=wdCharacter, Count:=2, Extend:=wdExtend
خط ۴۰۹: خط ۴۰۹:
     End With
     End With
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.Find.Execute Replace:=wdReplaceAll
     Application.Keyboard (1033)
      
     Selection.HomeKey Unit:=wdLine
     Selection.HomeKey Unit:=wdLine
     Selection.MoveRight Unit:=wdCharacter, Count:=2, Extend:=wdExtend
     Selection.MoveRight Unit:=wdCharacter, Count:=2, Extend:=wdExtend
خط ۵۰۲: خط ۵۰۲:
     End With
     End With
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.Find.Execute Replace:=wdReplaceAll
     Application.Keyboard (1065)
      
     Selection.Find.ClearFormatting
     Selection.Find.ClearFormatting
     Selection.Find.Replacement.ClearFormatting
     Selection.Find.Replacement.ClearFormatting
خط ۵۶۹: خط ۵۶۹:
         .MatchAllWordForms = False
         .MatchAllWordForms = False
     End With
     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


'
'
خط ۷۳۰: خط ۷۵۴:
     End With
     End With
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.Find.Execute Replace:=wdReplaceAll
     Application.Keyboard (1065)
      
     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
خط ۸۴۶: خط ۸۷۰:
     End With
     End With
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.Find.Execute Replace:=wdReplaceAll
     Application.Keyboard (1065)
      
         Selection.Find.ClearFormatting
         Selection.Find.ClearFormatting
     Selection.Find.Replacement.ClearFormatting
     Selection.Find.Replacement.ClearFormatting
خط ۹۱۳: خط ۹۳۷:
     End With
     End With
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.Find.Execute Replace:=wdReplaceAll
     Application.Keyboard (1065)
      
     Selection.Find.ClearFormatting
     Selection.Find.ClearFormatting
     Selection.Find.Replacement.ClearFormatting
     Selection.Find.Replacement.ClearFormatting
خط ۹۵۷: خط ۹۸۱:
     End With
     End With
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.Find.Execute Replace:=wdReplaceAll
     Application.Keyboard (1065)
      
     Selection.Find.ClearFormatting
     Selection.Find.ClearFormatting
     Selection.Find.Replacement.ClearFormatting
     Selection.Find.Replacement.ClearFormatting
خط ۱٬۱۵۹: خط ۱٬۱۸۳:
         .MatchAllWordForms = False
         .MatchAllWordForms = False
     End With
     End With
    Selection.Find.Execute Replace:=wdReplaceAll


'
'
خط ۱٬۳۳۶: خط ۱٬۳۶۱:
     End With
     End With
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.Find.Execute Replace:=wdReplaceAll
     Application.Keyboard (1065)
      


'
'
خط ۱٬۳۹۹: خط ۱٬۴۲۴:
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.Find.Execute Replace:=wdReplaceAll
      
      
    Selection.MoveLeft Unit:=wdCharacter, Count:=7, Extend:=wdExtend
    Selection.Copy
     Selection.Find.ClearFormatting
     Selection.Find.ClearFormatting
     Selection.Find.Replacement.ClearFormatting
     Selection.Find.Replacement.ClearFormatting
خط ۱٬۵۰۲: خط ۱٬۵۲۵:
     End With
     End With
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.Find.Execute Replace:=wdReplaceAll
     Application.Keyboard (1065)
      


'
'
خط ۱٬۵۵۱: خط ۱٬۵۷۴:
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.Find.Execute Replace:=wdReplaceAll
     Application.Keyboard (1033)
      


'
'
خط ۱٬۵۹۳: خط ۱٬۶۱۶:
     End With
     End With
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.Find.Execute Replace:=wdReplaceAll
     Application.Keyboard (1065)
      


'
'
خط ۱٬۶۲۴: خط ۱٬۶۴۷:
     End With
     End With
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.Find.Execute Replace:=wdReplaceAll
     Application.Keyboard (1065)
      


'
'
خط ۱٬۷۰۰: خط ۱٬۷۲۳:
     End With
     End With
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.Find.Execute Replace:=wdReplaceAll
     Application.Keyboard (1065)
      
End Sub
End Sub
</pre>
</pre>
برگرفته از «https://fa.wikipasokh.com/view/ویژه:تفاوت_گوشی_همراه/2502»