ویکی پاسخ:نکات ویرایشی: تفاوت میان نسخه‌ها
Nazarzadeh (بحث | مشارکتها) بدون خلاصۀ ویرایش |
Nazarzadeh (بحث | مشارکتها) (←ماکرو) |
||
| خط ۳۲: | خط ۳۲: | ||
این متن باید همواره در حال به روز رسانی باشد اگر فکر می کنید این متن به روز نیست به [[کاربر:nazarzadeh]] یاداوری کنید. | این متن باید همواره در حال به روز رسانی باشد اگر فکر می کنید این متن به روز نیست به [[کاربر:nazarzadeh]] یاداوری کنید. | ||
<pre style="direction:ltr; font-size: | <pre style="direction:ltr; font-size: 60%"> | ||
Sub wikipasokh() | Sub wikipasokh() | ||
' | ' | ||
| خط ۴۱۴: | خط ۴۱۴: | ||
' | ' | ||
' alayh al-salam | ' alayh al-salam wa mawaridi mushabih | ||
' | ' | ||
' | ' | ||
| خط ۵۱۸: | خط ۵۱۸: | ||
End With | End With | ||
Selection.Find.Execute Replace:=wdReplaceAll | 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 | |||
Application.Keyboard (1065) | |||
' | ' | ||
' numbers | ' numbers | ||