Template:Wikifier paragrapher: Difference between revisions

From The Jolly Contrarian
Jump to navigation Jump to search
Created page with "Sub Paragrapher( Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "Paragraph ([0-9\(\)][!.,;: ]{1,})"..."
 
No edit summary
 
(One intermediate revision by the same user not shown)
Line 1: Line 1:
Sub Paragrapher(
Sub Paragrapher()
     Selection.Find.ClearFormatting
     Selection.Find.ClearFormatting
     Selection.Find.Replacement.ClearFormatting
     Selection.Find.Replacement.ClearFormatting
     With Selection.Find
     With Selection.Find
         .Text = "Paragraph ([0-9\(\)][!.,;: ]{1,})"
         .Text = "Paragraph ([0-9\(\)][!.,;: ]{1,})"
         .Replacement.Text = "Paragraph {{nycsaprov|\1}}"
         .Replacement.Text = "Paragraph <nowiki>{{</nowiki>{{{1}}}<nowiki>prov|\1}}</nowiki>"
         .Forward = True
         .Forward = True
         .Wrap = wdFindAsk
         .Wrap = wdFindAsk
Line 15: Line 15:
     End With
     End With
     Selection.Find.Execute Replace:=wdReplaceAll
     Selection.Find.Execute Replace:=wdReplaceAll
End Sub••••ˇˇˇˇ
End Sub

Latest revision as of 22:43, 20 January 2020

Sub Paragrapher()
   Selection.Find.ClearFormatting
   Selection.Find.Replacement.ClearFormatting
   With Selection.Find
       .Text = "Paragraph ([0-9\(\)][!.,;: ]{1,})"
       .Replacement.Text = "Paragraph {{{{{1}}}prov|\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