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文檔相同的目錄中

回答

相關問題