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 |
||
| (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 {{ | .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 | ||
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