You cannot select non-contiguous items with VBA. You can select them sequentially, but then there would have to be some point in doing so. What do you want to do with them once found?
E.g. The following will highlight the texts so formatted:
Code:
Sub Macro1()
With Selection.Find
.ClearFormatting
With .Font
.Name = "Times New Roman"
.Size = 12
.Bold = True
End With
.Replacement.ClearFormatting
Options.DefaultHighlightColorIndex = wdYellow
.Replacement.Highlight = True
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute Replace:=wdReplaceAll
End With
End Sub