QTP操作word文档

QTP可以对word文档进行操作，这里最主要展示的是向word文档写入内容，并保存的功能。

Option explicit
Dim wordApp
Set wordApp = createobject("word.application")
wordApp.visible = true
'打开word文档
Dim wordDoc
Set wordDoc = wordApp.documents.open("C:\Documents and Settings\Administrator\桌面\test.doc")
Dim content
content = "这是我准备写入word文档中的内容"
'将内容写入文档中，完全替换以前的方法
wordDoc.Content = content
'将内容写入到文档中，附加在已有内容之后
wordApp.Selection.TypeText content
'保存文档
wordDoc.Save
wordDoc.Close
wordApp.Quit
Set wordDoc = nothing
Set wordApp = nothing

参考资料：http://venus-yhj.blog.163.com/blog/static/956882702009528115645310/