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

Вход

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

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

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

Работа с объектом Selection;

Перемещение и расширение выделенного фрагмента
Объекты, доступные через объект Selection
Свойства и методы объекта Selection

Работая с документом в Word, Вы обычно выделяете текст, а затем выполняете какое-то действие (например, форматируете существующий текст или вводите вместо него новый). В Visual Basic практически нет необходимости выделять текст перед его изменением ? достаточно создать объект Range, ссылающийся на нужную часть документа. Но, когда в своей программе Вам все же понадобится получить или изменить выделенный фрагмент, объект Selection предоставит Вам эту возможность.

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

Selection.Paragraphs.SpaceBetore = lnchesToPoints(0.25)

Свойством Selection наделены объекты Application, Window и Pane. Если Вы используете это свойство с объектом Application, объект Selection ссылается на активный выделенный фрагмент. В следующем примере мы вставляем текст после выделенного фрагмента (так как Selection ? свойство глобальное, свойство Application можно опустить):

Selection.InsertAfter Text := "Next Text"

Свойство Selection, используемое с объектами Window или Pane, возвращает объект Selection для указанного окна или секции окна. В следующем примере через свойство Selection объекта Window вставляется текст в окно документа Document2:

Windows( "Document2").Selection.InsertAfter Text := "New Text"

А в этом примере через свойство Selection объекта Pane вставляется текст секцию верхнего колонтитула:

With ActiveWindow
     .View.Type = wdPageView
     .View.SeekView = wdSeekPrirnaryHeader
     .ActivePane.Selection.InsertAfter Text := "Header"
End With

После применения методов InsertAfter и InsertBefore выделенный фрагмент расширяется, с тем чтобы включить добавленный текст. Метод Collapse позволяет ?свернуть? диапазон к его началу или концу. В следующем примере после выделенного текста вставляется слово ?Hello?, а затем выделенная фрагмент ?сворачивается? к позиции ввода за словом ?Hello?:

Selection.InsertAfter Text := "Hello"
Selection.Collapse Direction := wdCollapseEnd

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

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