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

时间:2015-06-26 00:05:33

标签: vba default word-vba savefiledialog

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

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始终具有特定文件夹?

1 个答案:

答案 0 :(得分:0)

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

Cancel = True 

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