Ayuda macro para Word
Publicado por Happy1 (13 intervenciones) el 10/02/2023 21:05:37
Hola, necesito una macro para word que me inserte varios archivos que están en una carpeta en un documento que se encuentra en la misma carpeta y que según se vayan insertando se vayan borrando de la carpeta. Tengo esta macro:
Pero cuando la ejecuto me señala con el siguente ventana: Error de compilación: No se encontró el argumento con nombre
Alguien me puede decir qué estoy haciendo mal o qué falta en la macro.
Un saludo
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub InsertFilesFromFolder()
Dim folderPath As String
Dim fileName As String
Dim filePath As String
'Define la ruta de la carpeta que contiene los archivosfolderPath = "C:\Example\Folder\"
'Itera a través de cada archivo en la carpetafileName = Dir(folderPath & "*.docx")
Do While fileName <> ""
'Construye la ruta completa del archivofilePath = folderPath & fileName
'Inserta el archivo en el documento actualDocuments.Add FileName:=filePath
'Elimina el archivo de la carpetaKill filePath
'Pasa al siguiente archivo en la carpetafileName = Dir()
Loop
End Sub
Pero cuando la ejecuto me señala
1
Documents.Add FileName:=filePath
Alguien me puede decir qué estoy haciendo mal o qué falta en la macro.
Un saludo
Valora esta pregunta
0
