QTP-创建一个word文件

'创建word实例

Set oWordApp = CreateObject("Word.Application")

oWordApp.Visible =True

'添加一个word文档

Set oWordDoc = oWordApp.Documents.Add

oWordApp.SaveAs "C: est.docx"

oWordDoc.Close

oWordApp.Quit

'销毁对象引用

Set oWordDoc = Nothing 

Set oWordApp = Nothing