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

carol_0921

我新建一个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的系统。

carol_0921

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的

要崩溃了。怎么弄呀

jingzizx

之前有没有打开过？打开了是不是就不能编辑了

seagull1985

不了解，帮顶。。。

carol_0921

自己顶一下！