Buscar objeto (Word)
Representa los criterios de una operación de búsqueda.
Las propiedades y los métodos del objeto Find corresponden a las opciones del cuadro de diálogo Buscar y reemplazar.
Use la propiedad Find para obtener un objeto Find. En el ejemplo siguiente, se busca y selecciona la siguiente aparición de la palabra "hey".
With Selection.Find
.ClearFormatting
.Text = "hi"
.Execute Forward:=True
End With
En el siguiente ejemplo, se buscan todas las apariciones de la palabra "buenas" del documento activo y se reemplaza la palabra por "hola".
Set myRange = ActiveDocument.Content
myRange.Find.Execute FindText:="hi", ReplaceWith:="hello", _
Replace:=wdReplaceAll
Si ha llegado al objeto Find desde el objeto Selection, la selección cambiará cuando se encuentre texto que coincida con los criterios de búsqueda. En el ejemplo siguiente, se selecciona la siguiente aparición de la palabra "azul".
Selection.Find.Execute FindText:="blue", Forward:=True
Si ha llegado al objeto Find desde el objeto Range, la selección no cambiará cuando se encuentre texto que coincida con los criterios de búsqueda, pero se redefinirá el objeto Range. En el ejemplo siguiente, se busca la primera aparición de la palabra "azul" del documento activo. Si se encuentra "azul" en el documento, myRange se redefine y se aplica formato de negrita a "azul".
Set myRange = ActiveDocument.Content
myRange.Find.Execute FindText:="blue", Forward:=True
If myRange.Find.Found = True Then myRange.Bold = True
Referencia de modelos de objetos de Word
¿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.