Template:Wikifier paragrapher: Difference between revisions
Jump to navigation
Jump to search
Amwelladmin (talk | contribs) (Created page with "Sub Paragrapher( Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "Paragraph ([0-9\(\)][!.,;: ]{1,})"...") |
Amwelladmin (talk | contribs) No edit summary |
||
| 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 {{ | .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 | End Sub | ||
Revision as of 22:42, 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