RE:Abrir Documento de Word
Buenas, echale un vistazo a este codigo, espero que te sirva.
Private Sub cmdWord_Click()
'Para ejecutar aplicacion Word
Dim objWord As Word.Application
'Para crear un Documento de Word
Dim objDoc As Word.Document
'Iniciar Word y hacerlo visible
Set objWord = New Word.Application
objWord.Visible = True
'Directorio por defecto donde se abre el control Common Dialog
(cuadro de abrir documento)
CommonDialog1.InitDir = App.Path & "\Documentos"
'Filtro para los ficheros con extension .doc, me muestra los
ficheros .doc del directorio por defecto.
CommonDialog1.Filter = "Documentos de word (*.doc)|*.doc"
'Abre y muestra el control Common Dialog
CommonDialog1.ShowOpen
'Si el cuadro en el que se muestra el nombre es <> ""
If CommonDialog1.FileName <> "" Then
'Abrir el documento
Set objDoc = objWord.Documents.Open(CommonDialog1.FileName)
'Convertirlo en el documento activo
objDoc.Application.Activate
Else
'Cierra la aplicacion word
objWord.Quit
End If
'Libera Objeto.
Set objWord = Nothing
End Sub