closures已经打开的单词文档

我试图检查一个特定的文档是否打开。 如果打开，然后closures它，然后再重新打开，如果不是，然后打开它。

问题是我总是遇到一个错误的文件名称4160错误，当它试图closures文档。

有人会告诉我在我的代码到底是什么问题。

提前感谢你。

Dim wdApp As Object Dim myDoc As Word.Document Set wdApp = GetObject(, "Word.Application") If IsFileOpen("C:\Letters\TemporaryLetter.docx") Then wdApp.Documents("C:\Letters\TemporaryLetter.docx").Close End If With wdApp .Visible = True .WindowState = 2 End With Set myDoc = wdApp.Documents.Open("C:\Letters\TemporaryLetter.docx") 

Answer 1

没有看到函数“IsFileOpen”，你打电话我猜测它需要文件的短名称（例如“TemporaryLetter.docx”）不是完整的path??试试：

 If IsFileOpen("TemporaryLetter.docx") Then wdApp.Documents("TemporaryLetter.docx").Close End If