RE:Abrir documento de Word
Prueba este codigo...
Private Sub cmdWord_Click()
'agregamos los datos al archivo existente
Dim objDoc As Object
'Verifico que exista el archivo
If Len(Dir(App.Path & "\Temporal.doc")) > 0 Then
'Creo una instancia del archivo de Word
Set objDoc = GetObject(App.Path & "\Temporal.doc")
objDoc.Parent.Visible = True
With objDoc.Parent
.Selection.TypeText "Ejemplo de insercion de texto"
End With
'Guardamos el archivo
objDoc.Save 'App.Path & "\Temporal.doc"
objDoc.Parent.Quit
'Liberamos la memoria
Set objDoc = Nothing
MsgBox "Proceso terminado"
Else
MsgBox "Archivo no existe"
End If
End Sub