Свойство FindReplace.FindText (Publisher)

Статья
04/07/2023

Задает или извлекает строку, представляющую текст для поиска в указанном диапазоне или выделенном фрагменте. Для чтения и записи.

Синтаксис

expression. FindText

Выражение Переменная, представляющая объект FindReplace .

Возвращаемое значение

Строка

Замечания

Свойство FindText возвращает обычный, неформатированный текст выделенного фрагмента. При установке этого свойства указывается текст поиска. Вы можете искать специальные символы, указав соответствующие коды символов. Например, ^p соответствует знаку абзаца и ^t символу табуляции.

Значение по умолчанию для свойства FindText — пустая строка. Так как поддерживается только текстовый поиск, необходимо явно задать FindText , чтобы избежать ошибки во время выполнения.

Пример

В этом примере все вхождения слова This в выделенном фрагменте заменяются словом That в каждой открытой публикации.

Dim objDocument As Document 
 
For Each objDocument In Documents 
 With objDocument.Find 
 .Clear 
 .MatchCase = True 
 .FindText = "This" 
 .ReplaceWithText = "That" 
 .ReplaceScope = pbReplaceScopeAll 
 .Forward = True 
 .Execute 
 End With 
Next objDocument

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через