Факультет Математики и Информатики ГрГУ: Использование Range.Find

Вход

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

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

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

Использование Range.Find

Если Вы обращаетесь к объекту Find через объект Range, то текущий выделенный фрагмент так и остается выделенным ? меняется диапазон, на который ссылается объект Range. В следующем примере мы отыскиваем первое вхождение слова ?blue? в активном документе и, если оно найдено, применяем к нему полужирное начертание шрифта:

With ActiveDocument. Content. Find
     .Text = "blue"
     .Forward = True/
     . Execute
     If .Found = True Then .Parent. Bold = True
End With

А вот как сделать то же самое, используя аргументы метода Execute:

Set myRange = ActiveDocument. Content
myRange.Find.Execute FindText := "blue", Forward = True
If myRange. Find. Found = True Then myRange. Bold = True

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

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