Word VBA - 如何设置默认保存路径？

Question

执行以下代码时，它会更改另存为对话框的目录，并显示“保存”对话框

With Dialogs(wdDialogFileSaveAs)
    .Name = "c:\newfolder\"
    .Show
End With

以下代码更改了打开对话框的默认目录，并显示了“打开”对话框

  ChangeFileOpenDirectory "c:\newfolder\"
  Options.DefaultFilePath(wdDocumentsPath) = CurDir
  With Dialogs(wdDialogFileOpen)
     .Show
  End With

但是，我想要实现的是当用户单击MS-Word上的Save或Save As图标时，它总是需要显示特定目录（“c：\ newfolder \”）。单击“保存”或“另存为”图标时，不会执行上述代码。我尝试将代码添加到DocumentBeforeSave event，但两次显示“另存为”对话框。

那么，单击“保存”图标时，如何在“保存”对话框中使MS-Word始终具有特定文件夹？

Answer 1

您可以将代码添加到DocumentBeforeSave事件中。它有ref参数Cancel。显示对话框后，设置

Cancel = True 

这将取消以下事件，因此仅显示对话框。