The Jolly Contrarian:Macro

From The Jolly Contrarian
Jump to navigation Jump to search
' Wikifier Macro
'
'
   Selection.Find.ClearFormatting
   Selection.Find.Replacement.ClearFormatting
   With Selection.Find
       .Text = "Cash"
       .Replacement.Text = "{{nycsaprov|Cash}}"
       .Forward = True
       .Wrap = wdFindContinue
       .Format = False
       .MatchCase = True
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
End Sub