Propriedade TextRange.Find (Publisher)

Devolve um objeto FindReplace do objeto TextRange especificado. O objeto FindReplace é usado para executar uma pesquisa de texto e substitua no intervalo de texto especificado.

Sintaxe

expressão. Localizar

expressão Uma variável que representa um objeto TextRange .

Exemplo

O exemplo a seguir define uma variável de objeto para o objeto FindReplace do intervalo de texto da primeira forma no documento ativo. É executada uma operação de pesquisa que aplica formatação a negrito a todas as ocorrências da palavra Urgente no intervalo de texto.

Dim objFind as FindReplace 
Dim fFound as Boolean 
 
Set objFind = ActiveDocument.Pages(1) _ 
 .Shapes(1).TextFrame.TextRange.Find 
fFound = True 
 
With objFind 
 .Clear 
 .FindText = "Urgent" 
 Do While fFound = True 
 fFound = .Execute 
 If Not .FoundTextRange Is Nothing Then 
 .FoundTextRange.Font.Bold = True 
 End If 
 Loop 
End With

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.