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

Question

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

Answer 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”更改为您想要的内容