如何让Word中通过VBA插入的域或内容控件自动更新？

你用VBA插入的文档属性域、日期域和普通文本内容控件，编辑后没法自动更新，和手动通过快速部件插入的效果不一样，以下是针对性的解决方法：

1. 文档属性域（DocProperty）实现自动更新 #

直接插入wdFieldDocProperty默认不会自动触发更新，你可以通过两种方式解决：

方式一：解除域锁定并允许更新 #

修改插入域的代码，添加锁定解除和立即更新的设置：

' 插入可自动更新的作者文档属性域
Selection.TypeText "Author (DocProperty Field): "
With Selection.Fields.Add(Range:=Selection.Range, Type:=wdFieldDocProperty, Text:="Author")
    .Locked = False ' 解除锁定，让域能被更新
    .Update ' 插入后立即更新一次
End With
Selection.TypeParagraph

方式二：绑定内容控件到文档属性（推荐） #

这种方式和快速部件的逻辑一致，编辑内容控件时会自动同步文档属性，关联的域也会跟着更新：

Selection.TypeText "Author (绑定文档属性的内容控件): "
Set cc = ActiveDocument.ContentControls.Add(wdContentControlText, Selection.Range)
With cc
    .Title = "作者"
    .Tag = "Author"
    ' 绑定到文档的作者核心属性
    .XMLMapping.SetMapping "/ns1:coreProperties/ns0:creator"
End With
Selection.TypeParagraph

2. 日期域（wdFieldDate）实现自动更新 #

默认插入的日期域是静态的，要让它自动更新，需要添加\f参数设置自动刷新：

Selection.TypeText "Current Date (自动更新): "
' 插入带自动更新参数的日期域，指定格式为yyyy-MM-dd
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldDate, Text:="\@ ""yyyy-MM-dd"" \f"
Selection.TypeParagraph

\f参数会让日期域在打开文档、打印时自动更新；如果需要实时更新，可以在文档的Document_Change事件里添加域更新代码。

3. 普通文本内容控件实现联动更新 #

你之前插入的普通文本内容控件是独立的，没有和文档属性绑定，所以编辑后不会同步到对应的域。必须像上面方式二那样，把内容控件绑定到文档属性，才能实现修改控件时自动更新关联的域和文档属性。

额外：全局域自动更新配置 #

如果希望所有域都能自动更新，可以在Word里做全局设置：

• 打开「文件」→「选项」→「显示」，勾选「打印前更新域」
• 或者在文档的ThisDocument模块里添加打开时自动更新的代码：

Private Sub Document_Open()
    ActiveDocument.Fields.Update
End Sub

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