Generar archivo de Word desde Excel y guardarlo con nuevo nombre
Publicado por Adrian (1 intervención) el 25/01/2021 03:07:43
Saludos a todos, estoy tratando de generar un archivo de Word desde Excel y luego de creado se guarde automáticamente bajo un nombre dado por una celda en una hoja especifica.
Hasta ahora conseguí generar un archivo a partir de otro que utilizo como plantilla, el cual luego de ejecutado queda abierto a la espera de ser guardado.
Quisiera añadir el resto de las líneas de programación, de tal forma se guarde de forma automática en el mismo directorio, con un nombre de archivo asignado por una celda o la concatenación de dos.
Gracias de antemano, espero puedan ayudarme.
Hasta ahora conseguí generar un archivo a partir de otro que utilizo como plantilla, el cual luego de ejecutado queda abierto a la espera de ser guardado.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub etiqueta_pesada()
ruta = "C:\Users\Adrian Azuaje\Desktop\Prueba\ETIQUETA PESADA\control_pesada.docm"
Set objWord = CreateObject("Word.application")
objWord.Visible = True
objWord.documents.Add template:=ruta, NewTemplate:=False, DocumentType:=0
For i = 3 To 13busqueda = Hoja2.Range("D" & i).Text
reemplazar = Hoja2.Range("C" & i).Text
'Cambio de datos a los ingresados'With objWord.Selection.Find
.Text = busqueda
.Replacement.Text = reemplazar
.Execute Replace:=2
End With
Next i
objWord.ActivateEnd Sub
Quisiera añadir el resto de las líneas de programación, de tal forma se guarde de forma automática en el mismo directorio, con un nombre de archivo asignado por una celda o la concatenación de dos.
Gracias de antemano, espero puedan ayudarme.
Valora esta pregunta
0