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 SettingsAdministrator桌面 est.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/