Вход


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

Переход на главную страницу

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


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

  


Объекты, доступные через объект Selection


Многие из объектов, доступные через объекты Range и Document, доступны и через объект Selection, позволяя управлять объектами в выделенном фрагменте. Полный список этих объектов приведен в разделах ?Microsoft Word Objects (Selection)? и ?Selection Object? справочной системы.

В следующем примере в выделенном фрагменте обновляются поля:

if Selection.Fields.Count >= 1 Then Selection.Fields.Update

А в этом ? создается абзацный отступ на 0.5 дюйма:

Selection.Paragraphs.LeftIndent = lnchesToPoints(0.5)

Если Вам не нужны все объекты в наборе, Вы можете воспользоваться циклом For Each...Next для перебора отдельных объектов выделенного фрагмента. В следующем примере организован перебор абзацев выделенного фрагмента, при этом все абзацы, выровненные по центру, выравниваются по левому краю:

For Each para In Selection.Paragraphs
     If para.Alignment = wdAlignParagraphCenter Then para.Alignment = _
     wdAlignParagraphLeft
Next para

А так можно перечислить имена всех закладок в выделенном фрагменте:

For Each aBook In Selection.Bookmarks
     MsgBox aBook.Name
Next aBook



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

  



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

  
За содержание страницы отвечает Гончарова М.Н.
©
Кафедра СПиКБ, 2002-2017