Private Sub Command1_Click()
Dim wb As Object
Dim sPath As String
Set wb = CreateObject("Word.Basic")
' wb.ChDefaultDir "C:\", 0
sPath = App.Path
wb.ChDefaultDir sPath, 0 ' Si el doc está en el directorio de la aplicación
wb.FileOpen Name:="MiDocumento.doc"
wb.AppShow
Application.WindowState = wdWindowStateMaximize
End Sub