Факультет Математики и Информатики ГрГУ: Использование оператора For Each...Next

Вход

Главная страница >> Учебный процесс >> Конспекты >> MS Office. Руководство программиста по Visual Basic для MS Office 97 >> Объекты Microsoft Word >> Работа с объектом Range >> Перебор абзацев в диапазоне >> Использование оператора For Each...Next

Сервер поддерживается
кафедрой информатики и вычислительной техники ГрГУ
тел. +375-(0)152-445-101
E-mail : kadan@grsu.grodno.by

[Назад] [Содержание ] [Вперед]

Использование оператора For Each...Next

Для перебора абзацев в диапазоне (равно как и элементов в наборе) рекомендуется оператор For Each...Next. Следующий пример иллюстрирует перебор первых пяти абзацев активного документа с добавлением текста перед каждым из них.

Set myDoc = ActiveDocument
Set myRange = rnyDoc.Range(Start := myDoc.Paragraphs(1).Range.Start, _
End:=myDoc.Paragraphs(5). Range. End)
For Each para In myRange.Paragraphs
para.Range.InsertBefore "Question:" & vbTab
Next para

Допустим, Вы хотите изменить этот код, чтобы организовать перебор абзацев, входящих во фрагмент, выделенный пользователем. В этом случае пригодится свойство Selection. Например, чтобы удалить в выделенных абзацах полужирное начертание шрифта:

For Each para In Selection.Paragraphs
para.Range.Bold = False
Next para

[Назад] [Содержание ] [Вперед]

Текст пособия подготовлен на основе материалов книги
Microsoft Corporation. Руководство программиста по Visual Basic для Microsoft Office 97 / Пер. с англ. - М.: Издательский отдел "Русская Редакция" ТОО "Channel Trading Ltd.", 1997. - 544 с.: илл.
c Оригинальное издание на английском языке, Microsoft Corporation, 1997
c Русский перевод, Microsoft Corporation, 1997