如何通过VBA获取Word旧版文本字段的值且不替换控件？

问题背景 #

现有包含旧版文本字段（legacy text fields）的Word文档，需通过VBA提取字段值供子过程使用。最初尝试给字段添加书签，使用以下代码引用：

Dim legacyTxt As String
legacyTxt = ActiveDocument.Bookmarks("legacyTxt").Range.Text

遇到的问题 #

• 字段填充内容后，运行代码报错「集合中请求的成员不存在」，无法找到书签引用
• 字段为空时，代码返回默认值FORMTEXT
• 设置字段默认值后，返回内容类似 FORMTEXT Default Value，无法直接获取纯输入值

已确认书签可用于更新字段，但无法正确提取输入信息，且希望保留旧版字段，不替换为ActiveX或RichTextControls。

解决方案 #

问题根源是关闭了文档的编辑限制，导致输入内容时直接覆盖了旧版文本字段，而非填入字段中。

解决步骤：

1. 开启文档的编辑限制（确保旧版文本字段处于可填写状态，而非被直接编辑覆盖）
2. 使用FormFields集合的Result属性直接提取字段值，示例代码：

Dim strFormFieldResult As String
strFormFieldResult = ActiveDocument.FormFields("Text1").Result

此方法无需替换现有旧版字段，可正确获取用户填入的字段值。

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