Visualizar archivo

Para lo que necesitas se puede simplificar el código:

Sub AbrirDocumentoWord()
Dim objW As Object

Set objW = GetObject("C:\prueba.doc")
objW.Application.Visible = True
Application.ActivateMicrosoftApp xlMicrosoftWord

Set objW = Nothing
End Sub

Y no hace falta establecer la referencia a la librería de Word.
Un saludo.


Fernando Arroyo
MS MVP - Excel


"Dave" escribió en el mensaje news:0c0a01c3a2e5$37874bd0$
Podría alguien decirme como puedo hacer para visualizar
el archivo que se abre al utilizar este código... ya que
al correrlo no se llega a comprobar visualmente si se ha
abierto o nó... lo que yo deseo hacer es: abrir el
documento y verlo.

Muchas gracias por sus ayuda

Dave

Prueba con:


Sub AbrirDocumentoWord()
Dim appW As Word.Application
Dim docW As Word.Document

Set appW = New Word.Application
Set docW = appW.Documents.Open
(Filename:="C:\prueba.doc")

'
'Cosas a hacer con el documento
'

docW.Close

Set docW = Nothing
Set appW = Nothing
End Sub


Para que funcione, tendrás que establecer una referencia
a la librería "Microsoft Word X.x Object Library", donde
X.x representa la versión más moderna que tengas en el
equipo. Esto se hace desde Herramientas->Referencias,
estando en el editor de VBA.
Un saludo.


Fernando Arroyo
MS MVP - Excel


"Angel" escribió en el mensaje news:040a01c39cd9$5b2dcb70
$
Por favor alguien podría enseñarme como puedo abrir un
documento word desde excel, a través de código.

Muchas gracias por sus ayuda...

Angel
.