This macro will ask if I want to bold the word "Note:", but can I also find the all caps "NOTE:" and ask for confirmation to set it to proper along with the asking to bold?
Code: Select all
Sub BoldNote()
Selection.HomeKey Unit:=wdStory, Extend:=wdMove
With Selection.Find
.ClearFormatting
.Forward = True
.Wrap = wdFindStop
.MatchWildcards = True
.Text = "Note:"
While .Execute
If MsgBox(Prompt:="Bold this note?", _
Buttons:=vbYesNo + vbQuestion, _
Title:="Emphasize References") = vbYes Then
Selection.Style = ActiveDocument.Styles("Strong")
End If
Selection.Collapse wdCollapseEnd
Wend
End With
End Sub