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

173 - Buscar una cadena en un Archivo de Word

Ejemplo de como buscar una cadena, palabra o frase desde Visual basic en un archivo de word

El ejemplo necesita la referencia a Microsoft Word desde el Menú Proyecto > referencias

Colocar en un Formulario

un control Text1 donde se especifica el path del archivo de Word
en un Text2 la cadena a buscar dentro del documento
y un command1 que llama a la función Buscar_En_Word, que le pasa los parámetros anteriores.

Nota: la función, retorna un valor True o False al realizar la búsqueda

Código fuente en un Formulario:

'Variable de objeto para utilizar el Word: 'Incluir la referencia al mismo _ desde el menú Proyecto - Referencias Microsoft word '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim obj_Word As Word.Application ' Botón para comenzar la búsqueda Private Sub Command1_Click() Dim ret As Boolean ' Crea una instancia del objeto Word.Application Set obj_Word = New Word.Application ' Busca la cadena pasándole el path del archivo y la frase ret = Buscar_En_Word(Text2, Trim$(Text1)) 'Visualiza el resultado If ret Then MsgBox " Cadena encontrada ?? " & ret, vbInformation Else MsgBox " Cadena encontrada ?? " & ret, vbInformation End If 'Destruye las variables de objeto y cierra el documento obj_Word.Quit False Set obj_Word = Nothing End Sub Private Function Buscar_En_Word(Texto_Buscar, Path_Archivo) As Boolean On Error GoTo errSub 'Abre el archivo especificado mediante el método Open y algunas opciones obj_Word.Documents.Open FileName:=Path_Archivo, ConfirmConversions:=False, _ ReadOnly:=True, AddToRecentFiles:=False, PasswordDocument:="", _ PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _ WritePasswordTemplate:="", Format:=wdOpenFormatAuto ' Busca la cadena dentro del documento DOC With obj_Word.ActiveWindow.Selection.Find .ClearFormatting .Text = Texto_Buscar 'Esta es la cadena .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False .Execute 'ejecuta la búsqueda End With Buscar_En_Word = (obj_Word.ActiveWindow.Selection = Texto_Buscar) 'Cierra el documento abierto obj_Word.ActiveDocument.Close False Exit Function 'Error errSub: MsgBox Err.Description, vbCritical End Function Private Sub Form_Load() Me.Caption = " Ejemplo para buscar en Word " Command1.Caption = " Buscar " Text1 = " Escriba aquí la ruta del archivo de Word " Text2 = " Escribir aquí la frase a buscar dentro del Documento " End Sub

Recursos vb 6.0 - Enlaces relacionados

Recursos vb.net - Enlaces relacionados

Buscar archivos en visual basic.net

Buscar en Recursos vb