51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 1651|回复: 1
打印 上一主题 下一主题

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

[复制链接]
  • TA的每日心情
    奋斗
    2020-7-17 08:14
  • 签到天数: 9 天

    连续签到: 1 天

    [LV.3]测试连长

    跳转到指定楼层
    1#
    发表于 2013-2-21 15:28:48 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
    用到FSO的时候发现TP11.5版本看来还是没有实现对office word 2007以上的支持, 对于excel 2007是支持的.
    分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
    收藏收藏
    回复

    使用道具 举报

    该用户从未签到

    2#
    发表于 2013-2-27 23:37:26 | 只看该作者
    本帖最后由 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
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

    站长推荐上一条 /1 下一条

    小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

    GMT+8, 2024-11-10 19:51 , Processed in 0.084579 second(s), 28 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

    快速回复 返回顶部 返回列表