Blade
08 de Octubre del 2003

Hola, tengo una aplicacion que tiene que abrir el Word, en windows XP y en windows 2000 me anda joya, pero en windows 98 me tira error.
El codigo es el siguiente, que puede ser?

Dim MSWord As New Word.Application
Dim documento As Word.Document


Set documento = MSWord.Documents.Open("c:ISODocumentos" & Text1.Text)

Hyx
08 de Octubre del 2003

Prueba con esto, a mi me funciona

Set documento = New Word.Application
myappid = Shell("C:Archivos de programaMicrosoft OfficeOfficeWINWORD.exe", 2) ' Se ejecuta
Timer1.Interval = 2000
Timer1.Enabled = True
Do
DoEvents
Loop While Timer1 = True

Documents.Open App.Path & "ruta del archivo", ConfirmConversions:=False, _
ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto

Blade
08 de Octubre del 2003

Ok, voy a probar de hacer asi.

Me gustaria que me expliques un poco lo del Timer.

Gracias.

Martin.

sdemingo
08 de Octubre del 2003

En algún momento utilizas App.Path???

Porque hay diferencias para W2000, Xp y W98

Un saludo
sdemingo