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

Вход

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

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

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

Использование свойства или метода Next

Для перебора элементов документа в диапазоне подходит также свойство и метод Next. В следующем примере организуется перебор слов с приращением размера шрифта для каждого слова на 1 пт. При этом для переопределения переменной myRange (чтобы она ссылалась на очередное слово) используется метод Next.

Set myRange = ActiveDocument.Words(1)
For i = 1 To 5
myRange.Font.Size = myRange.Font.Size + i
Set myRange = myRange.Next(Unit := wdWord, Count:=1)
Next i

А вот пример перебора абзацев с заменой выравнивания ?по центру? на выравнивание ?по левому краю?. Здесь для переопределения переменной my Range (чтобы она ссылалась на очередной абзац) используется свойство Next.

Set myRange = ActiveDocument.Paragraphs(1).Range
For i = 1 To 5
     If myRange.Paragraphs(1).Alignment = wdAlignParagraphCenter Then
          myRange.Paragraphs(1).Alignment = wdAlignParagraphLeft
     End If
     Set myRange = myRange.Paragraphs(1).Next.Range
Next i

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

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