'引用Microsoft Word X.0 Object Library
Private Sub Command1_Click()
' On Error GoTo connecterr
Dim wordApp As Object
Set wordApp = CreateObject("word.application")
wordApp.Visible = True
Dim myDoc As Object
' Set myDoc = wordApp.Documents.Open("C:\test.doc")'打开存在Word
Set myDoc = wordApp.Documents.Add '新建Word
'.....
myDoc.Close
wordApp.Quit
Set myDoc = Nothing
Set wordApp = Nothing
Exit Sub
connecterr:
End Sub