¿Cómo copiar contenido de Word y pegarlo en Excel con VBA?

Para copiar contenido de Word y pegarlo en Excel utilizando VBA, necesitarás automatizar ambas aplicaciones. Aquí tienes un ejemplo de cómo hacerlo:

Asegúrate de habilitar las referencias necesarias en VBA:

En Excel, abre el Editor de VBA (puedes acceder presionando `Alt + F11`).
Ve a `Herramientas` > `Referencias`.
Busca y selecciona «Microsoft Word XX.X Object Library» (donde XX.X representa la versión de Word que tienes).

Escribe la macro de VBA:

Copia el siguiente código en un módulo de Excel:

   Sub CopyFromWordToExcel()
       Dim wdApp As Object
       Dim wdDoc As Object
       Dim wdRange As Object
       Dim xlSheet As Worksheet
       Dim content As String
       
       ' Establece el nombre del archivo de Word
       Dim wordFilePath As String
       wordFilePath = "C:rutaalarchivodocumento.docx"
       
       ' Inicia Word y abre el documento
       Set wdApp = CreateObject("Word.Application")
       Set wdDoc = wdApp.Documents.Open(wordFilePath)
       
       ' Selecciona todo el contenido del documento de Word
       wdDoc.Activate
       Set wdRange = wdDoc.Content
       wdRange.Copy
       
       ' Pega el contenido en Excel
       Set xlSheet = ThisWorkbook.Sheets("Hoja1") ' Asegúrate de tener la hoja correcta
       xlSheet.Range("A1").PasteSpecial xlPasteAll ' Puedes cambiar "A1" por la celda que prefieras
       
       ' Limpia
       wdDoc.Close False
       wdApp.Quit
       Set wdRange = Nothing
       Set wdDoc = Nothing
       Set wdApp = Nothing
       
       MsgBox "El contenido de Word se ha copiado a Excel."
   End Sub

Ajusta el código:

Cambia la ruta del archivo de Word en `wordFilePath` por la ruta del archivo que deseas copiar.
Asegúrate de que la hoja de Excel donde deseas pegar el contenido esté correctamente especificada con `xlSheet`.

Esta macro abre un documento de Word, copia su contenido y lo pega en una hoja de Excel. No olvides adaptar las rutas y referencias según tu entorno y necesidades específicas.