Sub ScratchMacro()
'A basic Word Macro coded by Gregory K. Maxey
Dim oRng As Range
  Set oRng = ActiveDocument.Range
  With oRng.Find
    .Text = Chr(34)
    .Font.Bold = False
    While .Execute
      oRng.Select
      On Error Resume Next
      If oRng.Characters.Last.Next.Font.Bold = True Then oRng.Font.Bold = True
      If oRng.Characters.Last.Previous.Font.Bold = True Then oRng.Font.Bold = True
    Wend
  End With
lbl_Exit:
  Exit Sub
End Sub