'创建word实例

Set oWordApp = CreateObject("Word.Application")

oWordApp.Visible =True

'添加一个word文档

Set oWordDoc = oWordApp.Documents.Add

oWordApp.SaveAs "C:\test.docx"

oWordDoc.Close

oWordApp.Quit

'销毁对象引用

Set oWordDoc = Nothing 

Set oWordApp = Nothing