Факультет Математики и Информатики ГрГУ: Работа с областями

Вход

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

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

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

Работа с областями

Область (story) содержит диапазон текста, отличного от того, что содержат другие текстовые области этого документа. Если документ, скажем, включает основной текст, сноски и верхние колонтитулы, он содержит область основного текста, область сносок и область верхних колонтитулов. Всего определено 11 типов областей, которым соответствуют следующие wdStoryType-константы: wdCommentsStory, wdEndnotesStory, wdEvenPagesFooterStory, wdEvenPagesHeaderStory, wdFirstPageFooterStory, wdFirstPageHeaderStory, wdFootnotesStory, wdMainTextStory, wdPrimaryFooterStory, wdPrimaryHeaderStory и wdTextFrameStory. Свойство StoryType позволяет определить тип области для конкретного диапазона, выделенного фрагмента или закладки. В следующем примере секция сносок в активном окне закрывается, если выделенный фрагмент находится в области сносок:

ActiveWindow.View.Type = wdNormalView
If Selection.StoryType = wdFootnotesStory Then ActiveWindow.ActivePane.Close

Набор StoryRanges содержит первый диапазон области для каждого типа области из числа имеющихся в документе. Используя метод NextStoryRange можно получить доступ к последующим областям. Вот пример поиска текста ?Microsoft Word? в каждой области активного документа и выделения курсивом найденных вхождений этого текста:

For Each myStoryRange In ActiveDocument.StoryRanges
     myStoryRange.Find.Execute FindText = ''Microsoft Word", Forward := True
     While myStoryRange.Find.Found
          myStoryRange.Italic = True
          myStoryRange.Find.Execute FindText := ''Microsoft Word", _
               Forward := True, Format := True
     Wend
     While Not (myStoryRange.NextStoryRange Is Nothing)
          Set myStoryRange = myStoryRange.NextStoryRange
          myStoryRange.Find.Execute FindText := "Microsoft Word".Forward:=True
          While myStoryRange.Find.Found
               myStoryRange.Italic = True
               myStoryRange.Find.Execute FindText:="Microsott Word", _
                    Forward:=True, Format:=True
          Wend
     Wend
Next myStoryRange

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

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