‘创建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
QTP-创建一个word文件
原文：http://www.cnblogs.com/qq738805997/p/6134927.html
