Esta pregunta ya estaba contestada en el foro anteriormente..
pero te pego la solución:
Function AbreWord()
On Error GoTo AbreWord_Err
Call Shell("C:\ARCHIVOS DE PROGRAMA\MICROSOFT OFFICE\OFFICE\WINWORD.EXE""F:\PROGRAM\gesper\Informacion de seguridad a los trabajadores.doc", 1)
AbreWord_exit:
Exit Function
AbreWord_Err:
MsgBox Error$
Resume AbreWord_exit
End Function
Tienes que cambiar la ruta del ejemplo por la ruta donde esté el word..