标题: QTP11.5还是没有实现对office word 2007以上的支持 [打印本页] 作者: lijingprince5 时间: 2013-2-21 15:28 标题: QTP11.5还是没有实现对office word 2007以上的支持 用到FSO的时候发现TP11.5版本看来还是没有实现对office word 2007以上的支持, 对于excel 2007是支持的.作者: laoli0225 时间: 2013-2-27 23:37 本帖最后由 laoli0225 于 2013-2-28 18:12 编辑
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