Visual Basic para Aplicaciones - Como abrir un archivo de word desde VBasic

Cordial saludo

Estoy trabajando sobre una aplicacion en visual basic version cinco o seis sobre u formulario desde el cual abrir un archivo de word con combinar correspondencia y la base de datos en acces necesito saber que codigo visualbasic debo agegar al formulario para que desde un boton de comando me permite abrir este archo que se halla en mis documentos gracias

att

[email protected]

En tu proyecto añade en referencias
Microsoft Word 10.0 Objet Library (MSWORD.OLB)

En el proyecto
Dim xWord As Word.Application ' Instancia a Word
Dim destino$
destino = "C:\MiPlantilla.doc"

‘Esta linea abre formulario sin contraseña
xWord.Documents.Add destino

‘Esta linea abre formulario con contraseña
xWord.documents.Open "C:\MiPlantilla.doc", False, False, False, "poner contraseña"

'Se puede guardar el documento, o plantilla
'xWord.ActiveDocument.SaveAs “C:\MiPlantilla.dot "

' Si queremos visualizarlo en pantalla
xWord.Visible = true

' 'Maximizarlo
xWord.WindowState = wdWindowStateMaximize

' 'Tenerlo activo, visible en pantalla
xWord.Application.Activate

' No preguntar si queremos guardar el documento
' xWord.DisplayAlerts = wdAlertsNone

‘ Imprimir
xWord.ActiveDocument.PrintOut

' Para evitar la pregunta: ¿Desea guardar el documento….?
xWord.ActiveDocument.Close False

'Cerramos word
xWord.Quit

'Liberamos el objeto
Set xWord = Nothing

Private Sub Command3_Click()
Cdl.ShowOpen
B = Cdl.FileName
Open B For Input As #1
X = Input(LOF(1), #1)
Text1 = X
Close #1
End Sub
a ver si te sirve!!!

EN VERDAD NO SE QUE PASA CON ESTOS PENDEJOS QUE NO PONEN EL CODIGO CORRECTO PAA QUE LOS DEMAS PUEDAN AVANZAR EN VISUAL BASIC, CUANDO ES TAN FACIL Y SENCILLO.

PRIMERO ELCODIGO QUE TE VOY A COLOCAR DEBES COLOCARLO EN ALGUN PROCESO, NO PUDES PONERLO EN GENEAL PUES NO FUNCIONA, SOLAMENTE HE ARREGLADO LO QUE PUSO EL CHICO ANTERIOR, YO CUIDO QUE LAS COSAS SE HAGAN BIEN, EN HONOR A MIS MAESTROS DE LUZ, QUE VIENEN DE LAS PLEYADES, NO SE PONGAN NERVIOSOS, PERO ESTE S EL CODIGO CORRECTO, SOLO QUITEN Y PONGAN COMILLA PARA ACTIVAR LO QUE DESEEN HACER.

ES MUY FACIL:
Private Sub Form_Load()
'En el proyecto
Dim xWord As Variant ' Instancia a Word
Dim destino As String

destino = "d:DESVIO DE LLAMADAS.doc"

'‘Esta linea abre formulario sin contraseña
Set xWord = CreateObject("WORD.APPLICATION")
'Set xWord = WORD.APPLICATION
xWord.documents.Add destino
'‘Esta linea abre formulario con contraseña
'xWord.documents.Open (destino, False, False, False, "poner contraseña")

'Se puede guardar el documento, o plantilla
'xWord.ActiveDocument.SaveAs “C:MiPlantilla.dot "

' Si queremos visualizarlo en pantalla
xWord.Visible = True
Print " ESTE ES SOLO UN MENSAJE"
' 'Maximizarlo
'xWord.WindowState = wdWindowStateMaximize

' 'Tenerlo activo, visible en pantalla
'xWord.Application.Activate

' No preguntar si queremos guardar el documento
' xWord.DisplayAlerts = wdAlertsNone

'‘ Imprimir
'xWord.ActiveDocument.PrintOut

' Para evitar la pregunta: ¿Desea guardar el documento….?
'xWord.ActiveDocument.Close False

'Cerramos word
'xWord.Quit

'Liberamos el objeto
'Set xWord = Nothing

End Sub

Muchísimas gracias, muy claro y funciona perfectamente, da gusto