۸٬۳۵۱
ویرایش
ویکی پاسخ:نکات ویرایشی: تفاوت میان نسخهها
←ماکرو
Nazarzadeh (بحث | مشارکتها) (←ماکرو) |
Nazarzadeh (بحث | مشارکتها) (←ماکرو) |
||
| خط ۳۳: | خط ۳۳: | ||
Sub wikipasokh() | Sub wikipasokh() | ||
' | ' | ||
' | ' irja'at | ||
' | ' | ||
' | ' | ||
| خط ۶۱: | خط ۶۱: | ||
Application.ScreenUpdating = True | Application.ScreenUpdating = True | ||
' | |||
' fasiliyi paragrafha | |||
' | |||
With Selection.Find | With Selection.Find | ||
.Text = "^p" | .Text = "^p" | ||
| خط ۸۰: | خط ۸۲: | ||
Selection.Find.Execute Replace:=wdReplaceAll | Selection.Find.Execute Replace:=wdReplaceAll | ||
' | |||
' taghayi narmafzar | |||
' | |||
Selection.Find.ClearFormatting | Selection.Find.ClearFormatting | ||
| خط ۱۲۰: | خط ۱۲۵: | ||
Application.Keyboard (1033) | Application.Keyboard (1033) | ||
Selection.Find.ClearFormatting | Selection.Find.ClearFormatting | ||
Selection.Find.Replacement.ClearFormatting | Selection.Find.Replacement.ClearFormatting | ||
| خط ۲۸۰: | خط ۲۸۰: | ||
End With | End With | ||
Selection.Find.Execute Replace:=wdReplaceAll | Selection.Find.Execute Replace:=wdReplaceAll | ||
' | |||
' ulguhayi awwal wa akhari matn | |||
' | |||
Selection.MoveUp Unit:=wdLine, Count:=41 | Selection.MoveUp Unit:=wdLine, Count:=41 | ||
| خط ۳۷۵: | خط ۳۷۸: | ||
' | ' | ||
' | ' hazfi interhayi izafa | ||
' | ' | ||
' | ' | ||
| خط ۴۰۳: | خط ۴۰۶: | ||
' | ' | ||
' | ' alayh al-salam | ||
' | ' | ||
' | ' | ||
| خط ۵۰۹: | خط ۵۱۲: | ||
' | ' | ||
' numbers | ' numbers | ||
' | ' | ||
' | ' | ||
| خط ۶۸۷: | خط ۶۹۰: | ||
' | ' | ||
' | ' islahi irja'at | ||
' | ' | ||
' | ' | ||
| خط ۷۷۰: | خط ۷۷۳: | ||
' | ' | ||
' | ' ta' arabi be ha | ||
' | ' | ||
' | ' | ||
| خط ۸۳۴: | خط ۸۳۷: | ||
Application.Keyboard (1065) | Application.Keyboard (1065) | ||
' | |||
' 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 | |||
End Sub | End Sub | ||
</pre> | </pre> | ||