Hi Igor

As far as I know, Word's object model does not expose any methods or
properties to allow you to select multiple ranges. As you said, you can do
it through the UI, but it's not possible in code.

Hope this helps.

Shauna Kelly.  Microsoft MVP.
http://www.shaunakelly.com/word

Hi Igor,

I usually recommend to use highlighting
as a substitute for a multiple selection.

Sub SetHighLight()
Dim rDcm As Range
Set rDcm = ActiveDocument.Range
With rDcm.Find
  .Text = "quick"
  While .Execute
     rDcm.HighlightColorIndex = wdYellow
  Wend
End With
End Sub

' now you can do whatever you want with the highliohted text.

Sub RemoveHighLight()
Dim rDcm As Range
Set rDcm = ActiveDocument.Range
With rDcm.Find
  .Text = ""
  .Highlight = True
  While .Execute
     If rDcm.HighlightColorIndex = wdYellow Then
        ' your code
        rDcm.HighlightColorIndex = wdNoHighlight
        rDcm.Collapse Direction:=wdCollapseEnd
        rDcm.End = ActiveDocument.Range.End
     End If
  Wend
End With
End Sub

In theory, there are limits,
if your doc contains all possible kinds of hightlighting.