Macro de ejemplo que utiliza un bucle para buscar texto en documentos de Word

Para una versión de Microsoft Word 2000 de este artículo, consulte 211458 .

Para una versión de Microsoft Word 97 de este artículo, consulte 170725 .

Para obtener una versión de Microsoft Word 98 de este artículo, consulte 183643 .

Resumen

La siguiente macro de ejemplo busca un estilo de párrafo especificado en un documento de Microsoft Word 2002, Microsoft Office Word 2003 o Microsoft Office Word 2007 y agrega texto al principio de cada aparición que encuentra.

Más información

Microsoft proporciona ejemplos de programación únicamente con fines ilustrativos, sin ninguna garantía expresa o implícita. Esto incluye, pero no se limita, a las garantías implícitas de comerciabilidad o idoneidad para un propósito particular. Este artículo asume que está familiarizado con el lenguaje de programación que se muestra y con las herramientas que se utilizan para crear y depurar procedimientos. Los ingenieros de soporte técnico de Microsoft pueden explicarle la funcionalidad de un determinado procedimiento, pero no modificarán estos ejemplos para ofrecer mayor funcionalidad ni crearán procedimientos que cumplan sus requisitos específicos.
Sub EditFindLoopExample()'This example inserts "Tip: " at the beginning of
' every paragraph formatted with the Heading 3 style.
With ActiveDocument.Content.Find
.ClearFormatting
.Style = wdStyleHeading3
'The Do...Loop statement repeats a series of
' actions each time this style is found.
Do While .Execute(Forward:=True, Format:=True) = True
With .Parent
'If the found text is the last
' paragraph in the document...
If .End = ActiveDocument.Content.End Then
.StartOf Unit:=wdParagraph, Extend:=wdMove
.InsertAfter "Tip: "
Exit Do
'If the found text is *not* the last
' paragraph in the document...
Else
.StartOf Unit:=wdParagraph, Extend:=wdMove
.InsertAfter "Tip: "
.Move Unit:=wdParagraph, Count:=1
End If
End With
'Goes back to the beginning of the Do...Loop statement.
Loop
End With
End Sub

Referencias

Para obtener más información acerca de cómo buscar texto en documentos de Word, en el Editor de Visual Basic, haga clic en Ayuda de Microsoft Visual Basic en el menú Ayuda , escriba Buscar objeto en el Ayudante de Office o el Asistente para Ayuda y, a continuación, haga clic en Buscar para ver el tema.

Para obtener más información acerca de cómo utilizar el código de ejemplo de este artículo, haga clic en el número de artículo siguiente para verlo en Microsoft Knowledge Base:

290140 OFFXP: cómo ejecutar código de ejemplo de artículos de Knowledge Base

Para obtener más información acerca de cómo obtener ayuda con Visual Basic para Aplicaciones, haga clic en el número de artículo siguiente para verlo en Microsoft Knowledge Base:

305326 OFFXP: recursos de programación para Visual Basic para Aplicaciones

Propiedades

Id. de artículo: 306338 - Última revisión: 22 ene. 2017 - Revisión: 2

Comentarios