VBA excel llama contenido de Word
Cree un nuevo libro de Excel en la carpeta que contiene el archivo de Word, abra el libro, presione Alt F11, copie el siguiente código y presione F5 para ejecutar.
Este código copiará los primeros 300 caracteres del archivo de trabajo en Excel.
Sub prueba()
Dim i, myName$, myPath$, AppWord como objeto
Establecer AppWord = CreateObject("Word.Application") p> p>
myPath = ThisWorkbook.Path & "\"
myName = Dir(myPath & "*.doc*")
Usando ActiveSheet
.Columns("A:B").ClearContents
Hacer mientras myName lt;gt ""
AppWord.Documents.Open Filmame: