因为它是在别处已打开 Word 无法保存此文件

症状
当您要打开 MicrosoftWord 中运行 Microsoft Visual Basic for Applications (VBA) 宏并以保存更改到 Word 文档, 然后出现以下错误信息：
因为它已打开其他地方 Word 无法保存此文件。
(/) // 服务器 共享 文件名 .doc /
例如, 您运行 VBA 宏是类似于以下示例时可能出现此问题： Sub Test()

Dim WordDoc As Word.Document

   'Open the file (using UNC name) in Word
   Set WordDoc = Application.Documents.Open("//服务器/共享/文件名.doc")

   'Save Changes to the same file name (using UNC name)
   WordDoc.SaveAs "//服务器/共享/文件名.doc", wdFormatDocument

   WordDoc.Close

End Sub

 

原因
如果您有一个驱动器映射到同一位置与 VBA 宏试图更改保存到文档可能会发生此问题。

替代方法
要解决此问题, 使用下列方法之一。

方法 1： 使用 ActiveDocument.FullName 属性
Microsoft 提供编程示例仅, 供图示不附带任何明示或暗示。 这包括, 但不仅限于, 适销性或用于特定目的适用性的暗示保证。 本文假定您已熟悉与正在演示编程语言以及工具来调试过程来创建和使用。 Microsoft 支持工程师可以帮助解释功能的特定过程, 但它们将会修改这些示例以提供添加功能或构建过程以满足特定要求。 要变通解决此问题, 使用 ActiveDocument.Fullname 属性作为在以下宏示例：Sub Test()

   Dim WordDoc As Word.Document

   'Open the file (using UNC name) in with word
   Set WordDoc = Application.Documents.Open("//服务器/共享/文件名.doc")
       
   'Save Changes to the same file name (using the mapped drive)
   ActiveDocument.SaveAs ActiveDocument.FullName
       
   WordDoc.Close

End Sub

 

方法 2： 断开映射驱动器
要变通解决此问题, 请断开映射驱动器之前运行 VBA 宏。 要断开映射驱动器, 请按照下列步骤操作： 1. 右击, 开始 ， 然后单击 浏览 。 
2. 在 工具 菜单上, 单击 断开网络驱动器 。 
3. 断开网络驱动器 对话框中, 选择与要断开, 映射驱动器， 然后单击 确定 。 

 

--------------------------------------------------------------------------------

这篇文章中的信息适用于:
• Microsoft Office Word 2003
• Microsoft Word 2002 Standard Edition