Как обозначить конец текста в макросе

[Chudо]

Добрый день)

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

[viter.alex]

Где цикл? Окончить можно по разному, смотря как цикл организован. Самый простой метод проверять, что не вышли за последний символ. А можно и вообще перебирать только символы в тексте, а можно...
Покажи код цикла, который нужно закончить

[Chudо]

Цикл очень простой:

Do
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=1
Selection.Font.Color = wdColorBlue
Selection.MoveRight Unit:=wdCharacter, Count:=2
Loop

А какое ставить условие и как его проверять - не знаю.

[Son Of Pain]

http://word.mvps.org/faqs/macrosvba/...AtEndOfDoc.htm

[shanemac51]

не уверена, но возможно так
зависит от того где выделен начальный кусок текста, вернее где стоит курсор

Sub mm140310()
Dim j1
j1 = Len(Word.ActiveDocument.Content)
'Word.ActiveDocument
Do While j1 > 0
j1 = j1 - 1
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=1
Selection.Font.Color = wdColorRed
Selection.MoveRight Unit:=wdCharacter, Count:=2
Loop

End Sub