۸٬۳۵۱
ویرایش
ویکی پاسخ:نکات ویرایشی: تفاوت میان نسخه‌ها
ابرابزار
Nazarzadeh (بحث | مشارکتها) (ابرابزار) |
|||
| خط ۱: | خط ۱: | ||
==انتخاب عنوان== | == انتخاب عنوان == | ||
* کلیدواژه(های) متن باید در عنوان بیاید و هر چه به ابتدای عنوان نزدیک تر بهتر. | * کلیدواژه (های) متن باید در عنوان بیاید و هر چه به ابتدای عنوان نزدیک تر بهتر. | ||
* در انتخاب عنوان به این که چه کلمات و عباراتی بهتر جستجو | * در انتخاب عنوان به این که چه کلمات و عباراتی بهتر جستجو می‌شوند توجه کنید. | ||
==مواردی که باید در متن‌ها اصلاح شوند== | == مواردی که باید در متن‌ها اصلاح شوند == | ||
* عدم هماهنگی میان | * عدم هماهنگی میان سؤال و پاسخ گاهی با اصلاح سؤال حل می‌شود و گاهی با اصلاح پاسخ! | ||
* موارد خارج از بحث که کمکی به بحث | * موارد خارج از بحث که کمکی به بحث نمی‌کنند. (مگر آن که بشود ربطی میان آنان و بحث برقرار کرد) | ||
* لحن خطابی | * لحن خطابی | ||
* استفاده از عبارات و کلماتی که حس دهه شصت را به مخاطب القا | * استفاده از عبارات و کلماتی که حس دهه شصت را به مخاطب القا می‌کند! | ||
* پرش از مراحل استدلال | * پرش از مراحل استدلال | ||
* ذکر شعر. (مگر آن که شعر خیلی مناسب باشد | * ذکر شعر. (مگر آن که شعر خیلی مناسب باشد) | ||
* | * پاراگراف‌های طولانی | ||
* آیات قرآن | * آیات قرآن حتماً آدرس داشته باشند. به این شکل (بقره: ۲۵۰) | ||
* متن و ترجمه آیات قرآن باید مجدد بارگزاری شود و به آنچه در متن هست اکتفا نگردد. | * متن و ترجمه آیات قرآن باید مجدد بارگزاری شود و به آنچه در متن هست اکتفا نگردد. | ||
* تمام آیات قرآن به صورت الگو مورد استفاده قرار می‌گیرند. همچنین آدرس سوره و آیه نیز در درون الگو و به صورت پانویس درون متنی بیاید. | * تمام آیات قرآن به صورت الگو مورد استفاده قرار می‌گیرند. همچنین آدرس سوره و آیه نیز در درون الگو و به صورت پانویس درون متنی بیاید. | ||
* حروف اختصاری «ش» و «ق» برای همه | * حروف اختصاری «ش» و «ق» برای همه تاریخ‌ها اصلاح و اضافه شود. | ||
==نکات شکلی== | == نکات شکلی == | ||
* وقتی نقل قول مستقیمی در حد چند خط (مثلا یک روایت طولانی) در متن هست باید به صورت مجزا از بقیه متن و به صورت تو رفته (با اضافه کردن :: به ابتدای پاراگراف) آورده شود. | * وقتی نقل قول مستقیمی در حد چند خط (مثلا یک روایت طولانی) در متن هست باید به صورت مجزا از بقیه متن و به صورت تو رفته (با اضافه کردن :: به ابتدای پاراگراف) آورده شود. | ||
==موارد ویرایشی== | == موارد ویرایشی == | ||
* اسامی کتب عربی باید با حروف عربی نوشته شوند. اگر روی متن | * اسامی کتب عربی باید با حروف عربی نوشته شوند. اگر روی متن «ابرابزار» اجرا می‌کنید حتماً تغییرات را بررسی کنید و اسامی کتب عربی را به عربی برگردانید. | ||
* اگر روی متن «ابرابزار» اجرا | * اگر روی متن «ابرابزار» اجرا می‌کنید حتماً تغییرات را بررسی کنید و موارد اشتباه را اصلاح و اطلاع دهید. | ||
* در بسیاری از موارد | * در بسیاری از موارد فهرست‌های ترتیبی استفاده شده‌اند در حالی که این فهرست‌ها فقط در مواردی باید استفاده شوند که ترتیبی میان موارد وجود دارد در غیر این صورت باید از فهرست بدون ترتیب استفاده کرد (مثل همین فهرست). | ||
==شناسه== | == شناسه == | ||
نکاتی پیرامون نوشتن شناسه | نکاتی پیرامون نوشتن شناسه | ||
* نباید در شناسه عبارتی مبهم که اطلاعات مشخص و معینی به مخاطب نمی‌دهد ذکر شود. | * نباید در شناسه عبارتی مبهم که اطلاعات مشخص و معینی به مخاطب نمی‌دهد ذکر شود. | ||
* شروع شناسه باید مثبت باشد نه منفی. | * شروع شناسه باید مثبت باشد نه منفی. | ||
* سرشاسه نباید با حروف اضافه، ماند «در» و «با» شروع شود. | * سرشاسه نباید با حروف اضافه، ماند «در» و «با» شروع شود. | ||
* سعی شود سرشناسه با عبارت اصلی مدخل، یا | * سعی شود سرشناسه با عبارت اصلی مدخل، یا نزدیک‌ترین عبارت به آن آغاز شود. | ||
* سعی شود سرشناسه همان پاسخی باشد که مخاطب سؤال، دنبال آن بوده است. | * سعی شود سرشناسه همان پاسخی باشد که مخاطب سؤال، دنبال آن بوده است. | ||
* سرشناسه باید جمله‌ای کوتاه باشد. | * سرشناسه باید جمله‌ای کوتاه باشد. | ||
==متن و ترجمه آیات== | == متن و ترجمه آیات == | ||
برای درج متن و ترجمه آیات قرآن، از پایگاه [http://wiki.ahlolbait.com/صفحهٔ_اصلی دانشنامه اسلامی]، بخش قرآن استفاده شود. در این بخش، پنج ترجمه است که کاربر ویکی مناسب‌ترین ترجمه را انتخاب خواهد کرد. | برای درج متن و ترجمه آیات قرآن، از پایگاه [http://wiki.ahlolbait.com/صفحهٔ_اصلی دانشنامه اسلامی]، بخش قرآن استفاده شود. در این بخش، پنج ترجمه است که کاربر ویکی مناسب‌ترین ترجمه را انتخاب خواهد کرد. | ||
==نکات نگارشی== | == نکات نگارشی == | ||
* اعراب کلماتی که برای مخاطب عام مشخص نیست در متن مقاله به‌ویژه شناسه مشخص شود. | * اعراب کلماتی که برای مخاطب عام مشخص نیست در متن مقاله به‌ویژه شناسه مشخص شود. | ||
* از تیترهای مانند «در قرآن» و «در روایات» دوری شود. | * پرهیز از این که چند فعل پشت سر هم بیایند، کنید! | ||
* | * از تیترهای مانند «در قرآن» و «در روایات» دوری شود و به جای آن به مطلبی که در قرآن و در روایات آمده اشاره شود. | ||
* نشانه‌های جمع در زبان فارسی با «ان» و | * آرایه‌های ادبی مانند تشبیه و استعاره (و از آن ها بدتر سجع و وزن و قافیه!) در ادبیات ویکی راه ندارد. | ||
* نشانه‌های جمع در زبان فارسی با «ان» و «ها» است؛ بنابراین، جمع‌هایی مانند معاصرین و معصومین(ع) درست نیست. | |||
==کارهای مورد نیاز== | == کارهای مورد نیاز == | ||
# مطالعه اجمالی متن و بررسی کلیت پاسخ | # مطالعه اجمالی متن و بررسی کلیت پاسخ | ||
## کیفیت کلی متن چقدر است؟ | ## کیفیت کلی متن چقدر است؟ | ||
## پاسخ قانع کننده هست؟ | ## پاسخ قانع کننده هست؟ | ||
# اجرای ماکرو | # اجرای ماکرو | ||
# بارگذاری با «ایجاد | # بارگذاری با «ایجاد مبدأ» و ذخیره با توضیح ویرایش «نسخه اولیه» | ||
# پرکردن الگوی {{tlx|شاخه}} با توجه به شاخه بندی پاسخ | # پرکردن الگوی {{tlx|شاخه}} با توجه به شاخه بندی پاسخ | ||
# ویرایش و اصلاح متن با توجه به موارد ذکر شده در بالا و اضافه کردن تیترها (با توضیح ویرایش) | # ویرایش و اصلاح متن با توجه به موارد ذکر شده در بالا و اضافه کردن تیترها (با توضیح ویرایش) | ||
# نوشتن شناسه (با توضیح ویرایش) (نکته: | # نوشتن شناسه (با توضیح ویرایش) (نکته: می‌توان از بخش نتیجه‌گیری که در انتهای متن می‌آید به عنوان بخشی از شناسه استفاده کرد) | ||
# اجرای ابرابزار | # اجرای ابرابزار | ||
# لینک کردن (با توضیح ویرایش) | # لینک کردن (با توضیح ویرایش) | ||
==قالب مقاله== | == قالب مقاله == | ||
<pre> | <pre> | ||
{{شروع متن}} | {{شروع متن}} | ||
| خط ۶۶: | خط ۶۶: | ||
{{پایان پاسخ}} | {{پایان پاسخ}} | ||
{{مطالعه بیشتر}} | {{مطالعه بیشتر}} | ||
== مطالعه بیشتر == | |||
{{پایان مطالعه بیشتر}} | {{پایان مطالعه بیشتر}} | ||
==منابع== | == منابع == | ||
{{پانویس}} | {{پانویس|۲}} | ||
{{شاخه | {{شاخه | ||
| شاخه اصلی = | | شاخه اصلی = | ||
|شاخه فرعی۱ = | |شاخه فرعی۱ = | ||
|شاخه فرعی۲ = | |شاخه فرعی۲ = | ||
|شاخه فرعی۳ = | |شاخه فرعی۳ = | ||
}} | }} | ||
{{تکمیل مقاله | {{تکمیل مقاله | ||
| شناسه = | | شناسه = | ||
| تیترها = | | تیترها = | ||
| ویرایش = | | ویرایش = | ||
| لینک‌دهی = | | لینک‌دهی = | ||
| ناوبری = | | ناوبری = | ||
| نمایه = | | نمایه = | ||
| تغییر مسیر = | | تغییر مسیر = | ||
| بازبینی = | | بازبینی = | ||
| ارجاعات = | | ارجاعات = | ||
| تکمیل = | | تکمیل = | ||
| اولویت = | | اولویت = | ||
| کیفیت = | | کیفیت = | ||
}} | }} | ||
{{پایان متن}} | {{پایان متن}} | ||
</pre> | </pre> | ||
==ماکرو== | == ماکرو == | ||
ماکرویی که برای اصلاح | ماکرویی که برای اصلاح فایل‌های ورد به کار می‌رود از قرار زیر است. این ماکرو الگوهای مورد نیاز را به اول و آخر متن اضافه می‌کند. الگوهای سؤال، پاسخ، قرآن، مطالعه بیشتر، و بخش منابع را می‌افزاید؛ و ارجاعات را به شکل مدیا ویکی برمی‌گرداند. موارد جزئی دیگر هم در این ماکرو گنجانده شده. | ||
شما هم اگر در | شما هم اگر در فایل‌ها موردی می‌بینید که قابل اصلاح از طریق جستجو و جایگزینی هست اطلاع دهید تا به ماکرو اضافه شود. | ||
این متن باید همواره در حال به روز رسانی باشد اگر فکر | این متن باید همواره در حال به روز رسانی باشد اگر فکر می‌کنید این متن به روز نیست به[[کاربر:nazarzadeh]] یاداوری کنید. | ||
<pre style="direction:ltr; font-size: 70%"> | <pre style="direction:ltr; font-size: 70%"> | ||
| خط ۱۱۵: | خط ۱۱۵: | ||
With ActiveDocument | With ActiveDocument | ||
For i = .Footnotes.Count To 1 Step -1 | For i = .Footnotes.Count To 1 Step -1 | ||
With .Footnotes(i) | |||
Set RngNt = .Range | |||
With RngNt | |||
'.End = .End - 1 | |||
'.Start = .Start + 2 | |||
End With | |||
Set RngTxt = .Reference | |||
With RngTxt | |||
.InsertAfter "<ref>" | |||
.Collapse wdCollapseEnd | |||
.InsertAfter "</ref>" | |||
.Collapse wdCollapseStart | |||
.FormattedText = RngNt.FormattedText | |||
End With | |||
.Delete | |||
End With | |||
Next | Next | ||
End With | End With | ||
| خط ۱۳۶: | خط ۱۳۶: | ||
' | ' | ||
' | ' fasiliyi paragrafha | ||
' | ' | ||
With Selection.Find | With Selection.Find | ||
.Text = "^p" | |||
.Replacement.Text = "^p^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 | |||
With Selection.Find | With Selection.Find | ||
.Text = " " | |||
.Replacement.Text = " " | |||
.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 | |||
Selection.Find.Execute Replace:=wdReplaceAll | |||
Selection.Find.ClearFormatting | |||
Selection.Find.Replacement.ClearFormatting | |||
With Selection.Find | |||
.Text = "^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.ClearFormatting | |||
Selection.Find.Replacement.ClearFormatting | |||
With Selection.Find | |||
.Text = "{Q" | |||
.Replacement.Text = "{{" & ChrW(1602) & ChrW(1585) & ChrW(1570) & _ | |||
ChrW(1606) & "|" | |||
.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 = "Q}" | |||
.Replacement.Text = "}}" | |||
.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 = "{S" | |||
.Replacement.Text = "^p{{" & ChrW(1587) & ChrW(1608) & ChrW(1575) & _ | |||
ChrW(1604) & "}}^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 | |||
With Selection.Find | |||
.Text = "S}" | |||
.Replacement.Text = "^p{{" & ChrW(1662) & ChrW(1575) & ChrW(1740) & _ | |||
ChrW(1575) & ChrW(1606) & " " & ChrW(1587) & ChrW(1608) & ChrW(1575) _ | |||
& ChrW(1604) & "}}^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 | |||
With Selection.Find | |||
.Text = "{J" | |||
.Replacement.Text = "^p{{" & ChrW(1662) & ChrW(1575) & ChrW(1587) & _ | |||
ChrW(1582) & "}}^p" | |||
.Forward = True | |||
.Wrap = wdFindContinue | |||
.Format = False | |||
.MatchCase = False | |||
.MatchWholeWord = False | |||
.MatchKashida = False | |||
.MatchDiacritics = False | |||
.MatchAlefHamza = False | |||
.MatchControl = False | |||
.MatchWildcards = False | |||
.MatchSoundsLike = False | |||
.MatchAllWordForms = False | |||
End With | |||
Selection.Find.Execute Replace:=wdReplaceAll | |||
With Selection.Find | |||
.Text = "J}" | |||
.Replacement.Text = "^p{{" & ChrW(1662) & ChrW(1575) & ChrW(1740) & _ | |||
ChrW(1575) & ChrW(1606) & " " & ChrW(1662) & ChrW(1575) & ChrW(1587) _ | |||
& ChrW(1582) & "}}^p" | |||
.Forward = True | |||
.Wrap = wdFindContinue | |||
.Format = False | |||
.MatchCase = False | |||
.MatchWholeWord = False | |||
.MatchKashida = False | |||
.MatchDiacritics = False | |||
.MatchAlefHamza = False | |||
.MatchControl = False | |||
.MatchWildcards = False | |||
.MatchSoundsLike = False | |||
.MatchAllWordForms = False | |||
End With | |||
Selection.Find.Execute Replace:=wdReplaceAll | |||
With Selection.Find | |||
.Text = "{M" | |||
.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 | |||
.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 = "M}" | |||
.Replacement.Text = "^p{{" & ChrW(1662) & ChrW(1575) & ChrW(1740) & _ | |||
ChrW(1575) & ChrW(1606) & " " & ChrW(1605) & ChrW(1591) & ChrW(1575) _ | |||
& ChrW(1604) & ChrW(1593) & ChrW(1607) & " " & ChrW(1576) & ChrW(_ | |||
1740) & ChrW(1588) & ChrW(1578) & ChrW(1585) & "}}^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 | |||
With Selection.Find | |||
.Text = "{T" | |||
.Replacement.Text = "==" | |||
.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 = "T}" | |||
.Replacement.Text = "==" | |||
.Forward = True | |||
.Wrap = wdFindContinue | |||
.Format = False | |||
.MatchCase = False | |||
.MatchWholeWord = False | |||
.MatchKashida = False | |||
.MatchDiacritics = False | |||
.MatchAlefHamza = False | |||
.MatchControl = False | |||
.MatchWildcards = False | |||
.MatchSoundsLike = False | |||
.MatchAllWordForms = False | |||
End With | |||
Selection.Find.Execute Replace:=wdReplaceAll | |||
Selection.HomeKey Unit:=wdLine | |||
Selection.MoveRight Unit:=wdCharacter, Count:=2, Extend:=wdExtend | |||
Selection.Find.ClearFormatting | |||
Selection.Find.Replacement.ClearFormatting | |||
With Selection.Find | |||
.Text = " (" & ChrW(1593) & ChrW(1580) & ")" | |||
.Replacement.Text = "(" & ChrW(1593) & ChrW(1580) & ")" | |||
.Forward = True | |||
.Wrap = wdFindContinue | |||
.Format = False | |||
.MatchCase = False | |||
.MatchWholeWord = False | |||
.MatchKashida = False | |||
.MatchDiacritics = False | |||
.MatchAlefHamza = False | |||
.MatchControl = False | |||
.MatchWildcards = False | |||
.MatchSoundsLike = False | |||
.MatchAllWordForms = False | |||
End With | |||
Selection.Find.ClearFormatting | |||
Selection.Find.Replacement.ClearFormatting | |||
With Selection.Find | |||
.Text = " (" & ChrW(1593) & ChrW(1580) & ")" | |||
.Replacement.Text = "(" & ChrW(1593) & ChrW(1580) & ")" | |||
.Forward = True | |||
.Wrap = wdFindContinue | |||
.Format = False | |||
.MatchCase = False | |||
.MatchWholeWord = False | |||
.MatchKashida = False | |||
.MatchDiacritics = False | |||
.MatchAlefHamza = False | |||
.MatchControl = False | |||
.MatchWildcards = False | |||
.MatchSoundsLike = False | |||
.MatchAllWordForms = False | |||
End With | |||
Selection.Find.ClearFormatting | |||
Selection.Find.Replacement.ClearFormatting | |||
With Selection.Find | |||
.Text = "S}" | |||
.Replacement.Text = "{{" & ChrW(1587) & ChrW(1608) & ChrW(1575) & _ | |||
ChrW(1604) & "}}" | |||
.Forward = True | |||
.Wrap = wdFindContinue | |||
.Format = False | |||
.MatchCase = False | |||
.MatchWholeWord = False | |||
.MatchKashida = False | |||
.MatchDiacritics = False | |||
.MatchAlefHamza = False | |||
.MatchControl = False | |||
.MatchWildcards = False | |||
.MatchSoundsLike = False | |||
.MatchAllWordForms = False | |||
End With | |||
Selection.Find.Execute Replace:=wdReplaceAll | |||
Selection.EndKey Unit:=wdLine | |||
Selection.MoveLeft Unit:=wdCharacter, Count:=2, Extend:=wdExtend | |||
Selection.Find.ClearFormatting | |||
Selection.Find.Replacement.ClearFormatting | |||
With Selection.Find | |||
.Text = "{S" | |||
.Replacement.Text = "^p{{" & ChrW(1662) & ChrW(1575) & ChrW(1740) & _ | |||
ChrW(1575) & ChrW(1606) & " " & ChrW(1587) & ChrW(1608) & ChrW(1575) _ | |||
& ChrW(1604) & "}}" | |||
.Forward = True | |||
.Wrap = wdFindContinue | |||
.Format = False | |||
.MatchCase = False | |||
.MatchWholeWord = False | |||
.MatchKashida = False | |||
.MatchDiacritics = False | |||
.MatchAlefHamza = False | |||
.MatchControl = False | |||
.MatchWildcards = False | |||
.MatchSoundsLike = False | |||
.MatchAllWordForms = False | |||
End With | |||
Selection.Find.Execute Replace:=wdReplaceAll | |||
Selection.HomeKey Unit:=wdLine | |||
Selection.MoveRight Unit:=wdCharacter, Count:=2, Extend:=wdExtend | |||
Selection.Find.ClearFormatting | |||
Selection.Find.Replacement.ClearFormatting | |||
With Selection.Find | |||
.Text = "J}" | |||
.Replacement.Text = "{{" & ChrW(1662) & ChrW(1575) & ChrW(1587) & _ | |||
ChrW(1582) & "}}^p" | |||
.Forward = True | |||
.Wrap = wdFindContinue | |||
.Format = False | |||
.MatchCase = False | |||
.MatchWholeWord = False | |||
.MatchKashida = False | |||
.MatchDiacritics = False | |||
.MatchAlefHamza = False | |||
.MatchControl = False | |||
.MatchWildcards = False | |||
.MatchSoundsLike = False | |||
.MatchAllWordForms = False | |||
End With | |||
Selection.Find.Execute Replace:=wdReplaceAll | |||
Selection.HomeKey Unit:=wdLine | |||
Selection.MoveRight Unit:=wdCharacter, Count:=2, Extend:=wdExtend | |||
Selection.Find.ClearFormatting | |||
Selection.Find.Replacement.ClearFormatting | |||
With Selection.Find | |||
.Text = "T}" | |||
.Replacement.Text = "^p==" | |||
.Forward = True | |||
.Wrap = wdFindContinue | |||
.Format = False | |||
.MatchCase = False | |||
.MatchWholeWord = False | |||
.MatchKashida = False | |||
.MatchDiacritics = False | |||
.MatchAlefHamza = False | |||
.MatchControl = False | |||
.MatchWildcards = False | |||
.MatchSoundsLike = False | |||
.MatchAllWordForms = False | |||
End With | |||
Selection.Find.Execute Replace:=wdReplaceAll | |||
Selection.EndKey Unit:=wdLine | |||
Selection.MoveLeft Unit:=wdCharacter, Count:=2, Extend:=wdExtend | |||
Selection.Find.ClearFormatting | |||
Selection.Find.Replacement.ClearFormatting | |||
With Selection.Find | |||
.Text = "{T" | |||
.Replacement.Text = "==^p" | |||
.Forward = True | |||
.Wrap = wdFindContinue | |||
.Format = False | |||
.MatchCase = False | |||
.MatchWholeWord = False | |||
.MatchKashida = False | |||
.MatchDiacritics = False | |||
.MatchAlefHamza = False | |||
.MatchControl = False | |||
.MatchWildcards = False | |||
.MatchSoundsLike = False | |||
.MatchAllWordForms = False | |||
End With | |||
Selection.Find.Execute Replace:=wdReplaceAll | |||
Selection.MoveDown Unit:=wdScreen, Count:=۱۰ | |||
Selection.MoveUp Unit:=wdLine, Count:=۱ | |||
Selection.HomeKey Unit:=wdLine | |||
Selection.MoveRight Unit:=wdCharacter, Count:=2, Extend:=wdExtend | |||
Selection.Copy | |||
Selection.Find.ClearFormatting | |||
Selection.Find.Replacement.ClearFormatting | |||
With Selection.Find | |||
.Text = "M}" | |||
.Replacement.Text = "{{" & ChrW(1605) & ChrW(1591) & ChrW(1575) & _ | |||
ChrW(1604) & ChrW(1593) & ChrW(1607) & " " & ChrW(1576) & ChrW(1740) _ | |||
& ChrW(1588) & ChrW(1578) & ChrW(1585) & "}}^p" | |||
.Forward = True | |||
.Wrap = wdFindContinue | |||
.Format = False | |||
.MatchCase = False | |||
.MatchWholeWord = False | |||
.MatchKashida = False | |||
.MatchDiacritics = False | |||
.MatchAlefHamza = False | |||
.MatchControl = False | |||
.MatchWildcards = False | |||
.MatchSoundsLike = False | |||
.MatchAllWordForms = False | |||
End With | |||
Selection.Find.Execute Replace:=wdReplaceAll | |||
Selection.Find.ClearFormatting | |||
Selection.Find.Replacement.ClearFormatting | |||
With Selection.Find | |||
.Text = "M}" | |||
.Replacement.Text = "{{" & ChrW(1605) & ChrW(1591) & ChrW(1575) & _ | |||
ChrW(1604) & ChrW(1593) & ChrW(1607) & " " & ChrW(1576) & ChrW(1740) _ | |||
& ChrW(1588) & ChrW(1578) & ChrW(1585) & "}}^p" | |||
.Forward = True | |||
.Wrap = wdFindContinue | |||
.Format = False | |||
.MatchCase = False | |||
.MatchWholeWord = False | |||
.MatchKashida = False | |||
.MatchDiacritics = False | |||
.MatchAlefHamza = False | |||
.MatchControl = False | |||
.MatchWildcards = False | |||
.MatchSoundsLike = False | |||
.MatchAllWordForms = False | |||
End With | |||
Selection.EndKey Unit:=wdLine | |||
Selection.MoveLeft Unit:=wdCharacter, Count:=2, Extend:=wdExtend | |||
Selection.Copy | |||
Selection.Find.ClearFormatting | |||
Selection.Find.Replacement.ClearFormatting | |||
With Selection.Find | |||
.Text = "{M" | |||
.Replacement.Text = "^p{{" & ChrW(1662) & ChrW(1575) & ChrW(1740) & _ | |||
ChrW(1575) & ChrW(1606) & " " & ChrW(1605) & ChrW(1591) & ChrW(1575) _ | |||
& ChrW(1604) & ChrW(1593) & ChrW(1607) & " " & ChrW(1576) & ChrW(_ | |||
1740) & ChrW(1588) & ChrW(1578) & ChrW(1585) & "}}" | |||
.Forward = True | |||
.Wrap = wdFindContinue | |||
.Format = False | |||
.MatchCase = False | |||
.MatchWholeWord = False | |||
.MatchKashida = False | |||
.MatchDiacritics = False | |||
.MatchAlefHamza = False | |||
.MatchControl = False | |||
.MatchWildcards = False | |||
.MatchSoundsLike = False | |||
.MatchAllWordForms = False | |||
End With | |||
Selection.Find.Execute Replace:=wdReplaceAll | |||
Selection.Find.ClearFormatting | |||
Selection.Find.Replacement.ClearFormatting | |||
With Selection.Find | |||
.Text = "{M" | |||
.Replacement.Text = "^p{{" & ChrW(1662) & ChrW(1575) & ChrW(1740) & _ | |||
ChrW(1575) & ChrW(1606) & " " & ChrW(1605) & ChrW(1591) & ChrW(1575) _ | |||
& ChrW(1604) & ChrW(1593) & ChrW(1607) & " " & ChrW(1576) & ChrW(_ | |||
1740) & ChrW(1588) & ChrW(1578) & ChrW(1585) & "}}" | |||
.Forward = True | |||
.Wrap = wdFindContinue | |||
.Format = False | |||
.MatchCase = False | |||
.MatchWholeWord = False | |||
.MatchKashida = False | |||
.MatchDiacritics = False | |||
.MatchAlefHamza = False | |||
.MatchControl = False | |||
.MatchWildcards = False | |||
.MatchSoundsLike = False | |||
.MatchAllWordForms = False | |||
End With | |||
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(۱۵۷۸) & _ | |||
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 | |||
' | ' | ||
' ulguhayi awwal wa akhari matn | ' 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:="{{پانویس}}" | |||
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(_ | |||
۱۷۷۷) & " = " | |||
Selection.TypeParagraph | |||
Selection.TypeText Text:="|" & ChrW(1588) & ChrW(1575) & ChrW(1582) & ChrW _ | |||
(1607) & " " & ChrW(1601) & ChrW(1585) & ChrW(1593) & ChrW(1740) & ChrW(_ | |||
۱۷۷۸) & " = " | |||
Selection.TypeParagraph | |||
Selection.TypeText Text:="|" & ChrW(1588) & ChrW(1575) & ChrW(1582) & ChrW _ | |||
(1607) & " " & ChrW(1601) & ChrW(1585) & ChrW(1593) & ChrW(1740) & ChrW(_ | |||
۱۷۷۹) & " = " | |||
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(۱۵۸۸) & " = " | |||
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) & _ | |||
"}}" | |||
' | ' | ||
| خط ۷۵۵: | خط ۷۵۳: | ||
' | ' | ||
Selection.HomeKey Unit:=wdStory | Selection.HomeKey Unit:=wdStory | ||
With Selection.Find | |||
.Text = "^p^p^p" | |||
.Replacement.Text = "^p^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 | |||
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 | |||
.Text = ChrW(8204) & " " & ChrW(1600) & " " & ChrW(1593) & ChrW(1604) _ | |||
& ChrW(1610) & ChrW(1607) & " " & ChrW(1575) & ChrW(1604) & ChrW(_ | |||
1587) & ChrW(1604) & ChrW(1575) & ChrW(1605) & " " & ChrW(1600) | |||
.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 | |||
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 | |||
.Text = " " & ChrW(1600) & " " & ChrW(1593) & ChrW(1604) & ChrW(1610) _ | |||
& ChrW(1607) & " " & ChrW(1575) & ChrW(1604) & ChrW(1587) & ChrW(_ | |||
1604) & ChrW(1575) & ChrW(1605) & " " & ChrW(1600) | |||
.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 | |||
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 | |||
.Text = " " & ChrW(1600) & " " & ChrW(1593) & ChrW(1604) & ChrW(1610) _ | |||
& ChrW(1607) & ChrW(1605) & " " & ChrW(1575) & ChrW(1604) & ChrW(_ | |||
1587) & ChrW(1604) & ChrW(1575) & ChrW(1605) & " " & ChrW(1600) | |||
.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 | |||
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 | |||
.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(1600) | |||
.Replacement.Text = " (" & ChrW(1589) & ")" | |||
.Forward = True | |||
.Wrap = wdFindContinue | |||
.Format = False | |||
.MatchCase = False | |||
.MatchWholeWord = False | |||
.MatchKashida = False | |||
.MatchDiacritics = False | |||
.MatchAlefHamza = False | |||
.MatchControl = False | |||
.MatchWildcards = False | |||
.MatchSoundsLike = False | |||
.MatchAllWordForms = False | |||
End With | |||
Selection.Find.Execute Replace:=wdReplaceAll | |||
Selection.Find.ClearFormatting | |||
Selection.Find.Replacement.ClearFormatting | |||
With Selection.Find | |||
.Text = ChrW(1600) & " " & ChrW(1587) & ChrW(1604) & ChrW(1575) & _ | |||
ChrW(1605) & " " & ChrW(1575) & ChrW(1604) & ChrW(1604) & ChrW(1607) _ | |||
& " " & ChrW(1593) & ChrW(1604) & ChrW(1610) & ChrW(1607) & ChrW(_ | |||
1575) & " " & 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 | |||
With Selection.Find | |||
.Text = ChrW(1600) & " " & ChrW(1593) & ChrW(1580) & ChrW(1604) & " " _ | |||
& ChrW(1575) & ChrW(1604) & ChrW(1604) & ChrW(1607) & " " & ChrW(_ | |||
1578) & ChrW(1593) & ChrW(1575) & ChrW(1604) & ChrW(1610) & " " & _ | |||
ChrW(1601) & ChrW(1585) & ChrW(1580) & ChrW(1607) & " " & ChrW(1600) | |||
.Replacement.Text = "(" & ChrW(1593) & ChrW(1580) & ")" | |||
.Forward = True | |||
.Wrap = wdFindContinue | |||
.Format = False | |||
.MatchCase = False | |||
.MatchWholeWord = False | |||
.MatchKashida = False | |||
.MatchDiacritics = False | |||
.MatchAlefHamza = False | |||
.MatchControl = False | |||
.MatchWildcards = False | |||
.MatchSoundsLike = False | |||
.MatchAllWordForms = False | |||
End With | |||
Selection.Find.Execute Replace:=wdReplaceAll | |||
Selection.Find.ClearFormatting | |||
Selection.Find.Replacement.ClearFormatting | |||
With Selection.Find | |||
.Text = ChrW(1600) & " " & ChrW(1593) & ChrW(1580) & ChrW(1604) & " " _ | |||
& ChrW(1575) & ChrW(1604) & ChrW(1604) & ChrW(1607) & " " & ChrW(_ | |||
1578) & ChrW(1593) & ChrW(1575) & ChrW(1604) & ChrW(1610) & " " & _ | |||
ChrW(1601) & ChrW(1585) & ChrW(1580) & ChrW(1607) & " " & ChrW(1575) _ | |||
& ChrW(1604) & ChrW(1588) & ChrW(1585) & ChrW(1610) & ChrW(1601) & _ | |||
" " & ChrW(1600) | |||
.Replacement.Text = "(" & ChrW(1593) & ChrW(1580) & ")" | |||
.Forward = True | |||
.Wrap = wdFindContinue | |||
.Format = False | |||
.MatchCase = False | |||
.MatchWholeWord = False | |||
.MatchKashida = False | |||
.MatchDiacritics = False | |||
.MatchAlefHamza = False | |||
.MatchControl = False | |||
.MatchWildcards = False | |||
.MatchSoundsLike = False | |||
.MatchAllWordForms = False | |||
End With | |||
Selection.Find.Execute Replace:=wdReplaceAll | |||
With Selection.Find | |||
.Text = ChrW(1600) & " " & ChrW(1589) & ChrW(1604) & ChrW(1610) & " " _ | |||
& ChrW(1575) & ChrW(1604) & ChrW(1604) & ChrW(1607) & " " & ChrW(_ | |||
1593) & ChrW(1604) & ChrW(1610) & ChrW(1607) & " " & ChrW(1608) & _ | |||
" " & ChrW(1570) & ChrW(1604) & ChrW(1607) & " " & ChrW(1608) & " " _ | |||
& ChrW(1587) & ChrW(1604) & ChrW(1605) & " " & ChrW(1600) | |||
.Replacement.Text = "(" & ChrW(1589) & ")" | |||
.Forward = True | |||
.Wrap = wdFindContinue | |||
.Format = False | |||
.MatchCase = False | |||
.MatchWholeWord = False | |||
.MatchKashida = False | |||
.MatchDiacritics = False | |||
.MatchAlefHamza = False | |||
.MatchControl = False | |||
.MatchWildcards = False | |||
.MatchSoundsLike = False | |||
.MatchAllWordForms = False | |||
End With | |||
Selection.Find.Execute Replace:=wdReplaceAll | |||
With Selection.Find | |||
.Text = ChrW(1600) & " " & ChrW(1589) & ChrW(1604) & ChrW(1610) & " " _ | |||
& ChrW(1575) & ChrW(1604) & ChrW(1604) & ChrW(1607) & " " & ChrW(_ | |||
1593) & ChrW(1604) & ChrW(1610) & ChrW(1607) & " " & ChrW(1608) & _ | |||
" " & ChrW(1570) & ChrW(1604) & ChrW(1607) & " " & ChrW(1608) & " " _ | |||
& ChrW(1587) & ChrW(1604) & ChrW(1605) & " " & ChrW(1600) | |||
.Replacement.Text = "(" & ChrW(1587) & ")" | |||
.Forward = True | |||
.Wrap = wdFindContinue | |||
.Format = False | |||
.MatchCase = False | |||
.MatchWholeWord = False | |||
.MatchKashida = False | |||
.MatchDiacritics = False | |||
.MatchAlefHamza = False | |||
.MatchControl = False | |||
.MatchWildcards = False | |||
.MatchSoundsLike = False | |||
.MatchAllWordForms = False | |||
End With | |||
Selection.Find.Execute Replace:=wdReplaceAll | |||
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 | |||
Selection.Find.ClearFormatting | |||
Selection.Find.Replacement.ClearFormatting | |||
With Selection.Find | |||
.Text = "(" & ChrW(1593) & ChrW(1580) & ChrW(1604) & " " & ChrW(1575) _ | |||
& ChrW(1604) & ChrW(1604) & ChrW(1607) & " " & ChrW(1578) & ChrW(_ | |||
1593) & ChrW(1575) & ChrW(1604) & ChrW(1610) & " " & ChrW(1601) & _ | |||
ChrW(1585) & ChrW(1580) & ChrW(1607) & ")" | |||
.Replacement.Text = "(" & ChrW(1593) & ChrW(1580) & ")" | |||
.Forward = True | |||
.Wrap = wdFindContinue | |||
.Format = False | |||
.MatchCase = False | |||
.MatchWholeWord = False | |||
.MatchKashida = False | |||
.MatchDiacritics = False | |||
.MatchAlefHamza = False | |||
.MatchControl = False | |||
.MatchWildcards = False | |||
.MatchSoundsLike = False | |||
.MatchAllWordForms = False | |||
End With | |||
Selection.Find.Execute Replace:=wdReplaceAll | |||
With Selection.Find | |||
.Text = ChrW(1600) & " " & ChrW(1589) & ChrW(1604) & ChrW(1740) & " " _ | |||
& ChrW(1575) & ChrW(1604) & ChrW(1604) & ChrW(1607) & " " & ChrW(_ | |||
1593) & ChrW(1604) & ChrW(1740) & ChrW(1607) & " " & ChrW(1608) & _ | |||
" " & ChrW(1570) & ChrW(1604) & ChrW(1607) & " " & ChrW(1608) & " " _ | |||
& ChrW(1587) & ChrW(1604) & ChrW(1605) & " " & ChrW(1600) | |||
.Replacement.Text = "(" & ChrW(1589) & ")" | |||
.Forward = True | |||
.Wrap = wdFindContinue | |||
.Format = False | |||
.MatchCase = False | |||
.MatchWholeWord = False | |||
.MatchKashida = False | |||
.MatchDiacritics = False | |||
.MatchAlefHamza = False | |||
.MatchControl = False | |||
.MatchWildcards = False | |||
.MatchSoundsLike = False | |||
.MatchAllWordForms = False | |||
End With | |||
Selection.Find.Execute Replace:=wdReplaceAll | |||
Selection.Find.ClearFormatting | |||
Selection.Find.Replacement.ClearFormatting | |||
With Selection.Find | |||
.Text = "-" & ChrW(1593) & ChrW(1604) & ChrW(1740) & ChrW(1607) & _ | |||
ChrW(1605) & " " & 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 | |||
.MatchAllWordForms = False | |||
.MatchSoundsLike = False | |||
.MatchWildcards = True | |||
End With | |||
Selection.Find.Execute Replace:=wdReplaceAll | |||
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 | |||
.MatchAllWordForms = False | |||
.MatchSoundsLike = False | |||
.MatchWildcards = True | |||
End With | |||
Selection.Find.Execute Replace:=wdReplaceAll | |||
With Selection.Find | |||
.Text = ChrW(1593) & ChrW(1604) & ChrW(1740) & ChrW(1607) & ChrW(1605 _ | |||
) & " " & 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 | |||
.MatchAllWordForms = False | |||
.MatchSoundsLike = False | |||
.MatchWildcards = True | |||
End With | |||
Selection.Find.Execute Replace:=wdReplaceAll | |||
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) & ")" | |||
.Replacement.Text = "(" & ChrW(1589) & ")" | |||
.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 | |||
Selection.Find.ClearFormatting | |||
Selection.Find.Replacement.ClearFormatting | |||
With Selection.Find | |||
.Text = "(" & ChrW(1593) & ChrW(1604) & ChrW(1610) & ChrW(1607) & _ | |||
ChrW(1605) & " " & 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 | |||
With Selection.Find | |||
.Text = ChrW(1600) & " " & ChrW(1593) & ChrW(1604) & ChrW(1740) & _ | |||
ChrW(1607) & " " & ChrW(1575) & ChrW(1604) & ChrW(1587) & ChrW(1604) _ | |||
& ChrW(1575) & ChrW(1605) & " " & ChrW(1600) | |||
.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(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) & ")" | |||
.Replacement.Text = "(" & ChrW(1589) & ")" | |||
.Forward = True | |||
.Wrap = wdFindContinue | |||
.Format = False | |||
.MatchCase = False | |||
.MatchWholeWord = False | |||
.MatchKashida = False | |||
.MatchDiacritics = False | |||
.MatchAlefHamza = False | |||
.MatchControl = False | |||
.MatchWildcards = False | |||
.MatchSoundsLike = False | |||
.MatchAllWordForms = False | |||
End With | |||
Selection.Find.Execute Replace:=wdReplaceAll | |||
With Selection.Find | |||
.Text = ChrW(1600) & " " & ChrW(1589) & ChrW(1604) & ChrW(1610) & " " _ | |||
& ChrW(1575) & ChrW(1604) & ChrW(1604) & ChrW(1607) & " " & ChrW(_ | |||
1593) & ChrW(1604) & ChrW(1610) & ChrW(1607) & " " & ChrW(1608) & _ | |||
ChrW(1570) & ChrW(1604) & ChrW(1607) & " " & ChrW(1600) | |||
.Replacement.Text = "(" & ChrW(1589) & ")" | |||
.Forward = True | |||
.Wrap = wdFindContinue | |||
.Format = False | |||
.MatchCase = False | |||
.MatchWholeWord = False | |||
.MatchKashida = False | |||
.MatchDiacritics = False | |||
.MatchAlefHamza = False | |||
.MatchControl = False | |||
.MatchWildcards = False | |||
.MatchSoundsLike = False | |||
.MatchAllWordForms = False | |||
End With | |||
Selection.Find.Execute Replace:=wdReplaceAll | |||
' | ' | ||
| خط ۱٬۲۴۴: | خط ۱٬۲۴۲: | ||
' | ' | ||
' | ' | ||
Selection.Find.ClearFormatting | |||
Selection.Find.Replacement.ClearFormatting | |||
With Selection.Find | |||
.Text = "۱" | |||
.Replacement.Text = ChrW(1777) | |||
.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 = "۲" | |||
.Replacement.Text = ChrW(1778) | |||
.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 = "۳" | |||
.Replacement.Text = ChrW(1779) | |||
.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 = "۴" | |||
.Replacement.Text = ChrW(1780) | |||
.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 = "۵" | |||
.Replacement.Text = ChrW(1781) | |||
.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 = "۶" | |||
.Replacement.Text = ChrW(1782) | |||
.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 = "۷" | |||
.Replacement.Text = ChrW(1783) | |||
.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 = "۸" | |||
.Replacement.Text = ChrW(1784) | |||
.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 = "۹" | |||
.Replacement.Text = ChrW(1785) | |||
.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 = "۰" | |||
.Replacement.Text = ChrW(1776) | |||
.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.Copy | |||
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 | |||
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 = "<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 | |||
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 | 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 | |||
' | ' | ||
| خط ۱٬۵۲۱: | خط ۱٬۵۱۸: | ||
' | ' | ||
' | ' | ||
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 | ' 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 | ' 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 | |||
' | ' | ||
| خط ۱٬۶۰۹: | خط ۱٬۶۰۵: | ||
' | ' | ||
' | ' | ||
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 | |||
' | ' | ||
| خط ۱٬۶۳۵: | خط ۱٬۶۳۰: | ||
' | ' | ||
' | ' | ||
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 | |||
' | ' | ||
| خط ۱٬۶۷۷: | خط ۱٬۶۷۱: | ||
' | ' | ||
' | ' | ||
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 | |||
' | ' | ||
| خط ۱٬۷۰۸: | خط ۱٬۷۰۱: | ||
' | ' | ||
' | ' | ||
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 | |||
End Sub | End Sub | ||
</pre> | </pre> | ||