ویکی پاسخ

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

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

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

نسخهٔ ‏۳۱ مهٔ ۲۰۲۲، ساعت ۱۰:۰۵

۱۶٬۷۴۱ بایت اضافه‌شده ،  ‏۳۱ مهٔ ۲۰۲۲
←‏موارد ویرایشی
بدون خلاصۀ ویرایش
 
(۲۶ نسخهٔ میانی ویرایش شده توسط ۳ کاربر نشان داده نشد)
خط ۱: خط ۱:
==مواردی که باید در متن‌ها اصلاح شوند==
== انتخاب عنوان ==
* عدم هماهنگی میان سوال و پاسخ گاهی با اصلاح سوال حل می شود و گاهی با اصلاح پاسخ!
* کلیدواژه (های) متن باید در عنوان بیاید و هر چه به ابتدای عنوان نزدیک تر بهتر.
* موارد خارج از بحث که کمکی به بحث نمی کنند. (مگر آن که بشود ربطی میان آنان و بحث برقرار کرد.)
* در انتخاب عنوان به این که چه کلمات و عباراتی بهتر جستجو می‌شوند توجه کنید.
 
== مواردی که باید در متن‌ها اصلاح شوند ==
* عدم هماهنگی میان سؤال و پاسخ گاهی با اصلاح سؤال حل می‌شود و گاهی با اصلاح پاسخ!
* موارد خارج از بحث که کمکی به بحث نمی‌کنند. (مگر آن که بشود ربطی میان آنان و بحث برقرار کرد)
* لحن خطابی
* لحن خطابی
* استفاده از عبارات و کلماتی که حس دهه شصت را به مخاطب القا می کند!
* استفاده از عبارات و کلماتی که حس دهه شصت را به مخاطب القا می‌کند!
* پرش از مراحل استدلال
* پرش از مراحل استدلال
* ذکر شعر. (مگر آن که شعر خیلی مناسب باشد.)
* ذکر شعر. (مگر آن که شعر خیلی مناسب باشد)
* پاراگراف های طولانی
* پاراگراف‌های طولانی
* آیات قرآن حتما آدرس داشته باشند. به این شکل (بقره: ۲۵۰)
* آیات قرآن حتماً آدرس داشته باشند. به این شکل (بقره: ۲۵۰)
* حروف اختصاری «ش» و «ق» برای همه تاریخ ها اصلاح و اضافه شود.
* متن و ترجمه آیات قرآن باید مجدد بارگزاری شود و به آنچه در متن هست اکتفا نگردد.
* تمام آیات قرآن به صورت الگو مورد استفاده قرار می‌گیرند. همچنین آدرس سوره و آیه نیز در درون الگو و به صورت پانویس درون متنی بیاید.
* حروف اختصاری «ش» و «ق» برای همه تاریخ‌ها اصلاح و اضافه شود.
 
== نکات شکلی ==
* وقتی نقل قول مستقیمی در حد چند خط (مثلا یک روایت طولانی) در متن هست باید به صورت مجزا از بقیه متن و به صورت تو رفته (با اضافه کردن :: به ابتدای پاراگراف) آورده شود.
 
== موارد ویرایشی ==
* اسامی کتب عربی باید با حروف عربی نوشته شوند. اگر روی متن «ابرابزار» اجرا می‌کنید حتماً تغییرات را بررسی کنید و اسامی کتب عربی را به عربی برگردانید.
* اگر روی متن «ابرابزار» اجرا می‌کنید حتماً تغییرات را بررسی کنید و موارد اشتباه را اصلاح و اطلاع دهید.
* در بسیاری از موارد فهرست‌های ترتیبی استفاده شده‌اند در حالی که این فهرست‌ها فقط در مواردی باید استفاده شوند که ترتیبی میان موارد وجود دارد در غیر این صورت باید از فهرست بدون ترتیب استفاده کرد (مثل همین فهرست).
* در مطالعه بیشتر، تنها مواردی آورده شود که به‌طور مستقیم به موضوع مرتبط است.


==موارد ویرایشی==
== عنوان مدخل==
* اسامی کتب عربی باید با حروف عربی نوشته شوند. اگر روی متن «ابر ابزار» اجرا می کنید حتما تغییرات را بررسی کنید و اسامی کتب عربی را به عربی برگردانید.
نکاتی پیرامون عنوان مدخل:
* اگر روی متن «ابر ابزار» اجرا می کنید حتما تغییرات را بررسی کنید و موارد اشتباه را اصلاح و اطلاع دهید.
* از نشانه‌های نگارشی مانند گیومه در عنوان مداخل استفاده نشود.  
* در بسیاری از موارد فهرست های ترتیبی استفاده شده اند در حالی که این فهرست ها فقط در مواردی باید استفاده شوند که ترتیبی میان موارد وجود دارد در غیر این صورت باید از فهرست بدون ترتیب استفاده کرد (مثل همین فهرست).
* از گذاشتن اعراب در عنوان مداخل پرهیز شود.  


==کارهای مورد نیاز==
== شناسه ==
نکاتی پیرامون نوشتن شناسه
* شناسه باید طوری نوشته شود که مخاطب با مطالعه آن پاسخ اجمالی خود را گرفته باشد.
* نباید در شناسه عبارتی مبهم که اطلاعات مشخص و معینی به مخاطب نمی‌دهد ذکر شود.
* شروع شناسه باید مثبت باشد نه منفی.
* سرشاسه نباید با حروف اضافه، ماند «در» و «با» شروع شود.
* سعی شود سرشناسه با عبارت اصلی مدخل، یا نزدیک‌ترین عبارت به آن آغاز شود.
* سعی شود سرشناسه همان پاسخی باشد که مخاطب سؤال، دنبال آن بوده است.
* سرشناسه باید جمله‌ای کوتاه باشد.
 
== متن و ترجمه آیات ==
برای درج متن و ترجمه آیات قرآن، از پایگاه [http://wiki.ahlolbait.com/صفحهٔ_اصلی دانشنامه اسلامی]، بخش قرآن استفاده شود. در این بخش، پنج ترجمه است که کاربر ویکی مناسب‌ترین ترجمه را انتخاب خواهد کرد.
 
== نکات نگارشی ==
* اعراب کلماتی که برای مخاطب عام مشخص نیست در متن مقاله به‌ویژه شناسه مشخص شود.
* پرهیز از این که چند فعل پشت سر هم بیایند، کنید!
* از تیترهای مانند «در قرآن» و «در روایات» دوری شود و به جای آن به مطلبی که در قرآن و در روایات آمده اشاره شود.
* آرایه‌های ادبی مانند تشبیه و استعاره (و از آن ها بدتر سجع و وزن و قافیه!) در ادبیات ویکی راه ندارد.
* نشانه‌های جمع در زبان فارسی با «ان» و «ها» است؛ بنابراین، جمع‌هایی مانند معاصرین و معصومین(ع) درست نیست.
* در فارسی همزه نداریم مگر اینکه  تلفظ شود؛ مانند مأمور.
* در فارسی تشدید نداریم.
* سعی شود از واژه‌هایی مانند عموما و اکثرا استفاده نشود.
* ویرگول قبل از واو نادرست نیست هرچند پسندیده هم نیست؛ جز در اضطرار. (کتاب راهنمای ویرایش، غلامحسین غلامحسین‌زاده)
 
== کارهای مورد نیاز ==
# مطالعه اجمالی متن و بررسی کلیت پاسخ
# مطالعه اجمالی متن و بررسی کلیت پاسخ
## کیفیت کلی متن چقدر است؟
## کیفیت کلی متن چقدر است؟
## پاسخ قانع کننده هست؟
## پاسخ قانع کننده هست؟
# اجرای ماکرو
# اجرای ماکرو
# بارگذاری با «ایجاد مبدا» و ذخیره با توضیح ویرایش «نسخه اولیه»
# بارگذاری با «ایجاد مبدأ» و ذخیره با توضیح ویرایش «نسخه اولیه»
# پرکردن الگوی {{tlx|شاخه}} با توجه به شاخه بندی پاسخ
# پرکردن الگوی {{tlx|شاخه}} با توجه به شاخه بندی پاسخ
# ویرایش و اصلاح متن با توجه به موارد ذکر شده در بالا و اضافه کردن تیترها (با توضیح ویرایش)
# ویرایش و اصلاح متن با توجه به موارد ذکر شده در بالا و اضافه کردن تیترها (با توضیح ویرایش)
# نوشتن شناسه (با توضیح ویرایش) (نکته: می توان از بخش نتیجه گیری که در انتهای متن می آید به عنوان بخشی از شناسه استفاده کرد)
# نوشتن شناسه (با توضیح ویرایش) (نکته: می‌توان از بخش نتیجه‌گیری که در انتهای متن می‌آید به عنوان بخشی از شناسه استفاده کرد)
# اجرای ابرابزار
# اجرای ابرابزار
# لینک کردن (با توضیح ویرایش)
# لینک کردن (با توضیح ویرایش)


==ماکرو==
==برنامه‌های آینده==
ماکرویی که برای اصلاح فایل های ورد به کار می رود از قرار زیر است. این ماکرو الگوهای مورد نیاز را به اول و آخر متن اضافه می کند. الگوهای سوال، پاسخ، قرآن، مطالعه بیشتر، و بخش منابع را می افزاید. و ارجاعات را به شکل مدیا ویکی برمی گرداند. موارد جزئی دیگر هم در این ماکرو گنجانده شده.
* شان نزول آیات سوره‌ها
 
== قالب مقاله ==
<pre>
{{شروع متن}}
{{سوال}}
 
{{پایان سوال}}
 
{{پاسخ}}
 
{{پایان پاسخ}}
{{مطالعه بیشتر}}
== مطالعه بیشتر ==
{{پایان مطالعه بیشتر}}


شما هم اگر در فایل ها موردی می بینید که قابل اصلاح از طریق جستجو و جایگزینی هست اطلاع دهید تا به ماکرو اضافه شود.
== منابع ==
{{پانویس|۲}}


این متن باید همواره در حال به روز رسانی باشد اگر فکر می کنید این متن به روز نیست به [[کاربر:nazarzadeh]] یاداوری کنید.
{{شاخه
| شاخه اصلی =
|شاخه فرعی۱ =
|شاخه فرعی۲ =
|شاخه فرعی۳ =
}}
 
{{تکمیل مقاله
| شناسه =
| تیترها =
| ویرایش =
| لینک‌دهی =
| ناوبری =
| نمایه =
| تغییر مسیر =
| بازبینی =
| ارجاعات =
| تکمیل =
| اولویت =
| کیفیت =
}}
{{پایان متن}}
</pre>
 
== ماکرو ==
ماکرویی که برای اصلاح فایل‌های ورد به کار می‌رود از قرار زیر است. این ماکرو الگوهای مورد نیاز را به اول و آخر متن اضافه می‌کند. الگوهای سؤال، پاسخ، قرآن، مطالعه بیشتر، و بخش منابع را می‌افزاید؛ و ارجاعات را به شکل مدیا ویکی برمی‌گرداند. موارد جزئی دیگر هم در این ماکرو گنجانده شده.
 
شما هم اگر در فایل‌ها موردی می‌بینید که قابل اصلاح از طریق جستجو و جایگزینی هست اطلاع دهید تا به ماکرو اضافه شود.
 
این متن باید همواره در حال به روز رسانی باشد اگر فکر می‌کنید این متن به روز نیست به‌ [[کاربر:nazarzadeh]] یاداوری کنید.


<pre style="direction:ltr; font-size: 70%">
<pre style="direction:ltr; font-size: 70%">
خط ۸۶: خط ۱۶۹:
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.Find.Execute Replace:=wdReplaceAll


'
With Selection.Find
' taghayi narmafzar
         .Text = " "
'
         .Replacement.Text = " "
 
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
         .Text = "{Q"
         .Replacement.Text = "{{" & ChrW(1602) & ChrW(1585) & ChrW(1570) & _
            ChrW(1606) & "|"
         .Forward = True
         .Forward = True
         .Wrap = wdFindContinue
         .Wrap = wdFindContinue
خط ۱۱۰: خط ۱۸۶:
     End With
     End With
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.Find.Execute Replace:=wdReplaceAll
     With Selection.Find
    Selection.Find.Execute Replace:=wdReplaceAll
         .Text = "Q}"
    Selection.Find.Execute Replace:=wdReplaceAll
         .Replacement.Text = "}}"
 
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
     With Selection.Find
         .Text = "^p "
         .Replacement.Text = "^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 (1033)
 
 
'
' taghayi narmafzar
'


     Selection.Find.ClearFormatting
     Selection.Find.ClearFormatting
     Selection.Find.Replacement.ClearFormatting
     Selection.Find.Replacement.ClearFormatting
     With Selection.Find
     With Selection.Find
         .Text = "{S"
         .Text = "{Q"
         .Replacement.Text = "^p{{" & ChrW(1587) & ChrW(1608) & ChrW(1575) & _
         .Replacement.Text = "{{" & ChrW(1602) & ChrW(1585) & ChrW(1570) & _
             ChrW(1604) & "}}^p"
             ChrW(1606) & "|"
         .Forward = True
         .Forward = True
         .Wrap = wdFindContinue
         .Wrap = wdFindContinue
خط ۱۵۰: خط ۲۳۵:
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.Find.Execute Replace:=wdReplaceAll
     With Selection.Find
     With Selection.Find
         .Text = "S}"
         .Text = "Q}"
         .Replacement.Text = "^p{{" & ChrW(1662) & ChrW(1575) & ChrW(1740) & _
         .Replacement.Text = "}}"
            ChrW(1575) & ChrW(1606) & " " & ChrW(1587) & ChrW(1608) & ChrW(1575) _
            & ChrW(1604) & "}}^p"
         .Forward = True
         .Forward = True
         .Wrap = wdFindContinue
         .Wrap = wdFindContinue
خط ۱۶۹: خط ۲۵۲:
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.Find.Execute Replace:=wdReplaceAll
      
      
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
     With Selection.Find
     With Selection.Find
         .Text = "{J"
         .Text = "{S"
         .Replacement.Text = "^p{{" & ChrW(1662) & ChrW(1575) & ChrW(1587) & _
         .Replacement.Text = "^p{{" & ChrW(1587) & ChrW(1608) & ChrW(1575) & _
             ChrW(1582) & "}}^p"
             ChrW(1604) & "}}^p"
         .Forward = True
         .Forward = True
         .Wrap = wdFindContinue
         .Wrap = wdFindContinue
خط ۱۸۷: خط ۲۷۳:
     End With
     End With
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.Find.Execute Replace:=wdReplaceAll
   
     With Selection.Find
     With Selection.Find
         .Text = "J}"
         .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(1662) & ChrW(1575) & ChrW(1587) _
             ChrW(1575) & ChrW(1606) & " " & ChrW(1587) & ChrW(1608) & ChrW(1575) _
             & ChrW(1582) & "}}^p"
             & ChrW(1604) & "}}^p"
         .Forward = True
         .Forward = True
         .Wrap = wdFindContinue
         .Wrap = wdFindContinue
خط ۲۰۹: خط ۲۹۴:
      
      
     With Selection.Find
     With Selection.Find
         .Text = "{M"
         .Text = "{J"
         .Replacement.Text = "^p{{" & ChrW(1605) & ChrW(1591) & ChrW(1575) & _
         .Replacement.Text = "^p{{" & ChrW(1662) & ChrW(1575) & ChrW(1587) & _
             ChrW(1604) & ChrW(1593) & ChrW(1607) & " " & ChrW(1576) & ChrW(1740) _
             ChrW(1582) & "}}^p"
            & ChrW(1588) & ChrW(1578) & ChrW(1585) & "}}^p"
         .Forward = True
         .Forward = True
         .Wrap = wdFindContinue
         .Wrap = wdFindContinue
خط ۲۲۹: خط ۳۱۳:
      
      
     With Selection.Find
     With Selection.Find
         .Text = "M}"
         .Text = "J}"
         .Replacement.Text = "^p{{" & ChrW(1662) & ChrW(1575) & ChrW(1740) & _
         .Replacement.Text = "^p{{" & ChrW(1662) & ChrW(1575) & ChrW(1740) & _
             ChrW(1575) & ChrW(1606) & " " & ChrW(1605) & ChrW(1591) & ChrW(1575) _
             ChrW(1575) & ChrW(1606) & " " & ChrW(1662) & ChrW(1575) & ChrW(1587) _
             & ChrW(1604) & ChrW(1593) & ChrW(1607) & " " & ChrW(1576) & ChrW( _
             & ChrW(1582) & "}}^p"
            1740) & ChrW(1588) & ChrW(1578) & ChrW(1585) & "}}"
         .Forward = True
         .Forward = True
         .Wrap = wdFindContinue
         .Wrap = wdFindContinue
خط ۲۵۰: خط ۳۳۳:
      
      
     With Selection.Find
     With Selection.Find
         .Text = "{T"
         .Text = "{M"
         .Replacement.Text = "=="
         .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
         .Forward = True
         .Wrap = wdFindContinue
         .Wrap = wdFindContinue
خط ۲۶۸: خط ۳۵۳:
      
      
     With Selection.Find
     With Selection.Find
         .Text = "T}"
         .Text = "M}"
         .Replacement.Text = "=="
         .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
         .Forward = True
         .Wrap = wdFindContinue
         .Wrap = wdFindContinue
خط ۲۸۴: خط ۳۷۲:
     End With
     End With
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.Find.Execute Replace:=wdReplaceAll
'
' ulguhayi awwal wa akhari matn
'
      
      
     Selection.MoveUp Unit:=wdLine, Count:=41
     With Selection.Find
    Selection.MoveDown Unit:=wdLine, Count:=3
        .Text = "{T"
    Selection.HomeKey Unit:=wdLine
        .Replacement.Text = "=="
    Selection.HomeKey Unit:=wdStory
        .Forward = True
    Selection.HomeKey Unit:=wdStory
        .Wrap = wdFindContinue
    Selection.TypeText Text:="{{" & ChrW(1588) & ChrW(1585) & ChrW(1608) & _
        .Format = False
         ChrW(1593) & " " & ChrW(1605) & ChrW(1578) & ChrW(1606) & "}}"
        .MatchCase = False
         Selection.TypeParagraph
         .MatchWholeWord = False
    Selection.TypeText Text:="{{" & ChrW(1588) & ChrW(1575) & ChrW(1582) & _
         .MatchKashida = False
         ChrW(1607)
        .MatchDiacritics = False
    Selection.TypeParagraph
         .MatchAlefHamza = False
    Selection.TypeText Text:=" | " & ChrW(1588) & ChrW(1575) & ChrW(1582) & _
        .MatchControl = False
         ChrW(1607) & " " & ChrW(1575) & ChrW(1589) & ChrW(1604) & ChrW(1740) & _
        .MatchWildcards = False
         " = "
         .MatchSoundsLike = False
     Selection.TypeParagraph
         .MatchAllWordForms = False
     Selection.TypeText Text:="|" & ChrW(1588) & ChrW(1575) & ChrW(1582) & ChrW _
    End With
         (1607) & " " & ChrW(1601) & ChrW(1585) & ChrW(1593) & ChrW(1740) & ChrW( _
     Selection.Find.Execute Replace:=wdReplaceAll
         1777) & " = "
      
    Selection.TypeParagraph
    With Selection.Find
    Selection.TypeText Text:="|" & ChrW(1588) & ChrW(1575) & ChrW(1582) & ChrW _
        .Text = "T}"
         (1607) & " " & ChrW(1601) & ChrW(1585) & ChrW(1593) & ChrW(1740) & ChrW( _
         .Replacement.Text = "=="
         1778) & " = "
         .Forward = True
    Selection.TypeParagraph
        .Wrap = wdFindContinue
    Selection.TypeText Text:="|" & ChrW(1588) & ChrW(1575) & ChrW(1582) & ChrW _
        .Format = False
         (1607) & " " & ChrW(1601) & ChrW(1585) & ChrW(1593) & ChrW(1740) & ChrW( _
        .MatchCase = False
         1779) & " = "
        .MatchWholeWord = False
     Selection.MoveUp Unit:=wdLine, Count:=2
        .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.HomeKey Unit:=wdLine
     Selection.TypeText Text:=" "
     Selection.MoveRight Unit:=wdCharacter, Count:=2, Extend:=wdExtend
    Selection.MoveDown Unit:=wdLine, Count:=1
     Selection.Find.ClearFormatting
    Selection.HomeKey Unit:=wdLine
     Selection.Find.Replacement.ClearFormatting
     Selection.TypeText Text:=" "
     With Selection.Find
     Selection.MoveDown Unit:=wdLine, Count:=1
        .Text = " (" & ChrW(1593) & ChrW(1580) & ")"
     Selection.HomeKey Unit:=wdLine
        .Replacement.Text = "(" & ChrW(1593) & ChrW(1580) & ")"
    Selection.MoveDown Unit:=wdLine, Count:=1
        .Forward = True
    Selection.MoveUp Unit:=wdLine, Count:=1
        .Wrap = wdFindContinue
    Selection.TypeText Text:=" "
        .Format = False
    Selection.MoveRight Unit:=wdWord, Count:=3
        .MatchCase = False
    Selection.MoveRight Unit:=wdCharacter, Count:=2
        .MatchWholeWord = False
    Selection.TypeParagraph
        .MatchKashida = False
    Selection.TypeText Text:="}}"
        .MatchDiacritics = False
    Selection.TypeParagraph
        .MatchAlefHamza = False
 
        .MatchControl = False
    Selection.EndKey Unit:=wdStory
        .MatchWildcards = False
    Selection.TypeParagraph
        .MatchSoundsLike = False
    Selection.TypeParagraph
         .MatchAllWordForms = False
    Selection.TypeText Text:="==" & ChrW(1605) & ChrW(1606) & ChrW(1575) & _
     End With
         ChrW(1576) & ChrW(1593) & "=="
     Selection.Find.ClearFormatting
     Selection.TypeParagraph
     Selection.Find.Replacement.ClearFormatting
     Selection.TypeText Text:="<references />"
     With Selection.Find
     Selection.TypeParagraph
         .Text = " (" & ChrW(1593) & ChrW(1580) & ")"
     Selection.TypeParagraph
         .Replacement.Text = "(" & ChrW(1593) & ChrW(1580) & ")"
         Selection.TypeText Text:="{{" & ChrW(1578) & ChrW(1705) & ChrW(1605) & _
         .Forward = True
         ChrW(1740) & ChrW(1604) & " " & ChrW(1605) & ChrW(1602) & ChrW(1575) & _
        .Wrap = wdFindContinue
         ChrW(1604) & ChrW(1607)
         .Format = False
    Selection.TypeParagraph
        .MatchCase = False
    Selection.TypeText Text:=" | " & ChrW(1588) & ChrW(1606) & ChrW(1575) & _
        .MatchWholeWord = False
         ChrW(1587) & ChrW(1607) & " = "
         .MatchKashida = False
    Selection.TypeParagraph
        .MatchDiacritics = False
    Selection.TypeText Text:=" | " & ChrW(1578) & ChrW(1740) & ChrW(1578) & _
        .MatchAlefHamza = False
         ChrW(1585) & ChrW(1607) & ChrW(1575) & " = "
         .MatchControl = False
    Selection.TypeParagraph
        .MatchWildcards = False
    Selection.TypeText Text:=" | " & ChrW(1608) & ChrW(1740) & ChrW(1585) & ChrW _
        .MatchSoundsLike = False
         (1575) & ChrW(1740) & ChrW(1588) & " = "
         .MatchAllWordForms = False
    Selection.TypeParagraph
    End With
    Selection.TypeText Text:=" | " & ChrW(1604) & ChrW(1740) & ChrW(1606) & _
     Selection.Find.ClearFormatting
         ChrW(1705) & ChrW(8204) & ChrW(1583) & ChrW(1607) & ChrW(1740) & " = "
     Selection.Find.Replacement.ClearFormatting
     Selection.TypeParagraph
     With Selection.Find
     Selection.TypeText Text:=" | " & ChrW(1606) & ChrW(1575) & ChrW(1608) & _
        .Text = "S}"
        ChrW(1576) & ChrW(1585) & ChrW(1740) & " = "
         .Replacement.Text = "{{" & ChrW(1587) & ChrW(1608) & ChrW(1575) & _
     Selection.TypeParagraph
            ChrW(1604) & "}}"
    Selection.TypeText Text:=" | " & ChrW(1606) & ChrW(1605) & ChrW(1575) & ChrW _
         .Forward = True
         (1740) & ChrW(1607) & " = "
        .Wrap = wdFindContinue
    Selection.TypeParagraph
        .Format = False
    Selection.TypeText Text:=" | " & ChrW(1578) & ChrW(1594) & ChrW(1740) & _
         .MatchCase = False
        ChrW(1740) & ChrW(1585) & " " & ChrW(1605) & ChrW(1587) & ChrW(1740) & _
        .MatchWholeWord = False
         ChrW(1585) & " = "
        .MatchKashida = False
    Selection.TypeParagraph
         .MatchDiacritics = False
    Selection.TypeText Text:=" | " & ChrW(1576) & ChrW(1575) & ChrW(1586) & _
        .MatchAlefHamza = False
         ChrW(1576) & ChrW(1740) & ChrW(1606) & ChrW(1740) & " = "
        .MatchControl = False
    Selection.TypeParagraph
         .MatchWildcards = False
    Selection.TypeText Text:=" | " & ChrW(1578) & ChrW(1705) & ChrW(1605) & ChrW _
        .MatchSoundsLike = False
         (1740) & ChrW(1604) & " = "
         .MatchAllWordForms = False
    Selection.TypeParagraph
     End With
    Selection.TypeText Text:=" | " & ChrW(1575) & ChrW(1608) & ChrW(1604) & _
     Selection.Find.Execute Replace:=wdReplaceAll
         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.EndKey Unit:=wdLine
     Selection.TypeText Text:="{{" & ChrW(1662) & ChrW(1575) & ChrW(1740) & _
     Selection.MoveLeft Unit:=wdCharacter, Count:=2, Extend:=wdExtend
        ChrW(1575) & ChrW(1606) & " " & ChrW(1605) & ChrW(1578) & ChrW(1606) & _
        "}}"


'
    Selection.Find.ClearFormatting
' hazfi interhayi izafa
    Selection.Find.Replacement.ClearFormatting
'
'
Selection.HomeKey Unit:=wdStory
     With Selection.Find
     With Selection.Find
         .Text = "^p^p^p"
         .Text = "{S"
         .Replacement.Text = "^p^p"
         .Replacement.Text = "^p{{" & ChrW(1662) & ChrW(1575) & ChrW(1740) & _
            ChrW(1575) & ChrW(1606) & " " & ChrW(1587) & ChrW(1608) & ChrW(1575) _
            & ChrW(1604) & "}}"
         .Forward = True
         .Forward = True
         .Wrap = wdFindContinue
         .Wrap = wdFindContinue
خط ۴۰۸: خط ۴۹۲:
     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.HomeKey Unit:=wdLine
    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:=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.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 = "J}"
            & ChrW(1610) & ChrW(1607) & " " & ChrW(1575) & ChrW(1604) & ChrW( _
        .Replacement.Text = "{{" & ChrW(1662) & ChrW(1575) & ChrW(1587) & _
             1587) & ChrW(1604) & ChrW(1575) & ChrW(1605) & " " & ChrW(1600)
             ChrW(1582) & "}}^p"
        .Replacement.Text = " (" & ChrW(1593) & ")"
         .Forward = True
         .Forward = True
         .Wrap = wdFindAsk
         .Wrap = wdFindContinue
         .Format = False
         .Format = False
         .MatchCase = False
         .MatchCase = False
خط ۴۴۵: خط ۵۱۶:
     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.HomeKey Unit:=wdLine
     Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
     Selection.MoveRight Unit:=wdCharacter, Count:=2, Extend:=wdExtend
    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 = "T}"
            & ChrW(1607) & " " & ChrW(1575) & ChrW(1604) & ChrW(1587) & ChrW( _
         .Replacement.Text = "^p=="
            1604) & ChrW(1575) & ChrW(1605) & " " & ChrW(1600)
         .Replacement.Text = " (" & ChrW(1593) & ")"
         .Forward = True
         .Forward = True
         .Wrap = wdFindAsk
         .Wrap = wdFindContinue
         .Format = False
         .Format = False
         .MatchCase = False
         .MatchCase = False
خط ۴۷۰: خط ۵۳۸:
     End With
     End With
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.MoveRight Unit:=wdWord, Count:=4, Extend:=wdExtend
     Selection.EndKey Unit:=wdLine
     Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
     Selection.MoveLeft Unit:=wdCharacter, Count:=2, Extend:=wdExtend
    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 = "{T"
            & ChrW(1607) & ChrW(1605) & " " & ChrW(1575) & ChrW(1604) & ChrW( _
         .Replacement.Text = "==^p"
            1587) & ChrW(1604) & ChrW(1575) & ChrW(1605) & " " & ChrW(1600)
         .Forward = True
         .Replacement.Text = " (" & ChrW(1593) & ")"
         .Wrap = wdFindContinue
         .Forward = True
         .Wrap = wdFindAsk
         .Format = False
         .Format = False
         .MatchCase = False
         .MatchCase = False
خط ۴۹۴: خط ۵۵۹:
     End With
     End With
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.MoveRight Unit:=wdWord, Count:=8, Extend:=wdExtend
     Selection.MoveDown Unit:=wdScreen, Count:=10
     Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.MoveUp Unit:=wdLine, Count:=1
     Selection.HomeKey Unit:=wdLine
    Selection.MoveRight Unit:=wdCharacter, Count:=2, 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 = "M}"
            & " " & ChrW(1575) & ChrW(1604) & ChrW(1604) & ChrW(1607) & " " & _
        .Replacement.Text = "{{" & ChrW(1605) & ChrW(1591) & ChrW(1575) & _
            ChrW(1593) & ChrW(1604) & ChrW(1610) & ChrW(1607) & " " & ChrW(1608) _
            ChrW(1604) & ChrW(1593) & ChrW(1607) & " " & ChrW(1576) & ChrW(1740) _
             & " " & ChrW(1570) & ChrW(1604) & ChrW(1607) & " " & ChrW(1600)
             & ChrW(1588) & ChrW(1578) & ChrW(1585) & "}}^p"
        .Replacement.Text = " (" & ChrW(1589) & ")"
         .Forward = True
         .Forward = True
         .Wrap = wdFindAsk
         .Wrap = wdFindContinue
         .Format = False
         .Format = False
         .MatchCase = False
         .MatchCase = 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 = "M}"
             ChrW(1605) & " " & ChrW(1575) & ChrW(1604) & ChrW(1604) & ChrW(1607) _
        .Replacement.Text = "{{" & ChrW(1605) & ChrW(1591) & ChrW(1575) & _
            & " " & ChrW(1593) & ChrW(1604) & ChrW(1610) & ChrW(1607) & ChrW( _
             ChrW(1604) & ChrW(1593) & ChrW(1607) & " " & ChrW(1576) & ChrW(1740) _
            1575) & " " & ChrW(1600)
            & ChrW(1588) & ChrW(1578) & ChrW(1585) & "}}^p"
        .Replacement.Text = "(" & ChrW(1587) & ")"
         .Forward = True
         .Forward = True
         .Wrap = wdFindContinue
         .Wrap = wdFindContinue
خط ۵۴۰: خط ۶۰۶:
         .MatchAllWordForms = False
         .MatchAllWordForms = False
     End With
     End With
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.EndKey Unit:=wdLine
    Selection.MoveLeft Unit:=wdCharacter, Count:=2, Extend:=wdExtend
    Selection.Copy
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
     With Selection.Find
     With Selection.Find
         .Text = ChrW(1600) & " " & ChrW(1593) & ChrW(1580) & ChrW(1604) & " " _
         .Text = "{M"
            & ChrW(1575) & ChrW(1604) & ChrW(1604) & ChrW(1607) & " " & ChrW( _
        .Replacement.Text = "^p{{" & ChrW(1662) & ChrW(1575) & ChrW(1740) & _
            1578) & ChrW(1593) & ChrW(1575) & ChrW(1604) & ChrW(1610) & " " & _
            ChrW(1575) & ChrW(1606) & " " & ChrW(1605) & ChrW(1591) & ChrW(1575) _
            ChrW(1601) & ChrW(1585) & ChrW(1580) & ChrW(1607) & " " & ChrW(1600)
            & ChrW(1604) & ChrW(1593) & ChrW(1607) & " " & ChrW(1576) & ChrW( _
        .Replacement.Text = "(" & ChrW(1593) & ChrW(1580) & ")"
            1740) & ChrW(1588) & ChrW(1578) & ChrW(1585) & "}}"
         .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.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 = "{M"
            & ChrW(1575) & ChrW(1604) & ChrW(1604) & ChrW(1607) & " " & ChrW( _
        .Replacement.Text = "^p{{" & ChrW(1662) & ChrW(1575) & ChrW(1740) & _
             1578) & ChrW(1593) & ChrW(1575) & ChrW(1604) & ChrW(1610) & " " & _
             ChrW(1575) & ChrW(1606) & " " & ChrW(1605) & ChrW(1591) & ChrW(1575) _
            ChrW(1601) & ChrW(1585) & ChrW(1580) & ChrW(1607) & " " & ChrW(1575) _
             & ChrW(1604) & ChrW(1593) & ChrW(1607) & " " & ChrW(1576) & ChrW( _
             & ChrW(1604) & ChrW(1588) & ChrW(1585) & ChrW(1610) & ChrW(1601) & _
             1740) & ChrW(1588) & ChrW(1578) & ChrW(1585) & "}}"
             " " & ChrW(1600)
        .Replacement.Text = "(" & ChrW(1593) & ChrW(1580) & ")"
         .Forward = True
         .Forward = True
         .Wrap = wdFindContinue
         .Wrap = wdFindContinue
خط ۵۸۵: خط ۶۵۲:
         .MatchAllWordForms = False
         .MatchAllWordForms = False
     End With
     End With
     Selection.Find.Execute Replace:=wdReplaceAll
      
     With Selection.Find
     With Selection.Find
         .Text = ChrW(1600) & " " & ChrW(1589) & ChrW(1604) & ChrW(1610) & " " _
         .Text = " ==" & ChrW(1605) & ChrW(1606) & ChrW(1575) & ChrW(1576) & _
            & ChrW(1575) & ChrW(1604) & ChrW(1604) & ChrW(1607) & " " & ChrW( _
            ChrW(1593) & " " & ChrW(1580) & ChrW(1607) & ChrW(1578) & " " & ChrW _
             1593) & ChrW(1604) & ChrW(1610) & ChrW(1607) & " " & ChrW(1608) & _
            (1605) & ChrW(1591) & ChrW(1575) & ChrW(1604) & ChrW(1593) & ChrW( _
             " " & ChrW(1570) & ChrW(1604) & ChrW(1607) & " " & ChrW(1608) & " " _
             1607) & " " & ChrW(1576) & ChrW(1610) & ChrW(1588) & ChrW(1578) & _
             & ChrW(1587) & ChrW(1604) & ChrW(1605) & " " & ChrW(1600)
             ChrW(1585) & ":=="
        .Replacement.Text = "(" & ChrW(1589) & ")"
        .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
         .Forward = True
         .Wrap = wdFindContinue
         .Wrap = wdFindAsk
         .Format = False
         .Format = False
         .MatchCase = False
         .MatchCase = False
خط ۶۰۷: خط ۶۷۶:
     End With
     End With
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.Find.Execute Replace:=wdReplaceAll
'
' hazfe faseleye avvale khat
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
     With Selection.Find
     With Selection.Find
         .Text = ChrW(1600) & " " & ChrW(1589) & ChrW(1604) & ChrW(1610) & " " _
         .Text = "^p "
            & ChrW(1575) & ChrW(1604) & ChrW(1604) & ChrW(1607) & " " & ChrW( _
         .Replacement.Text = "^p"
            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
         .Forward = True
         .Wrap = wdFindContinue
         .Wrap = wdFindContinue
خط ۶۹۵: خط ۶۹۸:
     End With
     End With
     Selection.Find.Execute Replace:=wdReplaceAll
     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
     With Selection.Find
         .Text = ChrW(1600) & " " & ChrW(1589) & ChrW(1604) & ChrW(1740) & " " _
         .Text = "^p^p^p"
            & ChrW(1575) & ChrW(1604) & ChrW(1604) & ChrW(1607) & " " & ChrW( _
         .Replacement.Text = "^p^p"
            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
         .Forward = True
         .Wrap = wdFindContinue
         .Wrap = wdFindContinue
خط ۷۱۶: خط ۸۰۶:
     End With
     End With
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.Find.Execute Replace:=wdReplaceAll
        Selection.Find.ClearFormatting
    Selection.Find.Execute Replace:=wdReplaceAll
     Selection.Find.Replacement.ClearFormatting
    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
     With Selection.Find
         .Text = "-" & ChrW(1593) & ChrW(1604) & ChrW(1740) & ChrW(1607) & _
         .Text = ChrW(8204) & " " & ChrW(1600) & " " & ChrW(1593) & ChrW(1604) _
            ChrW(1605) & " " & ChrW(1575) & ChrW(1604) & ChrW(1587) & ChrW(1604) _
            & ChrW(1610) & ChrW(1607) & " " & ChrW(1575) & ChrW(1604) & ChrW( _
            & ChrW(1575) & ChrW(1605) & "-"
            1587) & ChrW(1604) & ChrW(1575) & ChrW(1605) & " " & ChrW(1600)
         .Replacement.Text = "(" & ChrW(1593) & ")"
         .Replacement.Text = " (" & ChrW(1593) & ")"
         .Forward = True
         .Forward = True
         .Wrap = wdFindAsk
         .Wrap = wdFindContinue
         .Format = False
         .Format = False
         .MatchCase = False
         .MatchCase = False
خط ۷۳۲: خط ۸۳۸:
         .MatchAlefHamza = False
         .MatchAlefHamza = False
         .MatchControl = False
         .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
         .MatchAllWordForms = False
         .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
     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:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.Copy
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
     With Selection.Find
     With Selection.Find
         .Text = "(" & ChrW(1593) & ChrW(1604) & ChrW(1740) & ChrW(1607) & " " _
         .Text = " " & ChrW(1600) & " " & ChrW(1593) & ChrW(1604) & ChrW(1610) _
            & ChrW(1575) & ChrW(1604) & ChrW(1587) & ChrW(1604) & ChrW(1575) & _
            & ChrW(1607) & " " & ChrW(1575) & ChrW(1604) & ChrW(1587) & ChrW( _
            ChrW(1605) & ")"
            1604) & ChrW(1575) & ChrW(1605) & " " & ChrW(1600)
         .Replacement.Text = "(" & ChrW(1593) & ")"
         .Replacement.Text = " (" & ChrW(1593) & ")"
         .Forward = True
         .Forward = True
         .Wrap = wdFindAsk
         .Wrap = wdFindContinue
         .Format = False
         .Format = False
         .MatchCase = False
         .MatchCase = False
خط ۷۵۱: خط ۸۶۳:
         .MatchAlefHamza = False
         .MatchAlefHamza = False
         .MatchControl = False
         .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
         .MatchAllWordForms = False
         .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
     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:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.Copy
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
     With Selection.Find
     With Selection.Find
         .Text = ChrW(1593) & ChrW(1604) & ChrW(1740) & ChrW(1607) & ChrW(1605 _
         .Text = " " & ChrW(1600) & " " & ChrW(1593) & ChrW(1604) & ChrW(1610) _
            ) & " " & ChrW(1575) & ChrW(1604) & ChrW(1587) & ChrW(1604) & ChrW( _
            & ChrW(1607) & ChrW(1605) & " " & ChrW(1575) & ChrW(1604) & ChrW( _
            1575) & ChrW(1605)
            1587) & ChrW(1604) & ChrW(1575) & ChrW(1605) & " " & ChrW(1600)
         .Replacement.Text = "(" & ChrW(1593) & ")"
         .Replacement.Text = " (" & ChrW(1593) & ")"
         .Forward = True
         .Forward = True
         .Wrap = wdFindAsk
         .Wrap = wdFindContinue
         .Format = False
         .Format = False
         .MatchCase = False
         .MatchCase = False
خط ۷۷۰: خط ۸۸۷:
         .MatchAlefHamza = False
         .MatchAlefHamza = False
         .MatchControl = False
         .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
         .MatchAllWordForms = False
         .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
     End With
     End With
     Selection.Find.Execute Replace:=wdReplaceAll
     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
     With Selection.Find
         .Text = "(" & ChrW(1589) & ChrW(1604) & ChrW(1740) & " " & ChrW(1575) _
         .Text = " " & ChrW(1600) & " " & ChrW(1589) & ChrW(1604) & ChrW(1610) _
            & ChrW(1604) & ChrW(1604) & ChrW(1607) & " " & ChrW(1593) & ChrW( _
            & " " & ChrW(1575) & ChrW(1604) & ChrW(1604) & ChrW(1607) & " " & _
            1604) & ChrW(1740) & ChrW(1607) & " " & ChrW(1608) & ChrW(1570) & _
            ChrW(1593) & ChrW(1604) & ChrW(1610) & ChrW(1607) & " " & ChrW(1608) _
            ChrW(1604) & ChrW(1607) & ")"
            & " " & ChrW(1570) & ChrW(1604) & ChrW(1607) & " " & ChrW(1600)
         .Replacement.Text = "(" & ChrW(1589) & ")"
         .Replacement.Text = " (" & ChrW(1589) & ")"
         .Forward = True
         .Forward = True
         .Wrap = wdFindAsk
         .Wrap = wdFindContinue
         .Format = False
         .Format = False
         .MatchCase = False
         .MatchCase = False
خط ۷۹۰: خط ۹۱۲:
         .MatchAlefHamza = False
         .MatchAlefHamza = False
         .MatchControl = False
         .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
         .MatchAllWordForms = False
         .MatchAllWordForms = False
        .MatchSoundsLike = False
        .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(1600) & " " & ChrW(1587) & ChrW(1604) & ChrW(1575) & _
             ChrW(1605) & " " & ChrW(1575) & ChrW(1604) & ChrW(1587) & ChrW(1604) _
             ChrW(1605) & " " & ChrW(1575) & ChrW(1604) & ChrW(1604) & ChrW(1607) _
             & ChrW(1575) & ChrW(1605) & ")"
             & " " & ChrW(1593) & ChrW(1604) & ChrW(1610) & ChrW(1607) & ChrW( _
         .Replacement.Text = "(" & ChrW(1593) & ")"
            1575) & " " & ChrW(1600)
         .Replacement.Text = "(" & ChrW(1587) & ")"
         .Forward = True
         .Forward = True
         .Wrap = wdFindAsk
         .Wrap = wdFindContinue
         .Format = False
         .Format = False
         .MatchCase = False
         .MatchCase = False
خط ۸۱۷: خط ۹۴۰:
     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(1580) & ChrW(1604) & " " _
            ChrW(1607) & " " & ChrW(1575) & ChrW(1604) & ChrW(1587) & ChrW(1604) _
            & ChrW(1575) & ChrW(1604) & ChrW(1604) & ChrW(1607) & " " & ChrW( _
            & ChrW(1575) & ChrW(1605) & " " & ChrW(1600)
            1578) & ChrW(1593) & ChrW(1575) & ChrW(1604) & ChrW(1610) & " " & _
         .Replacement.Text = "(" & ChrW(1593) & ")"
            ChrW(1601) & ChrW(1585) & ChrW(1580) & ChrW(1607) & " " & ChrW(1600)
         .Replacement.Text = "(" & ChrW(1593) & ChrW(1580) & ")"
         .Forward = True
         .Forward = True
         .Wrap = wdFindAsk
         .Wrap = wdFindContinue
         .Format = False
         .Format = False
         .MatchCase = False
         .MatchCase = 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
     With Selection.Find
         .Text = "(" & ChrW(1589) & ChrW(1604) & ChrW(1740) & " " & ChrW(1575) _
         .Text = ChrW(1600) & " " & ChrW(1593) & ChrW(1580) & ChrW(1604) & " " _
            & ChrW(1604) & ChrW(1604) & ChrW(1607) & " " & ChrW(1593) & ChrW( _
            & ChrW(1575) & ChrW(1604) & ChrW(1604) & ChrW(1607) & " " & ChrW( _
             1604) & ChrW(1740) & ChrW(1607) & " " & ChrW(1608) & ChrW(1570) & _
            1578) & ChrW(1593) & ChrW(1575) & ChrW(1604) & ChrW(1610) & " " & _
            ChrW(1604) & ChrW(1607) & ")"
             ChrW(1601) & ChrW(1585) & ChrW(1580) & ChrW(1607) & " " & ChrW(1575) _
         .Replacement.Text = "(" & ChrW(1589) & ")"
            & ChrW(1604) & ChrW(1588) & ChrW(1585) & ChrW(1610) & ChrW(1601) & _
            " " & ChrW(1600)
         .Replacement.Text = "(" & ChrW(1593) & ChrW(1580) & ")"
         .Forward = True
         .Forward = True
         .Wrap = wdFindAsk
         .Wrap = wdFindContinue
         .Format = False
         .Format = False
         .MatchCase = False
         .MatchCase = False
خط ۸۵۹: خط ۹۸۸:
             & 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(1608) & " " _
            & ChrW(1587) & ChrW(1604) & ChrW(1605) & " " & ChrW(1600)
         .Replacement.Text = "(" & ChrW(1589) & ")"
         .Replacement.Text = "(" & ChrW(1589) & ")"
         .Forward = True
         .Forward = True
         .Wrap = wdFindAsk
         .Wrap = wdFindContinue
         .Format = False
         .Format = False
         .MatchCase = False
         .MatchCase = False
خط ۸۷۴: خط ۱٬۰۰۴:
         .MatchAllWordForms = False
         .MatchAllWordForms = False
     End With
     End With
 
     Selection.Find.Execute Replace:=wdReplaceAll
'
' adadha
'
'
     Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
     With Selection.Find
     With Selection.Find
         .Text = "1"
         .Text = ChrW(1600) & " " & ChrW(1589) & ChrW(1604) & ChrW(1610) & " " _
         .Replacement.Text = ChrW(1777)
            & 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
         .Forward = True
         .Wrap = wdFindContinue
         .Wrap = wdFindContinue
خط ۸۹۸: خط ۱٬۰۲۶:
     End With
     End With
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.Find.Execute Replace:=wdReplaceAll
   
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
     With Selection.Find
     With Selection.Find
         .Text = "2"
         .Text = ChrW(1600) & " " & ChrW(1589) & ChrW(1604) & ChrW(1610) & " " _
         .Replacement.Text = ChrW(1778)
            & 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
         .Forward = True
         .Wrap = wdFindContinue
         .Wrap = wdFindContinue
خط ۹۱۴: خط ۱٬۰۴۹:
         .MatchAllWordForms = False
         .MatchAllWordForms = False
     End With
     End With
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
     With Selection.Find
     With Selection.Find
         .Text = "3"
         .Text = ChrW(1593) & ChrW(1604) & ChrW(1740) & ChrW(1607) & " " & _
         .Replacement.Text = ChrW(1779)
            ChrW(1575) & ChrW(1604) & ChrW(1587) & ChrW(1604) & ChrW(1575) & _
            ChrW(1605)
         .Replacement.Text = "(" & ChrW(1593) & ")"
         .Forward = True
         .Forward = True
         .Wrap = wdFindContinue
         .Wrap = wdFindContinue
خط ۹۳۲: خط ۱٬۰۷۰:
     End With
     End With
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.Find.Execute Replace:=wdReplaceAll
   
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
     With Selection.Find
     With Selection.Find
         .Text = "4"
         .Text = "(" & ChrW(1593) & ChrW(1580) & ChrW(1604) & " " & ChrW(1575) _
         .Replacement.Text = ChrW(1780)
            & 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
         .Forward = True
         .Wrap = wdFindContinue
         .Wrap = wdFindContinue
خط ۹۵۰: خط ۱٬۰۹۴:
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.Find.Execute Replace:=wdReplaceAll
     With Selection.Find
     With Selection.Find
         .Text = "5"
         .Text = ChrW(1600) & " " & ChrW(1589) & ChrW(1604) & ChrW(1740) & " " _
         .Replacement.Text = ChrW(1781)
            & 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
         .Forward = True
         .Wrap = wdFindContinue
         .Wrap = wdFindContinue
خط ۹۶۶: خط ۱٬۱۱۴:
     End With
     End With
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.Find.Execute Replace:=wdReplaceAll
        Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
     With Selection.Find
     With Selection.Find
         .Text = "6"
         .Text = "-" & ChrW(1593) & ChrW(1604) & ChrW(1740) & ChrW(1607) & _
         .Replacement.Text = ChrW(1782)
            ChrW(1605) & " " & ChrW(1575) & ChrW(1604) & ChrW(1587) & ChrW(1604) _
            & ChrW(1575) & ChrW(1605) & "-"
         .Replacement.Text = "(" & ChrW(1593) & ")"
         .Forward = True
         .Forward = True
         .Wrap = wdFindContinue
         .Wrap = wdFindContinue
خط ۹۷۸: خط ۱٬۱۳۰:
         .MatchAlefHamza = False
         .MatchAlefHamza = False
         .MatchControl = False
         .MatchControl = False
         .MatchWildcards = False
         .MatchAllWordForms = False
         .MatchSoundsLike = False
         .MatchSoundsLike = False
         .MatchAllWordForms = False
         .MatchWildcards = True
     End With
     End With
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.Find.Execute Replace:=wdReplaceAll
     With Selection.Find
     With Selection.Find
         .Text = "7"
         .Text = "(" & ChrW(1593) & ChrW(1604) & ChrW(1740) & ChrW(1607) & " " _
         .Replacement.Text = ChrW(1783)
            & ChrW(1575) & ChrW(1604) & ChrW(1587) & ChrW(1604) & ChrW(1575) & _
            ChrW(1605) & ")"
         .Replacement.Text = "(" & ChrW(1593) & ")"
         .Forward = True
         .Forward = True
         .Wrap = wdFindContinue
         .Wrap = wdFindContinue
خط ۹۹۵: خط ۱٬۱۴۹:
         .MatchAlefHamza = False
         .MatchAlefHamza = False
         .MatchControl = False
         .MatchControl = False
         .MatchWildcards = False
         .MatchAllWordForms = False
         .MatchSoundsLike = False
         .MatchSoundsLike = False
         .MatchAllWordForms = False
         .MatchWildcards = True
     End With
     End With
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.Find.Execute Replace:=wdReplaceAll
     With Selection.Find
     With Selection.Find
         .Text = "8"
         .Text = ChrW(1593) & ChrW(1604) & ChrW(1740) & ChrW(1607) & ChrW(1605 _
         .Replacement.Text = ChrW(1784)
            ) & " " & ChrW(1575) & ChrW(1604) & ChrW(1587) & ChrW(1604) & ChrW( _
            1575) & ChrW(1605)
         .Replacement.Text = "(" & ChrW(1593) & ")"
         .Forward = True
         .Forward = True
         .Wrap = wdFindContinue
         .Wrap = wdFindContinue
خط ۱٬۰۱۲: خط ۱٬۱۶۸:
         .MatchAlefHamza = False
         .MatchAlefHamza = False
         .MatchControl = False
         .MatchControl = False
         .MatchWildcards = False
         .MatchAllWordForms = False
         .MatchSoundsLike = False
         .MatchSoundsLike = False
         .MatchAllWordForms = False
         .MatchWildcards = True
     End With
     End With
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.Find.Execute Replace:=wdReplaceAll
     With Selection.Find
     With Selection.Find
         .Text = "9"
         .Text = "(" & ChrW(1589) & ChrW(1604) & ChrW(1740) & " " & ChrW(1575) _
         .Replacement.Text = ChrW(1785)
            & 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
         .Forward = True
         .Wrap = wdFindContinue
         .Wrap = wdFindContinue
خط ۱٬۰۲۹: خط ۱٬۱۸۸:
         .MatchAlefHamza = False
         .MatchAlefHamza = False
         .MatchControl = False
         .MatchControl = False
         .MatchWildcards = False
         .MatchAllWordForms = False
         .MatchSoundsLike = False
         .MatchSoundsLike = False
         .MatchAllWordForms = False
         .MatchWildcards = True
     End With
     End With
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
     With Selection.Find
     With Selection.Find
         .Text = "0"
         .Text = "(" & ChrW(1593) & ChrW(1604) & ChrW(1610) & ChrW(1607) & _
         .Replacement.Text = ChrW(1776)
            ChrW(1605) & " " & ChrW(1575) & ChrW(1604) & ChrW(1587) & ChrW(1604) _
            & ChrW(1575) & ChrW(1605) & ")"
         .Replacement.Text = "(" & ChrW(1593) & ")"
         .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)
     With Selection.Find
 
         .Text = ChrW(1600) & " " & ChrW(1593) & ChrW(1604) & ChrW(1740) & _
'
            ChrW(1607) & " " & ChrW(1575) & ChrW(1604) & ChrW(1587) & ChrW(1604) _
' islahi irja'at
            & ChrW(1575) & ChrW(1605) & " " & ChrW(1600)
'
         .Replacement.Text = "(" & ChrW(1593) & ")"
'
    Selection.Copy
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
     With Selection.Find
         .Text = "<ref>."
         .Replacement.Text = "<ref>"
         .Forward = True
         .Forward = True
         .Wrap = wdFindAsk
         .Wrap = wdFindContinue
         .Format = False
         .Format = False
         .MatchCase = False
         .MatchCase = False
خط ۱٬۰۷۷: خط ۱٬۲۳۳:
     End With
     End With
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.Find.Execute Replace:=wdReplaceAll
   
     With Selection.Find
     With Selection.Find
         .Text = "<ref> "
         .Text = "(" & ChrW(1589) & ChrW(1604) & ChrW(1740) & " " & ChrW(1575) _
         .Replacement.Text = "<ref>"
            & 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
         .Forward = True
         .Wrap = wdFindAsk
         .Wrap = wdFindContinue
         .Format = False
         .Format = False
         .MatchCase = False
         .MatchCase = False
خط ۱٬۰۹۵: خط ۱٬۲۵۳:
     End With
     End With
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.Find.Execute Replace:=wdReplaceAll
   
     With Selection.Find
    Selection.MoveLeft Unit:=wdCharacter, Count:=7, Extend:=wdExtend
         .Text = ChrW(1600) & " " & ChrW(1589) & ChrW(1604) & ChrW(1610) & " " _
    Selection.Copy
            & ChrW(1575) & ChrW(1604) & ChrW(1604) & ChrW(1607) & " " & ChrW( _
    Selection.Find.ClearFormatting
            1593) & ChrW(1604) & ChrW(1610) & ChrW(1607) & " " & ChrW(1608) & _
    Selection.Find.Replacement.ClearFormatting
            ChrW(1570) & ChrW(1604) & ChrW(1607) & " " & ChrW(1600)
     With Selection.Find
         .Replacement.Text = "(" & ChrW(1589) & ")"
         .Text = " </ref>"
         .Replacement.Text = "</ref>"
         .Forward = True
         .Forward = True
         .Wrap = wdFindAsk
         .Wrap = wdFindContinue
         .Format = False
         .Format = False
         .MatchCase = False
         .MatchCase = False
خط ۱٬۱۱۸: خط ۱٬۲۷۴:
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.Find.Execute Replace:=wdReplaceAll


With Selection.Find
'
         .Text = "^p</ref>"
' adadha
         .Replacement.Text = "</ref>"
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
         .Text = "1"
         .Replacement.Text = ChrW(1777)
         .Forward = True
         .Forward = True
         .Wrap = wdFindAsk
         .Wrap = wdFindContinue
         .Format = False
         .Format = False
         .MatchCase = False
         .MatchCase = False
خط ۱٬۱۳۵: خط ۱٬۲۹۷:
     End With
     End With
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.Find.Execute Replace:=wdReplaceAll
'
' ta' arabi be ha
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
     With Selection.Find
     With Selection.Find
         .Text = ChrW(1577)
         .Text = "2"
         .Replacement.Text = ChrW(1607)
         .Replacement.Text = ChrW(1778)
         .Forward = True
         .Forward = True
         .Wrap = wdFindContinue
         .Wrap = wdFindContinue
خط ۱٬۱۵۹: خط ۱٬۳۱۴:
     End With
     End With
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.Find.Execute Replace:=wdReplaceAll
'
' hijri qamari
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
     With Selection.Find
     With Selection.Find
         .Text = " " & ChrW(1607) & ChrW(1602) & "."
         .Text = "3"
         .Replacement.Text = " " & ChrW(1602) & "."
         .Replacement.Text = ChrW(1779)
         .Forward = True
         .Forward = True
         .Wrap = wdFindContinue
         .Wrap = wdFindContinue
خط ۱٬۱۸۳: خط ۱٬۳۳۲:
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.Find.Execute Replace:=wdReplaceAll
     With Selection.Find
     With Selection.Find
         .Text = ChrW(1607) & ChrW(8205) & ". " & ChrW(1602) & "<"
         .Text = "4"
         .Replacement.Text = " " & ChrW(1602) & ".<"
         .Replacement.Text = ChrW(1780)
         .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)
     With Selection.Find
 
         .Text = "5"
'
         .Replacement.Text = ChrW(1781)
' 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
         .Forward = True
         .Wrap = wdFindContinue
         .Wrap = wdFindContinue
خط ۱٬۲۱۸: خط ۱٬۳۶۰:
         .MatchAlefHamza = False
         .MatchAlefHamza = False
         .MatchControl = False
         .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
         .MatchAllWordForms = False
         .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
     End With
     End With
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.Find.Execute Replace:=wdReplaceAll
'
' hazfe faseleye olguha
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
     With Selection.Find
     With Selection.Find
         .Text = "}}^p^p{{"
         .Text = "6"
         .Replacement.Text = "}}^p{{"
         .Replacement.Text = ChrW(1782)
         .Forward = True
         .Forward = True
         .Wrap = wdFindAsk
         .Wrap = wdFindContinue
         .Format = False
         .Format = False
         .MatchCase = False
         .MatchCase = False
خط ۱٬۲۴۷: خط ۱٬۳۸۲:
     End With
     End With
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.Execute Replace:=wdReplaceAll
    Application.Keyboard (1033)
'
' safhe wa jeld
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
     With Selection.Find
     With Selection.Find
         .Text = " " & ChrW(1589) & " "
         .Text = "7"
         .Replacement.Text = " " & ChrW(1589)
         .Replacement.Text = ChrW(1783)
         .Forward = True
         .Forward = True
         .Wrap = wdFindAsk
         .Wrap = wdFindContinue
         .Format = False
         .Format = False
         .MatchCase = False
         .MatchCase = False
خط ۱٬۲۷۴: خط ۱٬۴۰۰:
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.Find.Execute Replace:=wdReplaceAll
     With Selection.Find
     With Selection.Find
         .Text = " " & ChrW(1580) & " "
         .Text = "8"
         .Replacement.Text = " " & ChrW(1580)
         .Replacement.Text = ChrW(1784)
         .Forward = True
         .Forward = True
         .Wrap = wdFindAsk
         .Wrap = wdFindContinue
         .Format = False
         .Format = False
         .MatchCase = False
         .MatchCase = False
خط ۱٬۲۸۹: خط ۱٬۴۱۵:
         .MatchAllWordForms = False
         .MatchAllWordForms = False
     End With
     End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Application.Keyboard (1065)
'
' mutale'eye bishtar
'
'
     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 = "9"
            ) & " " & ChrW(1605) & ChrW(1606) & ChrW(1575) & ChrW(1576) & ChrW( _
         .Replacement.Text = ChrW(1785)
            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
         .Forward = True
         .Wrap = wdFindAsk
         .Wrap = wdFindContinue
         .Format = False
         .Format = False
         .MatchCase = False
         .MatchCase = False
خط ۱٬۳۲۱: خط ۱٬۴۳۳:
     End With
     End With
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.Find.Execute Replace:=wdReplaceAll
    Application.Keyboard (1065)
'
' (s) (a) (aj)
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
     With Selection.Find
     With Selection.Find
         .Text = " (" & ChrW(1589) & ")"
         .Text = "0"
         .Replacement.Text = "(" & ChrW(1589) & ")"
         .Replacement.Text = ChrW(1776)
         .Forward = True
         .Forward = True
         .Wrap = wdFindAsk
         .Wrap = wdFindContinue
         .Format = False
         .Format = False
         .MatchCase = False
         .MatchCase = False
خط ۱٬۳۴۶: خط ۱٬۴۵۰:
     End With
     End With
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.Find.Execute Replace:=wdReplaceAll
     With Selection.Find
   
         .Text = " (" & ChrW(1593) & ")"
 
         .Replacement.Text = "(" & ChrW(1593) & ")"
'
' islahi irja'at
'
'
    Selection.Copy
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
     With Selection.Find
         .Text = "<ref>."
         .Replacement.Text = "<ref>"
         .Forward = True
         .Forward = True
         .Wrap = wdFindAsk
         .Wrap = wdFindContinue
         .Format = False
         .Format = False
         .MatchCase = False
         .MatchCase = 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
     With Selection.Find
         .Text = " (" & ChrW(1587) & ")"
         .Text = "<ref>-"
         .Replacement.Text = "(" & ChrW(1587) & ")"
         .Replacement.Text = "<ref>"
         .Forward = True
         .Forward = True
         .Wrap = wdFindAsk
         .Wrap = wdFindContinue
         .Format = False
         .Format = False
         .MatchCase = False
         .MatchCase = False
خط ۱٬۳۸۱: خط ۱٬۴۹۶:
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.Find.Execute Replace:=wdReplaceAll
     With Selection.Find
     With Selection.Find
         .Text = " (" & ChrW(1593) & ChrW(1580) & ")"
         .Text = "<ref> "
         .Replacement.Text = "(" & ChrW(1593) & ChrW(1580) & ")"
         .Replacement.Text = "<ref>"
         .Forward = True
         .Forward = True
         .Wrap = wdFindAsk
         .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
         .Format = False
         .MatchCase = False
         .MatchCase = False
خط ۱٬۳۹۷: خط ۱٬۸۳۱:
     End With
     End With
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.Find.Execute Replace:=wdReplaceAll
    Application.Keyboard (1065)
End Sub
End Sub
</pre>
</pre>
Shamsoddin
مدیران
۳۹۱

ویرایش

برگرفته از «https://fa.wikipasokh.com/view/ویژه:تفاوت_گوشی_همراه/1671...36163»