Sub PlainDefinition_FormatBold()
'Select one or more definitions with plain text and plain quotes and format bold
Dim rng As range
Application.ScreenUpdating = False
If selection.Type = wdSelectionIP Then
 'MsgBox Prompt:="You have not selected any text!"
 MsgBox "You have not selected any text!", vbExclamation, "Invalid selection"
 Exit Sub
End If
Set rng = selection.range
With rng.Find
   .ClearFormatting
   .Replacement.ClearFormatting
   .Forward = False
   .Wrap = wdFindStop
   .Format = True
   .MatchWildcards = True
   .text = "[""""]*[""""]" 'Find any text within quotes
   .Replacement.Font.Bold = True 'Replacement text is bold
   .Execute Replace:=wdReplaceAll
   .text = "\([""""]*[""""]\)" 'Find any text within quotes within brackets
   .Replacement.Font.Bold = True
   .Execute Replace:=wdReplaceAll
   End With
   Application.ScreenUpdating = True
  Set rng = Nothing
 End Sub