¿Cómo usar VBA para comparar dos documentos Word desde Excel?

Para comparar dos documentos de Word utilizando VBA desde Excel, puedes aprovechar la automatización de Microsoft Office. A continuación, te muestro un ejemplo de cómo hacerlo. Este proceso implica abrir los documentos de Word a través de Excel y utilizar las herramientas integradas para realizar la comparación.

Por favor, sigue estos pasos:

   Sub CompararDocumentosWord()

       Dim wordApp As Object
       Dim doc1 As Object
       Dim doc2 As Object
       Dim docComparado As Object
       Dim rutaDoc1 As String
       Dim rutaDoc2 As String
       Dim rutaDocComparado As String

       ' Especifica las rutas completas de los documentos a comparar
       rutaDoc1 = "C:RutaDelPrimerDocumento.docx"
       rutaDoc2 = "C:RutaDelSegundoDocumento.docx"
       rutaDocComparado = "C:RutaDondeGuardarDocumentoComparado.docx"

       ' Inicia una nueva instancia de Word
       On Error Resume Next
       Set wordApp = GetObject(, "Word.Application")
       If wordApp Is Nothing Then
           Set wordApp = CreateObject("Word.Application")
       End If
       On Error GoTo 0

       ' Asegúrate de que la aplicación Word está visible
       wordApp.Visible = True

       ' Abre los documentos de Word
       Set doc1 = wordApp.Documents.Open(rutaDoc1)
       Set doc2 = wordApp.Documents.Open(rutaDoc2)

       ' Compara los documentos y guarda el resultado en un nuevo documento
       Set docComparado = wordApp.CompareDocuments(doc1, doc2)

       ' Guarda el documento comparado
       docComparado.SaveAs2 rutaDocComparado

       ' Cierra los documentos abiertos
       doc1.Close False
       doc2.Close False
       docComparado.Close False

       ' Libera la aplicación de Word
       wordApp.Quit
       Set wordApp = Nothing

       MsgBox "La comparación ha sido completada y guardada en " & rutaDocComparado

   End Sub

Abre el editor de VBA desde Excel:

Pulsa `ALT` + `F11` para abrir el Editor de Visual Basic.

Inserta un nuevo módulo:

Haz clic en `Insertar` > `Módulo` para agregar un módulo nuevo en tu proyecto.

Escribe el siguiente código VBA en el módulo:
Personaliza las rutas: Asegúrate de reemplazar `»C:RutaDelPrimerDocumento.docx»`, `»C:RutaDelSegundoDocumento.docx»` y `»C:RutaDondeGuardarDocumentoComparado.docx»` con las rutas reales de tus documentos de Word.
Ejecuta el macro: Puedes ejecutarlo presionando `F5` dentro del Editor de VBA o asignándolo a un botón en la hoja de cálculo.

Este script automatizará el lanzamiento de Word, abrirá ambos documentos, realizará una comparación y luego guardará el documento comparado en la ubicación especificada. Asegúrate de que las rutas de los archivos son correctas y de que tienes permisos necesarios para abrir y guardar archivos en las ubicaciones especificadas.