Sub SearchInQuotes()
Dim bWC As Boolean
Dim oRng As Word.Range
Set oRng = ActiveDocument.Range
With oRng.Find
   .MatchWildcards = True
   'find curly
   '.Text = "^0147*^0148"
   'Find straight
   '.Text = "^34*^34"
   'Find both
   .Text = "[^34^0147]*[^34^0148]"
   While .Execute
     oRng.Characters(1).Delete
     oRng.Characters.Last.Delete
     oRng.Font.Bold = True
     oRng.Collapse wdCollapseEnd
   Wend
End With
End Sub