Cómo utilizar la macro VBA para copiar por lotes contenido de Excel a un documento de Word

La función DIR solo devuelve el nombre del archivo, no la ruta completa

Así que vuelva a modificarlo al siguiente código:

Sub abc()

Dim App, WrdDoc, MyPath, MyFile, BM, Str

Mypath = "Ruta real al archivo" '¡Cambie la ruta de almacenamiento real!

Set App = CreateObject("Word.Application") 'Utilice la palabra clave Set para crear una aplicación de Word como un objeto secuencial.

MyFile = Dir(Mypath amp; "\*.doc") 'Obtener el primer documento WORD

hacer mientras MyFile lt;gt "" ' Recorrer todos los archivos en Mypath WORD; Document

App.Visible = True

Set WrdDoc = App.Documents.Open(Mypath & "\" & MyFile) '¡Abre este archivo de Word!

para cada BM en WrdDoc.Bookmarks 'Recorre todos los marcadores en el documento

Str = BM.Range 'Lee el contenido del marcador

Siguiente BM

WrdDoc.Close 'Cerrar archivo

MyFile = Dir 'Siguiente documento WORD

Bucle

Establecer aplicación = Nada

Fin del subtítulo