將新 Word 文檔保存在與其他 Word 文檔相同的目錄中的 VBA 代碼（如果需要）

Question

許多用戶，包括我自己，開始編輯 Word 文檔，創建一個新的 Word 文檔，並希望將第二個文檔保存在與第一個文檔相同的目錄中。 這是 emacs 等編輯器中的默認行為。 唉，Word 2013 讓我選擇我希望保存新文件的目錄（“文件夾”），迫使我在各種網絡文件夾中進行選擇，然后在到達包含我的第一個文檔的文件夾之前選擇多個子目錄。 我曾經有一個簡單的 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”更改為您想要的