Конец опроса символов документа???

[Vitaly1]

Подскажите, какое условие поставить вместо КонецДокумента, что бы из цикла выйти после последнего символа?

Код: Выделить всё

Selection.HomeKey Unit:=wdStory
    Do
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Loop Until КонецДокумента

[GSerg]

Видимо, сравнивать selection.range.start с document.range.end...

А мож просто ошибку отлавливать? Или задать for i=1 to document.range.end?

[Vitaly1]

спасибо, попробую