ERROR DE UN PROGRAMA EN XP ...
Publicado por JM (503 intervenciones) el 21/09/2004 18:07:14
Hola ... tengo la siguiente rutina que en Windows 98 funciona perfectamente y que en XP me da un error de que no encuentra el archivo, me dice que comprueba la escritura y el nombre del mismo ... ¿ Porque me dice esto en XP ?
*************************************
loWd = CreateObject("Word.Application")
With loWd
.DisplayAlerts = .F.
.Documents.Open("informe.txt")
.selection.wholestory()
.selection.font.size = 8
.ActiveDocument.PageSetup.PaperSize=7
.ActiveDocument.SaveAs("&ruta"+"\Informe.doc", 0)
.visible = .T.
endwith
***************************************
*************************************
loWd = CreateObject("Word.Application")
With loWd
.DisplayAlerts = .F.
.Documents.Open("informe.txt")
.selection.wholestory()
.selection.font.size = 8
.ActiveDocument.PageSetup.PaperSize=7
.ActiveDocument.SaveAs("&ruta"+"\Informe.doc", 0)
.visible = .T.
endwith
***************************************
Valora esta pregunta


0