Template:Wikifier paragrapher

Revision as of 22:41, 20 January 2020 by Amwelladmin (talk | contribs) (Created page with "Sub Paragrapher( Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "Paragraph ([0-9\(\)][!.,;: ]{1,})"...")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)

Sub Paragrapher(

   Selection.Find.ClearFormatting
   Selection.Find.Replacement.ClearFormatting
   With Selection.Find
       .Text = "Paragraph ([0-9\(\)][!.,;: ]{1,})"
       .Replacement.Text = "Paragraph \1"
       .Forward = True
       .Wrap = wdFindAsk
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchAllWordForms = False
       .MatchSoundsLike = False
       .MatchWildcards = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll

End Sub••••ˇˇˇˇ