如何调出SaveAs对话框？设置预设文件名后允许用户修改

可以实现，原因及具体方案如下：

问题根源 #

你使用ActiveDocument.SaveAs并指定FileName参数时，Word的设计逻辑就是直接按该路径保存，不会弹出交互对话框——只有当不指定FileName时，它才会调出另存为对话框。

解决方案 #

要调出带预设文件名的可编辑对话框，需先用Application.GetSaveAsFilename方法获取用户确认（或修改）后的路径，再执行保存操作。以下是完整的VBA代码示例：

Sub SaveWithPresetFilename()
    Dim presetFilename As String
    Dim userChoice As Variant
    
    ' 生成带日期时间的预设文件名（格式如你要求的report-20231018-105131.docx）
    presetFilename = "report-" & Format(Now(), "YYYYMMDD-HHMMSS") & ".docx"
    
    ' 调出另存为对话框，填入预设文件名，允许用户修改
    userChoice = Application.GetSaveAsFilename( _
        InitialFileName:=presetFilename, _
        FileFilter:="Word 文档 (*.docx), *.docx, Word 启用宏文档 (*.docm), *.docm", _
        Title:="另存为" _
    )
    
    ' 判断用户是否点击了「取消」
    If userChoice <> False Then
        ' 执行保存（用SaveAs2兼容更多Word版本）
        ActiveDocument.SaveAs2 _
            FileName:=userChoice, _
            FileFormat:=wdFormatXMLDocument ' 对应docx格式，若要docm则用wdFormatXMLDocumentMacroEnabled
    End If
End Sub

关键说明 #

• GetSaveAsFilename的InitialFileName参数就是你要预设的文件名，用户可直接在对话框中修改
• 必须判断userChoice是否为False——如果用户点击对话框的「取消」，该方法会返回False，此时不能执行保存
• SaveAs2是Word后续版本推出的方法，比旧的SaveAs支持更多参数，兼容性更好

内容的提问来源于stack exchange，提问作者OttoMan28