求助：基于内容控件修改Word另存为对话框默认文件名

嘿，这个问题我之前碰过好几次！核心原因是Word的另存为对话框会提前缓存未保存文档的初始文件名（比如新建文档默认的“文档1”），哪怕你通过内容控件更新了内置的Title属性，这个缓存也不会自动刷新，导致对话框里还是显示旧的建议名。下面给你两个靠谱的解决方案：

方案一：优化内容控件的VBA代码，强制刷新属性缓存 #

在你当前的内容控件Exit事件代码里，加上属性刷新和缓存重置的逻辑，让Word主动识别Title的变化。把你的代码替换成下面这段：

Private Sub Document_ContentControlExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
    ' 更新内置Title属性
    ThisDocument.BuiltInDocumentProperties("Title") = ContentControl.Range.Text
    
    ' 强制刷新文档的摘要属性，确保系统能读取到最新值
    ThisDocument.UpdateSummaryProperties
    
    ' 仅针对未保存的文档，重置Word的文件名缓存
    If ThisDocument.Path = "" Then
        Dim newTitle As String
        newTitle = ThisDocument.BuiltInDocumentProperties("Title").Value
        If newTitle <> "" Then
            ' 通过修改窗口标题触发Word重新识别文件名建议
            ThisDocument.ActiveWindow.Caption = newTitle
        End If
    End If
End Sub

这段代码的作用是：离开内容控件时，不仅更新Title，还强制刷新文档属性，同时修改文档窗口的标题——这会让Word重新读取Title作为另存为的建议文件名来源。

方案二：自定义“另存为”命令，直接指定建议文件名 #

如果方案一还是没搞定，那就彻底绕开Word的默认缓存逻辑，自己写一个自定义的另存为宏，强制用Title作为初始文件名：

1. 按Alt+F11打开VBA编辑器，右键点击你的文档→插入→模块
2. 粘贴以下代码到模块里：

Sub CustomSaveAs()
    Dim saveFilePath As Variant
    Dim suggestedFileName As String
    
    ' 从内置Title属性获取建议文件名，为空则用默认值
    suggestedFileName = ThisDocument.BuiltInDocumentProperties("Title").Value
    If suggestedFileName = "" Then
        suggestedFileName = "文档1"
    End If
    
    ' 打开自定义另存为对话框，指定初始文件名
    saveFilePath = Application.GetSaveAsFilename( _
        FileName:=suggestedFileName, _
        FileFilter:="Word 文档 (*.docx), *.docx")
    
    ' 用户选择路径后执行保存
    If saveFilePath <> False Then
        ThisDocument.SaveAs2 FileName:=saveFilePath
    End If
End Sub

3. 把这个宏绑定到快速访问工具栏：
   • 右键点击快速访问工具栏→自定义快速访问工具栏
   • 在“从下列位置选择命令”下拉框选宏，找到CustomSaveAs添加到右侧
   • 可以右键修改按钮的图标和名称，替换掉原来的“另存为”按钮

这样每次点击自定义的另存为按钮，都会直接用你设置的Title作为建议文件名，完全避开Word的缓存问题。

小提示 #

如果发现建议文件名后面自动加了数字（比如“我的标题1.docx”），别慌！这只是因为当前保存目录下已经有同名文件了，属于Word的正常防重机制，不是代码的问题。

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