Propiedad Document.Find (Publisher)

Devuelve un objeto FindReplace del objeto Document especificado. El objeto FindReplace se usa para realizar una búsqueda de texto y reemplazar en el documento especificado.

Sintaxis

expresión. Encontrar

Expresión Variable que representa un objeto Document .

Ejemplo:

Se aplica al objeto Document . En el siguiente ejemplo establece una variable de objeto en el objeto FindReplace del documento activo. Se ejecuta una operación de búsqueda que aplica formato de negrita a cada aparición de la palabra 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 

Se aplica al objeto TextRange . En el siguiente ejemplo establece una variable de objeto en el objeto FindReplace del intervalo de texto de la primera forma del documento activo. Se ejecuta una operación de búsqueda que aplica formato en negrita a cada aparición de la palabra Urgente en el 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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.