Propiedad TextRange.Find (Publisher)

Devuelve un objeto FindReplace del objeto TextRange especificado. El objeto FindReplace se utiliza para realizar una búsqueda de texto y reemplazar en el intervalo de texto especificado.

Sintaxis

expresión. Encontrar

expresión Variable que representa un objeto TextRange .

Ejemplo

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.