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

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

۷۰۰ بایت اضافه‌شده ، ‏۱۱ اکتبر ۲۰۲۰

بدون خلاصۀ ویرایش

۸٬۳۵۱

ویرایش

@@ خط ۸۴: / خط ۸۴: @@
      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 = 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
+    Selection.Find.Execute Replace:=wdReplaceAll
+    Application.Keyboard (1033)
 '