Macros ERROR 448 (desesperada :) )

[Merylu]

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:



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!

 

[Héctor Miguel]

me salta el siguiente error y me abre un word vacío

en la instruccion de esta linea:

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

te "comiste" una ene:
objWord.Documents.Add template:=ruta, NewTemplate:=False, DocumentType:=0

 

[Merylu]

en la instruccion de esta linea:

te "comiste" una ene:
objWord.Documents.Add template:=ruta, NewTemplate:=False, DocumentType:=0

Gracias miles!!!!!

 

[Merylu]

Sobre este mismo macro, me permitió generar los word pero no cambia la información a reemplazar dentro.
Que podrá ser?

 

[SolangeLinares]

Estas instrucciones son geniales, me encantaron