Excel - Generar archivo de Word desde Excel y guardarlo con nuevo nombre

 
Vista:

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.

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 13​
busqueda = 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.Activate​
 
End 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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder