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

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

来源

2017-08-16 Bruce

这将工作目录的第一个文件的目录，你正在处理：

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” 你希望它

来源

2017-08-16 12:21:19 Prebsus

感谢什么。我运行这个代码：'Sub UpdateWD（） ChDir（Application.Documents（Application.Documents.Count）.Path） End Sub'但是当我去保存新文档时，我被提供了相同的共享驱动器列表，文件夹等，所以代码似乎没有做任何事情。我需要宏中更多的步骤吗？ – Bruce

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

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

回答

相关问题