VBA 代码（如果需要）将新的 Word 文档保存在与其他 Word 文档相同的目录中

Posted 2023-05-07

【中文标题】VBA 代码（如果需要）将新的 Word 文档保存在与其他 Word 文档相同的目录中

【英文标题】：VBA code (if needed) to save new Word document in same directory as other Word doc

【发布时间】：2017-08-16 12:12:44

【问题描述】：

包括我自己在内的许多用户开始编辑 Word 文档，创建新的 Word 文档，并希望将第二个文档保存在与第一个文档相同的目录中。这是诸如 emacs 之类的编辑器中的默认行为。唉，Word 2013 让我选择了我希望保存新文件的目录（“文件夹”），迫使我在各种网络文件夹中进行选择，然后在到达包含我的第一个文档的目录之前选择多个子目录。我曾经有一个简单的 VBA 脚本，它会找到第一个文件的目录，然后将新文件保存在该目录中，或者至少它将第一个文件的目录设置为保存文件的默认目录。有没有人有代码来做我正在寻找的东西？谢谢！

【参考方案1】：

这会将工作目录指向您正在处理的第一个文件的目录：

ChDir(Application.Documents(Application.Documents.Count).Path)

如果要将最近打开的文档保存到与您正在处理的第一个文件相同的位置，请尝试以下操作

Sub SaveWithFirstFile()
NewFileName = "filename1.docx
Application.Documents(1).SaveAs2 FileName:=Application.Documents(Application.Documents.Count).Path & "\\" & NewFileName
End Sub

把“filename1.docx”改成你想要的样子

【讨论】：

谢谢。我运行了这段代码：Sub UpdateWD() ChDir (Application.Documents(Application.Documents.Count).Path) End Sub 但是当我去保存新文档时，我看到了相同的共享驱动器、文件夹等列表。所以代码似乎没有做任何事情。我需要在宏中添加更多步骤吗？

如果您想将最近打开的文档保存到与您首先打开的文档相同的文件夹中，请参阅我的更新答案以获得解决方案。这有帮助吗？