可以使用API的ShellExecute函数来实现打开文件。如： 
     Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ 
     (ByVal hwnd As Long, ByVal lpszOp As String, _ 
     ByVal lpszFile As String, ByVal lpszParams As String, _ 
     ByVal LpszDir As String, ByVal FsShowCmd As Long) _ 
     As Long 
     
    ShellExecute 0, "Open", "c:\word\mywor.doc", "", "", SW_SHOW 
<END>     
    