Добавить слова в Selection

[viod]

Здравствуйте.
Есть задача выделить несколько слов. Слова идентифицируются своими номерами в коллекции Words. Не могу выделить несколько слов сразу.
Подскажите решение, пожалуйста.

[CaptainNemo]

With ActiveDocument
    .Range(.Words(1).Start, .Words(6).End).Select
End With

[viter.alex]

CaptainNemo, совершенно верно!
Если Вы, viod, хотите выделить несколько слов в разных частях документа, то через макрос это, к сожалению, не получится.

[viod]

Спасибо, товарищи!!!!!!!!!!