Click the button in the VB Application to open the Word Document

Option   Explicit

Private Declare Function ShellExecute lib " Shell32.dll " Alias " Shellexecutea " (Byval hwnd As   Long ,_
Byval lpoperation As   String , Byval lpfile As   String , Byval lpparameters As   String ,_
Byval lpdirectory As   String , Byval nshowcmd As   Long ) As   Long

Private   Sub Commandmediaclick ()
ShellExecute me. hwnd, " Open " , " C: a.doc " , Vbnullstring, vbnullstring, 3
End sub

Private   Sub Command2_click ()
Dim Wordapp As Word. Application

Set Wordapp =   New Word. Application
Wordapp. Documents. Add ( " C: a.doc " )
Wordapp. Visible =   True
 
Set Wordapp =   Nothing
End sub