Свойство FindReplace.FindText (издатель)

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

Синтаксис

выражение. Поиск текста

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

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

String

Примечания

Свойство 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 и обратная связь.