Word宏修改DOCVARIABLE值后文档对应域不更新问题咨询

Word 中的 DOCVARIABLE 域不会在关联的文档变量值修改后自动刷新显示，只有当域被触发更新操作时才会同步最新值，你之前偶然更新成功大概率是刚好触发了打印预览、手动选中域更新等操作。

只需要在给文档变量赋值的代码后，新增域更新逻辑即可，以下是修改后的完整宏代码：

Sub user_input()
    Dim start_date_user As String

    start_date_user = InputBox("Enter start date in DD.MM.YYYY format", "Start date", "01.01.2022")
    ' 给文档变量赋值
    ActiveDocument.Variables("DOC_START").Value = start_date_user 
    ' 更新文档内所有域
    ActiveDocument.Fields.Update
End Sub

• 如果你的文档中存在其他不需要更新的域（比如页码、目录、自动日期域等），可以定向只更新 DOCVARIABLE 类型的域，避免影响其他内容：

Sub user_input()
    Dim start_date_user As String
    Dim fld As Field

    start_date_user = InputBox("Enter start date in DD.MM.YYYY format", "Start date", "01.01.2022")
    ActiveDocument.Variables("DOC_START").Value = start_date_user 
    ' 仅更新DOCVARIABLE类型的域
    For Each fld In ActiveDocument.Fields
        If fld.Type = wdFieldDocVariable Then
            fld.Update
        End If
    Next
End Sub

• 如果你的 DOCVARIABLE 域放在页眉、页脚、文本框等特殊区域，上面的更新逻辑无法覆盖，需要遍历所有文档范围更新：

Sub user_input()
    Dim start_date_user As String
    Dim rngStory As Range

    start_date_user = InputBox("Enter start date in DD.MM.YYYY format", "Start date", "01.01.2022")
    ActiveDocument.Variables("DOC_START").Value = start_date_user 
    ' 遍历所有文档区域更新域，包含页眉、页脚、文本框
    For Each rngStory In ActiveDocument.StoryRanges
        rngStory.Fields.Update
    Next
End Sub

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