Факультет Математики и Информатики ГрГУ: Использование объекта Replacement

Вход

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

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

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

Использование объекта Replacement

Объект Replacement представляет критерии замены для операции поиска и замены. Его свойства и методы соответствуют параметрам в диалоговом окне Find and Replace (Найти и заменить) из меню Edit (Правка).

Объект Replacement доступен через объект Find. В следующем примере заменяются все вхождения ?hi? на ?hello?. Поскольку доступ к объекту Find осуществляется через объект Selection, то выделенным фрагментом становится найденный текст.

With Selection.Find
     .ClearFormatting
     .Text = "hi"
     .Replacement.ClearFormatting
     .Replacement.Text = "hello"
     .Execute Replace := wdReplaceAII, Forward := True, Wrap := wdFindContinue
End With

В следующем примере мы удаляем в активном документе полужирное начертание шрифта. Для этого свойство Bold объекта Find устанавливается в True, а объекта Replacement ? в False. Для поиска и замены элементов форматирования укажите в качестве искомого и заменяющего текста пустые строки (??) и присвойте аргументу Format метода Execute значение True. Текущий выделенный фрагмент останется таковым, поскольку доступ к объекту Find осуществляется через объект Range, возвращаемый свойством Content.

With ActiveDocument.Content. Find
     .ClearFormatting
     .Font.Bold = True
     With .Replacement
          .ClearFormatting
          .Font.Bold = False
     End With
     .Execute FindText := "", ReplaceWith := "", Format = True, Replace = wdReplaceAll
End With

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

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