Find command (looking for formatted text -- in this case bold text): Return to List

  Selection.Find.ClearFormatting
  
Selection.Find.Font.Bold = True
  
With Selection.Find
  
    .Text = ""
  
    .Replacement.Text = ""
  
    .Forward = True
  
    .Wrap = wdFindContinue
  
    .Format = True
  
    .MatchCase = False
  
    .MatchWholeWord = False
  
    .MatchWildcards = False
  
    .MatchSoundsLike = False
  
    .MatchAllWordForms = False
  
End With
  
Selection.Find.Execute