Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate ahora y podrás: / 💪 Hacer preguntas a los expertos / ⬇️ Descargar ejemplos y plantillas / 🏅 Acceder a contenidos premium

Regístrate gratis

Macros ERROR 448 (desesperada :) )

Merylu

New member
Buenas noches.
Hice una macro para crear archivos word, cuando ejecuto y genero los documentos me salta el siguiente error y me abre un word vacío:
1610513028074.png


Le doy depurar y me marca el código que resalto en negrita, ya probre copiar y pegar el nombre de la ruta:


Sub generar_certifiados()

ruta = "C:\Users\merylu\Desktop\Macro Certificados\MICROSOFT sin firma.docm"
Set objWord = CreateObject("Word.Application")

objWord.Visible = True
objWord.Documents.Add template:=ruta, NewTemplate:=False, DocumetType:=0

For i = 4 To 9
buqueda = Hoja10.Range("D" & i).Text
remplazar = Hoja10.Range("C" & i).Text
'EJECUTAMOS
With objWord.Selection.Find
.Text = buqueda
.Replacement.Text = remplazar
.Execute Replace:=2

End With

Next i

objWord.Activate

End Sub

Agradezco cualquier tipo de ayuda orientación para poder resolver, gracias!
 

Similar threads

Arriba