Objeto FindReplace (Publisher)

Representa los criterios de una operación de búsqueda. Las propiedades y métodos del objeto FindReplace corresponden a las opciones en el cuadro de diálogo Buscar y reemplazar.

Observaciones

Cuando la propiedad ReplaceScope se establece en una de las constantes PbReplaceScopepbReplaceScopeOne o pbReplaceScopeAll, la propiedad ReplaceWithText debe establecerse para evitar que el texto se reemplace por el valor predeterminado de una cadena vacía para esa propiedad.

Utilice la propiedad TextRange.Find para devolver un objeto FindReplace .

Establezca la propiedad ReplaceScope para determinar el alcance de la búsqueda.

Ejemplo

En el ejemplo siguiente se selecciona la siguiente aparición de la fábrica de palabras.

With ActiveDocument.Find 
 .Clear 
 .FindText = "factory" 
 .Execute 
End With

En el ejemplo siguiente se reemplaza la primera aparición del nombre Visual Basic Scripting Edition por VBScript.

With ActiveDocument.Find 
 .Clear 
 .FindText = "Visual Basic Scripting Edition" 
 .ReplaceWithText = "VBScript" 
 .ReplaceScope = pbReplaceScopeOne 
 .Execute 
End With

En el siguiente ejemplo se ilustra la forma de tener acceso a los atributos de fuente de FoundTextRange cuando se establece el valor de ReplaceScope en pbReplaceScopeNone.

Dim objFindReplace As FindReplace 
 
Set objFindReplace = ActiveDocument.Find 
With objFindReplace 
 .Clear 
 .FindText = "important" 
 .ReplaceScope = pbReplaceScopeNone 
 Do While .Execute = True 
 If .FoundTextRange.Font.Italic = msoFalse Then 
 .FoundTextRange.Font.Italic = msoTrue 
 End If 
 Loop 
End With

Métodos

• Clear
• Execute

Propiedades

• Application
• FindText
• Reenviar
• FoundTextRange
• MatchAlefHamza
• MatchCase
• MatchDiacritics
• MatchKashida
• MatchWholeWord
• MatchWidth
• Parent
• ReplaceScope
• ReplaceWithText

Vea también

• Referencia del modelo de objetos de Publisher

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.