Quick VBA macro to bold keywords.

BoldKeywords.vba

Sub BoldKeywords()

    Dim triggers As Variant
    
    ' ------------------------------------------
    ' BEGIN EDIT-ME PART
    ' Help for non-geeks: each item is delimited by a comma, even at the end of a line
    ' each line break inside the array declaration needs an underscore at the end
    ' If you use apostrophes, they must be escaped, e.g. "Canada\'s"
    ' ------------------------------------------
    triggers = Array("canada", "canada\'s", _
    "#cdnpoli", "#lpc", "Liberal Party of Canada", "Liberal party", _
    "Justin Trudeau", "Trudeau", "@JustinTrudeau", "JT" _
    )
    
    ' ------------------------------------------
    ' END OF EDIT-ME PART
    ' ------------------------------------------
    
    Selection.find.ClearFormatting
    Selection.find.Replacement.ClearFormatting
    Selection.find.Replacement.Font.Bold = True
    
    For Each trigger In triggers
    
        With Selection.find
            .text = trigger
            .Replacement.text = ""
            .Forward = True
            .Wrap = wdFindContinue
            .Format = True
            .MatchCase = False
            .MatchWholeWord = True 'WHOLE WORD MATHCHING (if off, @CBCCanada would match for 'canada')
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = True
        End With
        Selection.find.Execute replace:=wdReplaceAll
    Next trigger
End Sub