La Web del Programador: Comunidad de Programadores
 
https://www.lawebdelprogramador.com/preguntas/

    Pregunta:  1120 - LLAMAR UN ARCHIVO DE WORD DESDE VB
Autor:  Néstor Figueroa
Como puede ejecutar Word desde Visual pero llamando a un archivo que anteriormente fue generado, esto es para poder justificar en Word, ya que el Visual no me da esa herramienta, y la otra consulta es como puedo imprimir un campo memo en Visual 5.0.

Desde ya muchas gracias

  Respuesta:  Pablo Andrade Ramirez
Hola.
Para solucionar el proble ma de la ejecución del Word junto con un archivo deberas hacer lo siguiente.

DEclarar un avariable de tipo duible y dos de tipo string ej.

Dim i as double, cad as string, cad_2 as string

´Despues
cad="C:\ruta\Winword.exe"
cad_2="C:\ruta del archivo *.doc"
i=shell(cad +" " +cad_2 ,3)

y es todo, para tu otra duda no tengo respuesta
cuentame para ver como te va
  Respuesta:  Eduardo Mireles
Si deseas llamar a una aplicación relacionada a un archivo y no le temes a la API, puedes usar el siguiente código.

En 16 bits
Declare Function ShellExecute Lib "shell.dll" (ByVal hwnd As Integer, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Integer) As Integer

En 32 bits
Declare Function ShellExecute Lib "shell32.dll" (ByVal hwnd As Integer, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Lonf) As Long

Dim X as Long

X = ShellExecute(Me.hWnd, "Open", "PathDeTuDocumento\documento.doc", "", "c:\", 1)

Lo puedes usar para enviar un correo
ShellExecute(Me.hWnd, "Open", "mailto:[email protected]", "", "c:\", 1)

O abrir una página Web
ShellExecute(Me.hWnd, "Open", "http://www.pub.virtual.8m.com", "", "c:\", 1)

O cualquier otro archivo
ShellExecute(Me.hWnd, "Open", "c:\windows\mibmp.bmp", "", "c:\windows", 1)

A esta función tu le proporcianarás un archivo y ella se encargará de buscar y ejecutar la aplicación relacionada. Es casi mágica.

Para ejecutar la aplicación de alguna forma deseada puedes usar los siguientes valores de nShowCmd:

Const SW_HIDE As Long = 0
Const SW_SHOWNORMAL As Long = 1
Const SW_SHOWMINIMIZED As Long = 2
Const SW_SHOWMAXIMIZED As Long = 3
Const SW_SHOWNOACTIVATE As Long = 4
Const SW_SHOW As Long = 5
Const SW_MINIMIZE As Long = 6
Const SW_SHOWMINNOACTIVE As Long = 7
Const SW_SHOWNA As Long = 8
Const SW_RESTORE As Long = 9
Const SW_SHOWDEFAULT As Long = 10

Espero que esto te sirva.

  Respuesta:  Alex
envio el codigo de una libreria que haciendole una referencia a la libreria del Word 8 (Word (8Object library, o algo asín) se hacen varias cositas.
Esta librería me la mando un colega que también la habia mandado a la lista de Vb que recoge en su página Jose Rubí (www.arrakis.es/~jrubi).
Libreria Word_dll