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
.

Muchas gracias Fernando, y abusando de tus conocimientos,
cómo hago para abrir un archivo pdf (Acrobat Reader)??

Una vez más

gracias.. dave

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

No lo sé, lo siento. Nunca he tenido que abrir un documento pdf desde código...
Un saludo.


Fernando Arroyo
MS MVP - Excel


"Dave" escribió en el mensaje news:052301c3a32d$bf92f180$
Muchas gracias Fernando, y abusando de tus conocimientos,
cómo hago para abrir un archivo pdf (Acrobat Reader)??

Una vez más

gracias.. dave

Utiliza la API ShellExecute

http://www.mentalis.org/apilist/ShellExecute.shtml

"Dave" escribió en el mensaje
news:052301c3a32d$bf92f180$
Muchas gracias Fernando, y abusando de tus conocimientos,
cómo hago para abrir un archivo pdf (Acrobat Reader)??

Una vez más

gracias.. dave

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