Sección de códigos , trucos y ejemplos para visual basic

309 - Buscar y reemplazar en un documento de Word

<Volver> - Anterior - Siguiente

Ejemplo simple para abrir desde visual basic un documento de Microsoft Word, buscar una determinada cadena en todo el documento y reemplazarla por otra

El formulario es el siguiente:

vista del formulario de ejemplo para buscar y reemplazar desde vb en un documento de word

El ejemplo lo que hace es :

Abrir el documento con el método Open.
Después con el método GoTo del documento abierto, ubica la selección al comienzo del documento.
Luego asigna algunas propiedades de la búsqueda y reemplazo ( propiedad Find )
Ejecuta el método Find.Execute que es el que busca y reemplaza.
Por último cierra el documento y guarda los cambios.

Nota: Si no se quiere cerrar el documento y tampoco guardar los cambios, quitar las líneas :

Obj_Word.ActiveDocument.Close True
Obj_Word.Quit False
Set Obj_Word = Nothing

.. y tambien, indicar al comienzo de la función , la propiedad Visible en true

Controles para el ejemplo

Un control CommandButton
Un control textBox llamado txt_buscar
Un control textBox llamado txt_Reemplazo
Un control textBox llamado txt_Path

Nota: no es encesario indicar la referencia a Word

Código fuente en el formulario

Option Explicit '*************************************************************************** '* Name : Buscar y Reemplazar En Word desde vb '* Controles : Un CommandButton y tres textbox _ (txt_Buscar, txt_Buscar y txt_path ) '*************************************************************************** Function Buscar_Reemplazar_En_Word(Cadena_Origen As String, _ Cadena_reemplazo As String, _ Path_Word As String) As Boolean On Error GoTo Err_Buscar Dim Obj_Word As Object 'Crea una nueva referencia para poder acceder al documento Set Obj_Word = CreateObject("Word.Application") ' aplicación de word no visible Obj_Word.Visible = False 'Abre el archivo especificado mediante el método Open y algunas opciones Obj_Word.Documents.Open FileName:=Path_Word ' Coloca la selección al comienzo del documento Obj_Word.ActiveDocument.GoTo What:=wdGoToPage, _ Which:=wdGoToNext, _ Name:="1" Obj_Word.Selection.Find.ClearFormatting Obj_Word.Selection.Find.Replacement.ClearFormatting ' Propiedades de la búsqueda y reemplazo With Obj_Word.Selection.Find .Text = Cadena_Origen .Replacement.Text = Cadena_reemplazo .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With ' Ejecuta la búsqueda y reemplazo Obj_Word.ActiveWindow.Selection.Find.Execute Replace:=wdReplaceAll 'Cierra el documento abierto ( TRue es para guardar los cambios ) Obj_Word.ActiveDocument.Close True 'Destruye las variables de objeto y cierra la aplicación de word Obj_Word.Quit False Set Obj_Word = Nothing 'Ok Buscar_Reemplazar_En_Word = True Exit Function 'Error Err_Buscar: MsgBox Err.Description, vbCritical On Error Resume Next 'cierra la aplicación de word Obj_Word.Quit False 'Elimina la referencia de la memoria Set Obj_Word = Nothing End Function Private Sub Command1_Click() Dim ret As Boolean ' Comienza la búsqueda y reemplazo en el documento ret = Buscar_Reemplazar_En_Word(txt_Buscar, _ txt_Buscar, _ txt_Path) If ret Then MsgBox " Listo ", vbInformation End If End Sub Private Sub Form_Load() Command1.Caption = " Buscar y reemplazar " txt_Buscar = " Acá colocar la palabra a buscar " txt_reemplazar = " Acá colocar la palabra de reemplazo" txt_Path = " Colocar el path del documento " End Sub

Nota: la macro la hice con el editor de macro de vba, por si la querés usar desde Word es la siguiente:

Sub Macro1() ' Se ubica al comienzo del Doc Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="1" With Selection.Find .ClearFormatting .Replacement.ClearFormatting End With ' Propiedades With Selection.Find .Text = "Hola" .Replacement.Text = "Chau" .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With ' Busca y reemplaza Selection.Find.Execute Replace:=wdReplaceAll End Sub

Recursos vb 6.0 - Enlaces relacionados

Buscar en Recursos vb