Cómo buscar y reemplazar contenido en varios documentos de Word

En el artículo de hoy, nos complace informarle sobre la forma de buscar y reemplazar contenidos en varios documentos de Word.

En general, la mayoría de los usuarios de Word están familiarizados con la función "Buscar y reemplazar". Esta herramienta facilita el proceso por lotes en todo el documento, lo que ahorra mucho tiempo. ¿Has pensado en usar esta opción con varios documentos, como todos los archivos de una carpeta específica?

Dado que siempre existe la necesidad de buscar y reemplazar contenidos en un lote de archivos, sería bueno que la función se realizara. Y nuestra forma es usar la macro. Siga leyendo para conocer más detalles.

Pasos para instalar y ejecutar macro

1. En primer lugar, coloque todos los archivos en una carpeta y abra Word.
2. Luego haga clic en la pestaña "Desarrollador".
3. A continuación, haga clic en "Visual Basic". O simplemente presione "Alt + F11" para activar el editor de VBA.
4. Luego haga clic en el proyecto "Normal".
5. A continuación, haga clic en la pestaña "Insertar" y luego seleccione "Módulo".
6. Ahora ha insertado correctamente un nuevo módulo. Haga doble clic en él para abrir el espacio de codificación.
7. Pegue los códigos siguientes allí:

Sub FindAndReplaceInFolder()
  Dim objDoc As Document
  Dim strFile As String
  Dim strFolder As String
  Dim strFindText As String
  Dim strReplaceText As String
 
  '  Pop up input boxes for user to enter folder path, the finding and replacing texts.
  strFolder = InputBox("Enter folder path here:")
  strFile = Dir(strFolder & "\" & "*.docx", vbNormal)
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")
 
  '  Open each file in the folder to search and replace texts. Save and close the file after the action.
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=strFolder & "\" & strFile)
    With objDoc
      With Selection
        .HomeKey Unit:=wdStory
        With Selection.Find
          .text = strFindText
          .Replacement.text = strReplaceText
          .Forward = True
          .Wrap = wdFindContinue
          .Format = False
          .MatchCase = False
          .MatchWholeWord = False
          .MatchWildcards = False
          .MatchSoundsLike = False
          .MatchAllWordForms = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
      End With
      objDoc.Save
      objDoc.Close
      strFile = Dir()
    End With
  Wend
End Sub

8. Por último, haga clic en "Ejecutar".
9. Ahora aparecerá un cuadro de entrada. Ingrese la ruta de la carpeta donde almacena los documentos.
10. Luego haga clic en “Aceptar” y aparecerá el segundo cuadro. Ingrese los textos que desea encontrar.
11. Continúe haciendo clic en "Aceptar" para abrir el tercer cuadro de entrada, en el que ingrese los textos de reemplazo y haga clic en el botón "Aceptar" allí. La macro reemplazará automáticamente todos los contenidos y guardará el cambio.

Como puede ver, esta macro le proporciona 3 cuadros de entrada donde puede ingresar la ruta de la carpeta, buscar y reemplazar textos. Por lo tanto, puede asignar un botón para esta macro y agregarlo a la "Barra de herramientas de acceso rápido" para su reutilización.

En cuanto a cómo asignar un botón a una macro, puede leer este artículo: Cómo eliminar el formato de los textos pegados con macro y VBA en su Word

Proteja datos valiosos

Pueden ocurrir errores y problemas en Word. Como consecuencia, los documentos valiosos pueden dañarse. Mientras se encuentra con doc daño, es recomendable hacerse con una herramienta de recuperación profesional para recuperar los datos.

Introducción del autor:

Vera Chen es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo xls daño y pdf reparar productos de software. Para más información visite www.datanumen.com