Visual Basic - Abrir Archivos de Word

Amigos, necesito hacer un formulario que me permita abrir un archivo especifico, ya sea en formato de word (*.doc) o de Acrobat Reader (*.pdf), el nombre del archivo y la dirección se la puedó especificar por código.

Gracias por adelantado a las personas que me puedan ayudar.

Saludos

Con el comando shell y la ruta de tu archivo puedes abrirlo desde VB:
Ejemplo:
Dim MyValue
'Ejecutar el Archivo Word
MyValue = Shell("rundll32.exe url.dll,FileProtocolHandler " & App.Path & "\MiArchivo.doc", vbMaximizedFocus)
'Ejecutar el Archivo Acrobat
MyValue = Shell("rundll32.exe url.dll,FileProtocolHandler " & App.Path & "\MiArchivo.pdf", vbMaximizedFocus)

Miguel, muchas gracias por la información.
Quisiera que me informaras si tengo q agregarle algo mas, ya que lo ejecuto pero el sistema no hace nada.

Gracias nuevamente

Por que no utilizar el CommonDialog y asi abres cualquier archivo que le indiques:

CommonDialog1.DialogTitle = "Abrir archivos"
CommonDialog1.Filter = "Archivos de texto |*.txt|Todos los archivos |*.*"
CommonDialog1.ShowOpen

ahi le espesificas que tipo de archivos abrir.

Crow, ya lo hice y me muestra la pantalla, pero en el momento de abrir no hace nada, no me lo abre.

Q me puede faltar?????

En estos casos es conveniente pasarte el ejemplo a tu correo...te lo envío!!!

Intente aplicar la ruta

& App.Path & "MiArchivo.doc", vbMaximizedFocus
No me dio resultados, decía que no encontraba al archivo.

Esta si me dio resultado. Va al punto exacto del archivo.

MyValue = Shell("rundll32.exe url.dll,FileProtocolHandler " & "C:Archivos de programaDATAENLACE" & "MiArchivo.doc")

No sé que pasó en la ruta que escribí, se borró el antislash
va otra vez:

MyValue = Shell("rundll32.exe url.dll,FileProtocolHandler " & "C:Archivos de programaDATAENLACE" & "contrato1.doc")

Aclaro: Dataenlace es el nombre de una carpeta, incluida en Archivos de programa, donde ubiqué el archivo Contrato1.doc
Os queda claro? A mi me funcionó a las maravillas.

Perdonadme pero hay un error en la escritura. Cuando subo la instrucción, el antislash DESAPARECE! Qué diantres ocurre?
Entonces detallo. en la instrucción

"C:Archivos de programaDATAENLACE" & "contrato1.doc")
1. Hay un antislash despues de C:
2. Otro antislash después de la palabra programa. Mejor dicho, entre programa & DATAENLACE
3. Otro antes de la palabra contrato1.doc

Aplicadlo....funciona