文件保存期间如何处理和提示文件名（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

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