Bueno, este es el resumen de un Hilo de las News de Visual Basic
sobre la apertura de un documento de Word desde VB.
Pero para abrir, sin más.
El que preguntaba decía:
EL siguiente código no me funciona:
Dim xWord As Object
Dim xDoc As Object
Set xWord = CreateObject("Word.Application")
xWord.Visible = True
Set xDoc = xWord.Documents.Open("c:\prueba.doc")
El Bhuo prueba el codigo, sin referenciar nada en el proyecto
y le funciona correctamente.
Pero dado que al interlocutor no le funcioba, le planteo poner
este otro substituitivo del anterior, por si acaso.
Dim DocumentoWord As Word.Document
Dim VariableWord As Word.Application
Set VariableWord = New Word.Application
Set DocumentoWord = VariableWord.Documents.Add("C:\Twpac\pelis.doc")
'Le hago visible, así tengo la oportunidad de ver los resultados
VariableWord.Visible = True
Al Bhuo le funciona, pero al que preguntaba le sigue sin funcionar.
El bhuo ya se mosquea, y le da otra alternativa:
Dim Nada
Nada = Shell("explorer.exe c:\twpac\pelis.doc", vbMaximizedFocus)
código que tambien funciona al Bhuo.
Y por fin responde el intrelocutor:
¡¡¡¡ por fin funciona con
Dim Nada
Nada = Shell("C:\Archivos de programa\Microsoft
Office\Office10\WINWORD.EXE")
Documents.Open FileName:="Hola.doc"
En resumen: En Informatica,las brujas, haberla 'hailas'.
Todos los metodos que aqui he expuesto para abrir un simple documento Word
me han fucnionado a la perfeccion.
Son 4 formas de llegar al mismo resultado. Que cada uno saque sus conclusiones.
(
geocities.com/es/ensolva/Descargas) (
geocities.com/es/ensolva) (
geocities.com/es)