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

بدون خلاصۀ ویرایش
بدون خلاصۀ ویرایش
بدون خلاصۀ ویرایش
خط ۳۳۴: خط ۳۳۴:
         ChrW(1608) & ChrW(1740) & ChrW(1587) & "}}"
         ChrW(1608) & ChrW(1740) & ChrW(1587) & "}}"
     Selection.TypeParagraph
     Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.TypeText Text:="{{تکمیل مقاله"
      Selection.TypeParagraph
      Selection.TypeText Text:=" | شناسه = "
      Selection.TypeParagraph
      Selection.TypeText Text:=" | تیترها = "
      Selection.TypeParagraph
      Selection.TypeText Text:=" | ویرایش = "
      Selection.TypeParagraph
      Selection.TypeText Text:=" | لینک‌دهی = "
      Selection.TypeParagraph
      Selection.TypeText Text:=" | ناوبری = "
        Selection.TypeParagraph
      Selection.TypeText Text:=" | نمایه = "
    Selection.TypeParagraph
    Selection.TypeText Text:=" | تغییر مسیر = "
    Selection.TypeParagraph
        Selection.TypeText Text:=" | بازبینی = "
        Selection.TypeParagraph
        Selection.TypeText Text:=" | تکمیل = "
        Selection.TypeParagraph
        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(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 = wdFindAsk
         .Wrap = wdFindAsk
خط ۴۰۸: خط ۴۳۱:
             & 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 = wdFindAsk
         .Wrap = wdFindAsk
خط ۴۳۲: خط ۴۵۵:
             & 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 = wdFindAsk
         .Wrap = wdFindAsk
خط ۴۵۷: خط ۴۸۰:
             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 = wdFindAsk
         .Wrap = wdFindAsk