如何将Word文档自定义文档属性映射至内容控件？

可以实现将Word自定义文档属性映射到内容控件，修改属性值后所有绑定的控件可自动更新，无需第三方工具，具体操作如下：

1. 获取自定义属性的XML路径信息 #

• 将目标docx文件后缀改为.zip，解压后打开docProps/custom.xml文件，找到你创建的自定义属性（如MyProperty）对应的XML节点，示例结构如下：

  <Properties xmlns="http://schemas.openxmlformats.org/officeDocument/2006/custom-properties">
    <property fmtid="{D5CDD505-2E9C-101B-9397-08002B2CF9AE}" pid="2" name="MyProperty">
      <vt:lpwstr>Test</vt:lpwstr>
    </property>
  </Properties>
  

• 记录两个关键参数：
  • PrefixMapping：xmlns:vt="http://schemas.openxmlformats.org/officeDocument/2006/docPropsVTypes"
  • XPath：/Properties/property[@name='MyProperty']/vt:lpwstr

2. 通过VBA批量映射内容控件 #

打开Word的VBA编辑器（快捷键Alt+F11），插入模块后粘贴以下代码：

Sub MapCustomPropertyToContentControls()
    Dim cc As ContentControl
    Dim propName As String
    propName = "MyProperty" '替换为你的自定义属性名称
    
    '定义XML映射参数
    Dim prefixMap As String
    Dim xPathStr As String
    prefixMap = "xmlns:vt=""http://schemas.openxmlformats.org/officeDocument/2006/docPropsVTypes"""
    xPathStr = "/Properties/property[@name='" & propName & "']/vt:lpwstr"
    
    '遍历所有纯文本内容控件完成映射
    For Each cc In ActiveDocument.ContentControls
        If cc.Type = wdContentControlText Then
            On Error Resume Next
            cc.XMLMapping.SetMapping _
                XPath:=xPathStr, _
                PrefixMapping:=prefixMap, _
                Source:=ActiveDocument.CustomXMLParts.SelectByNamespace("http://schemas.openxmlformats.org/officeDocument/2006/custom-properties").Item(1)
            On Error GoTo 0
        End If
    Next cc
    
    MsgBox "映射完成！"
End Sub

运行代码后，所有纯文本内容控件会自动绑定到指定的自定义属性。若只需映射特定控件，可修改代码遍历选中的控件即可。

3. 实现内容自动更新 #

• 手动更新：修改自定义属性值后，按下F9即可刷新所有绑定的内容控件。
• 自动触发更新：可添加文档事件代码，在属性变更时自动更新。在VBA编辑器的ThisDocument模块中粘贴以下代码：

  Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
      If ContentControl.XMLMapping.IsMapped Then
          ActiveDocument.Fields.Update
      End If
  End Sub
  

  也可单独编写更新按钮，运行以下代码批量刷新：

  Sub UpdateAllMappedControls()
      ActiveDocument.Fields.Update
  End Sub
  

4. 手动映射（无需VBA） #

若仅需映射少量控件，可直接手动操作：

• 插入纯文本内容控件，右键选择「属性」，点击「XML映射」按钮。
• 在弹出的「XML映射窗格」中，点击「添加」，选择解压后的custom.xml文件。
• 窗格中会加载出自定义属性节点，将对应的MyProperty节点拖到内容控件上即可完成绑定。

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