¿Cómo obtener el texto completo de un documento Word en Excel con VBA?

Para extraer el texto completo de un documento de Word y llevarlo a una hoja de Excel usando VBA, puedes seguir estos pasos. Necesitarás asegurarte de tener acceso a Microsoft Word desde VBA, lo que significa habilitar la referencia a la biblioteca de objetos de Word en tu proyecto de VBA.

Aquí te muestro un simple ejemplo de código VBA que puedes usar para lograr esto:

Sub ImportarTextoWord()
    Dim WordApp As Object
    Dim WordDoc As Object
    Dim FilePath As String
    Dim TextoCompleto As String
    Dim Lineas As Variant
    Dim i As Integer

    ' Ruta del documento de Word
    FilePath = "C:rutadeldocumentoarchivo.docx"

    ' Crear una nueva instancia de Word
    Set WordApp = CreateObject("Word.Application")
    
    ' Abrir el documento de Word
    Set WordDoc = WordApp.Documents.Open(FilePath)
    
    ' Obtener el texto completo del documento
    TextoCompleto = WordDoc.Content.Text
    
    ' Dividir el texto en líneas usando el salto de línea como delimitador
    Lineas = Split(TextoCompleto, vbCrLf)
    
    ' Cerrar el documento y la aplicación de Word
    WordDoc.Close False
    WordApp.Quit
    
    ' Liberar objetos
    Set WordDoc = Nothing
    Set WordApp = Nothing
    
    ' Pegar el texto en la hoja de Excel empezando en la celda A1
    For i = LBound(Lineas) To UBound(Lineas)
        Cells(i + 1, 1).Value = Lineas(i)
    Next i
End Sub

Abre Excel y presiona `ALT + F11` para abrir el Editor de VBA.
Ve a `Herramientas` -> `Referencias`, y busca `Microsoft Word X.X Object Library` (donde X.X corresponde a la versión de tu Microsoft Office). Activa la casilla de verificación para esta opción y presiona `Aceptar`.
Inserta un nuevo módulo desde el menú `Insertar` -> `Módulo`.
Copia y pega el siguiente código en el módulo:
Asegúrate de cambiar la variable `FilePath` para que apunte al documento de Word que deseas importar.
Ejecuta el macro presionando `F5` o desde el menú `Ejecutar`.

Este script abrirá el documento de Word especificado, leerá todo el contenido del documento, y lo volcará en la columna A de la hoja activa de Excel, línea por línea. Asegúrate de guardar cualquier cambio previo en las hojas de Excel antes de ejecutar el macro para evitar perder datos.