Red de conocimiento informático - Problemas con los teléfonos móviles - VBA excel llama contenido de Word

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>

myPath = ThisWorkbook.Path & "\"

myName = Dir(myPath & "*.doc*")

Usando ActiveSheet

.Columns("A:B").ClearContents

Hacer mientras myName lt;gt ""

AppWord.Documents.Open Filmame: