With oRng.Find With oDoc.Content.Find .Font.Bold = True End With Do While .Execute(FindText:="(\[*\])", MatchWildcards:=True, _ Format:=True)