QTP11.5还是没有实现对office word 2007以上的支持

lijingprince5

用到FSO的时候发现TP11.5版本看来还是没有实现对office word 2007以上的支持, 对于excel 2007是支持的.

laoli0225

FSO：全称为File System Object （文本文件系统对象），FSO是一个可以对系统文件进行操作的COM组件，可以帮助我们解决一些文本文件上的处理问题。而楼主想要读取word文件，以下代码仅供参考：
Dim wordapp,worddoc
'创建word对象
set wordapp=CreateObject("word.application")
'将word对象设置为可见 即打开word程序
wordapp.Visible=True
'增加一个新的文档
Set worddoc=wordapp.Documents.Add
'向文档中写入数据
wordapp.Selection.TypeText("Hello World!")
'文件另存为
worddoc.SaveAs("d:\test.docx")
'关闭文档
worddoc.Close
'退出程序
wordapp.Quit
'释放
Set worddoc=Nothing
Set wordapp=Nothing