Макрос для изменения папки для сохранения файлов по умолчанию

Sub Folder_for_saving()
    'Папка для сохранения файлов по умолчанию (одноразовый запуск)
    Options.DefaultFilePath(wdDocumentsPath) = _
        "C:\Users\<имя учетной записи>\Downloads\"
End Sub

В данном примере <имя учетной записи> нужно заменить на реальное имя учетной записи. Если путь к папке будет задан неправильно, то выйдет сообщение:
Run-time error '4172': Путь не найден.

Для изменения папки сохранения данный макрос нужно применить один раз.