在文件保存期间如何处理和提示文件名（Word 2016，VBA）

Question

我基于文件内容（第一段）建立文件名。 当用户单击功能区文件>另存为时，我要提示正确的文件名（甚至还有其他名称）。如何在附加屏幕的窗口中处理文件名并将其放入？ My SaveAs backstage window

Answer 1

尝试：

Sub FileSaveAs()
With Application.Dialogs(wdDialogFileSaveAs)
  .Name = Split(ActiveDocument.Paragraphs(1).Range.Text, vbCr)(0)
  .Show
End With
End Sub

上面的代码拦截了“另存为”对话框。