请参考
http://www.csdn.net/Expert/TopicView1.asp?id=623102
刚回答完:)

解决方案 »

  1.   

    打开用shell("文件路径\文件名.doc")
      

  2.   

    用OLE容器试试?
    (formname).ActiveForm.OLE1.InsertObjDlg
      

  3.   

    Private Sub Command1_Click()    Dim oWord As Word.Application
        Dim oDoc As Word.Document
        
        Set oWord = New Word.Application
        
        oWord.Visible = True
        
        With oWord
            .WindowState = wdWindowStateMaximize        
            Set oDoc = .Documents.Add(App.Path & "\fred.doc")
        End WithEnd Sub详情请参阅:
    Application Object
    http://msdn.microsoft.com/library/default.asp?url=/library/en-us/office97/html/output/F1/D6/S5B4A5.asp
    Documents Property
    http://msdn.microsoft.com/library/default.asp?url=/library/en-us/office97/html/output/F1/D6/S5B4A5.asp
    Document Object
    http://msdn.microsoft.com/library/default.asp?url=/library/en-us/office97/html/output/F1/D6/S5B4A5.asp