51Testing软件测试论坛

标题: 新建一个word文档，然后打开之后，出现file in use， test.doc is locked for edit... [打印本页]

作者: carol_0921 时间: 2016-4-15 15:47
标题: 新建一个word文档，然后打开之后，出现file in use， test.doc is locked for edit...
我新建一个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 时间: 2016-4-18 15:03
自己顶一下！

作者: seagull1985 时间: 2016-4-19 10:06
不了解，帮顶。。。

作者: jingzizx 时间: 2016-4-19 15:37
之前有没有打开过？打开了是不是就不能编辑了

作者: carol_0921 时间: 2016-4-19 16:55
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的

要崩溃了。怎么弄呀

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)