在vb里要打开一个WORD文件,编程如何实现! 谢谢各位!

解决方案 »

  1.   

    用vb打开Word:
    '引用Micorsoft Word X.0 Object Library
    Private Sub Command1_Click()
    '   On Error GoTo connecterr
        Dim wordApp As Object
        Set wordApp = CreateObject("word.application")
        'Set myDoc = wordApp.Documents.Open(App.Path & "\Test.doc")'打开指定的Word文件
        wordApp.Visible = True
        Dim myDoc As Object
        Set myDoc = wordApp.Documents.Add'创建一个新的Word文件
        wordApp.selection.TypeText (" Hello")
        ......
        myDoc.Close
        wordApp.Close
        wordApp.Quit
        Set myDoc = Nothing
        Set wordApp = Nothing
        Exit Sub
    connecterr:
    End Sub