Propriedade Document.Find (Publisher)

Retorna um objeto FindReplace do objeto Document especificado. O objeto FindReplace é usado para executar uma pesquisa e substituição de texto no documento especificado.

Sintaxe

expressão. Encontrar

Expressão Uma variável que representa um objeto Document .

Exemplo

Aplica-se ao objeto Document . O exemplo a seguir define uma variável de objeto para o objeto FindReplace do documento ativo. Uma operação de pesquisa é executada que aplica formatação em negrito a cada ocorrência da palavra Importante.

Dim objFind as FindReplace 
Dim fFound as Boolean 
 
Set objFind = ActiveDocument.Find 
fFound = True 
 
With objFind 
 .Clear 
 .FindText = "Important" 
 Do While fFound = True 
 fFound = .Execute 
 If Not .FoundTextRange Is Nothing Then 
 .FoundTextRange.Font.Bold = True 
 End If 
 Loop 
End With 

Aplica-se ao objeto TextRange . O exemplo a seguir define uma variável de objeto para o objeto FindReplace do intervalo de texto da primeira forma no documento ativo. Uma operação de pesquisa é executada que aplica a formatação em negrito a cada ocorrência 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.