I have a simple drop down menu and right-cliked it -> Exit and selected my macro (posted below). But when I select an item from the menu, nothing happens.
Code:
Public Sub Test1()
With ActiveDocument.Content.Find
.Text = "BOLD"
.MatchWildcards = True
.MatchCase = True
.Replacement.Font.Bold = True
.Execute Replace:=wdReplaceAll
End With
End Sub