Факультет Математики и Информатики ГрГУ: Изменение группы элементов документа

Вход

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

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

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

Изменение группы элементов документа

Чтобы изменить диапазон текста, состоящий из группы элементов документа (символов, слов, предложений, абзацев или разделов), создайте объект Range, включающий эти элементы. Используя свойства Start и End объект Range, Вы можете создать новый объект Range. В следующем пример задается объект Range (myRange), ссылающийся на первые три слова в активном документе, после чего их шрифт заменяется на Arial:

Set Doc = ActiveDocument
Set myRange = Doc. Range(Start := Doc.Words(1).Start, End := Doc. Words(3). End)
myRange. Font. Name = "Arial"

А здесь создается объект Range, охватывающий со второго по четвертый абзацы:

Set myDoc = ActiveDocument
Set myRange = myDoc. Range(Start := myDoc.Paragraphs(2). Range. Start, _
End := myDoc. Paragraphs(4). Range. End)

Теперь создадим объект Range (aRange), включающий со второго по третий абзацы. К свойствам, связанным с элементами форматирования абзаца (в данном случае ? к SpaceBefore и SpaceAfter), мы обратимся через свойство ParagraphFormat.

Set Doc = ActiveDocument
Set aRange = Doc.Range(Start::=Doc.Paragraphs(2).Range.Start, _
     End:=Doc. Paragraphs(1).Range. End)
With aRange. ParagraphFormat
     .Space1
     .SpaceAfter = 6
     .SpaceBetore = 6
End With

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

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