Option ExplicitPrivate 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 LongPrivate Sub Command1_Click() ShellExecute Me.hwnd, "open", "c:a.doc", vbNullString, vbNullString, 3End SubPrivate Sub Command2_Click() Dim WordApp As Word.Application Set WordApp = New Word.Application WordApp.Documents.Add ("c:a.doc") WordApp.Visible = True Set WordApp = NothingEnd Sub
Option ExplicitPrivate 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 LongPrivate Sub Command1_Click() ShellExecute Me.hwnd, "open", "c:a.doc", vbNullString, vbNullString, 3End SubPrivate Sub Command2_Click() Dim WordApp As Word.Application Set WordApp = New Word.Application WordApp.Documents.Add ("c:a.doc") WordApp.Visible = True Set WordApp = NothingEnd Sub