Excel - Ayuda con CreateObject("Word.Application")

 
Vista:
sin imagen de perfil

Ayuda con CreateObject("Word.Application")

Publicado por Roberto (2 intervenciones) el 11/11/2020 16:00:52
Buen día.
Tengo el siguiente código para creae un archivo word tomando como base otro archivo de word. Este código me funciona muy bien. Es decir me genera el archivo, lo abre y contiene la misma informacion que el documento base.

1
2
3
4
Ruta = "C:\....\Archivo.docx"
Set ObjWord = CreateObject("Word.Application")
ObjWord.Visible = False
ObjWord.Documents.Add Template:=Ruta, NewTemplate:=False, DocumentType:=0


El problema viene cuando al archivo quiero hacer lo mismo pero con un archivo base que contiene macros (.doc.)
1
2
3
4
Ruta = "C:\....\Archivo.docm"
Set ObjWord = CreateObject("Word.Application")
ObjWord.Visible = False
ObjWord.Documents.Add Template:=Ruta, NewTemplate:=False, DocumentType:=0

Me genera el archivo pero al abrirlo no se muestra nada, ni siquiera se muestran las páginas del documento, simplemente se ve todo gris.

Alguien sabe si hay que modificar algo?
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