84,214
edits
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 |