51Testing软件测试论坛

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

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 1549|回复: 4
打印 上一主题 下一主题

[求助] 新建一个word文档,然后打开之后,出现file in use, test.doc is locked for edit...

[复制链接]
  • TA的每日心情
    开心
    2016-4-27 10:20
  • 签到天数: 9 天

    连续签到: 1 天

    [LV.3]测试连长

    跳转到指定楼层
    1#
    发表于 2016-4-15 15:47:36 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
    我新建一个word文档,然后打开之后,出现file in use, test.doc is locked for edit...的一个对话框,为什么不能直接打开呢?

    代码:
    Set oWordApp = CreateObject("Word.Application")
    oWordApp.Visible=Ture
    Set oWordDoc = oWordApp.Documents.Add
    oWordDoc.SaveAs "C:\Unified Functional Testing\Word\test.doc"

    EditWordtext "C:\Unified Functional Testing\Word\test.doc","Step1: check input value is right"

    Function EditWordtext (filepath,content)
        Set WordApp=CreateObject("Word.Application")
        WordApp.Visible=True
        Set doc=WordApp.Documents.Open(filepath)
        doc.content=content
        doc.Save
        Set doc=Nothing
        Set WordApp=Nothing
        ReadWord=True
    End Function


    运行时,test.doc 文档已经创建。
    当走到Set doc=WordApp.Documents.Open(filepath) 这步时,就会出现一个对话框选择,而不是直接打开,我是win7的系统。


    本帖子中包含更多资源

    您需要 登录 才可以下载或查看,没有帐号?(注-册)加入51Testing

    x
    分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
    收藏收藏
    回复

    使用道具 举报

  • TA的每日心情
    开心
    2016-4-27 10:20
  • 签到天数: 9 天

    连续签到: 1 天

    [LV.3]测试连长

    2#
     楼主| 发表于 2016-4-18 15:03:27 | 只看该作者
    自己顶一下!
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    奋斗
    2018-8-27 15:56
  • 签到天数: 322 天

    连续签到: 1 天

    [LV.8]测试军长

    3#
    发表于 2016-4-19 10:06:19 | 只看该作者
    不了解,帮顶。。。
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    奋斗
    昨天 07:20
  • 签到天数: 2805 天

    连续签到: 4 天

    [LV.Master]测试大本营

    4#
    发表于 2016-4-19 15:37:07 | 只看该作者
    之前有没有打开过?打开了是不是就不能编辑了

    评分

    参与人数 1测试积点 +10 收起 理由
    lsekfe + 10 积极回复获得测试积点10

    查看全部评分

    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    开心
    2016-4-27 10:20
  • 签到天数: 9 天

    连续签到: 1 天

    [LV.3]测试连长

    5#
     楼主| 发表于 2016-4-19 16:55:31 | 只看该作者
    EditWordtext "C:\Unified Functional Testing\Results\Test.doc","Step1: check input value is right"

    Function EditWordtext (filepath,content)

        Set fso = CreateObject("Scripting.FileSystemObject")
        Set oWord = CreateObject("Word.Application")
        Set WshShell = CreateObject("WScript.Shell")
        oWord.displayAlerts=false
        oWord.visible=False
       
        If not (fso.FileExists(filepath)) Then
            Set oWordDoc=oWord.Documents.Add
            oWordDoc.SaveAs filepath
        End If
        Set oWordDoc=GetObject(filepath)
        oWord.documents.open filepath,ForAppending,True
       
        Set oDoc=oWord.ActiveDocument
        Set oRange=oDoc.content
        oRange.insertafter content
        WshShell.SendKeys"{ENTER}"
       
        wait(1)
       
        oWord.ActiveDocument.Save
        oWord.Application.Quit True
        Set oRange=Nothing
        Set oDoc=Nothing
        Set oWord=Nothing

    End Function

    一样的问题,运行到save那步的时候,不能直接保存要另存到某处。显示文件是read only的

    要崩溃了。怎么弄呀
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

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

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

    GMT+8, 2024-11-8 07:45 , Processed in 0.069900 second(s), 26 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

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