用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
'引用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