通过VBA获取Word纯文本内容控件文本及代码不生效的解决方法

常见失效原因 #

你之前写的代码preparerText = ActiveDocument.ContentControls("PreparerText").Range.Text无法生效，基本是两个大家经常踩的共性坑：

• 索引规则不匹配：Word内置的ContentControls集合，仅支持通过控件在集合里的数字序号、绑定了自定义XML映射的控件别名做名称索引；如果只是在控件属性面板填写了标题/标签文本为"PreparerText"，集合是没法靠这个名称定位到控件的，结果就是代码运行到这行直接报错，或者返回空字符串，拿不到员工填的实际内容。
• 提取的文本带多余不可见字符：纯文本内容控件默认会在文本末尾保留段结束符，如果你直接拿提取的内容拼接邮件，多余的不可见字符会把排版搞乱，看起来就像没提取到正确内容。

可直接运行的替代逻辑 #

不需要硬靠名称索引，用遍历匹配的方式定位目标控件，能覆盖所有版本的Word，不会因为控件设置不同莫名报错：

Dim targetCC As ContentControl
Dim preparerText As String
' 遍历文档内所有内容控件，匹配目标属性
For Each targetCC In ActiveDocument.ContentControls
    ' 匹配控件标题为PreparerText的纯文本控件，按需调整匹配规则
    If targetCC.Title = "PreparerText" And targetCC.Type = wdContentControlText Then
        ' 提取文本，清理多余的空格、段尾回车
        preparerText = Trim(targetCC.Range.Text)
        ' 兼容多段文本的换行替换，适配邮件排版
        preparerText = Replace(preparerText, vbCr, vbCrLf)
        Exit For
    End If
Next
' 兜底判断，避免静默失效
If preparerText = "" Then
    MsgBox "未找到目标纯文本内容控件，请检查文档状态"
End If

长期优化设置 #

如果需要后续保持原单行代码的简洁写法，可以给目标控件完成自定义XML映射：
打开控件属性面板，勾选「将内容控件映射到XML」，选择文档自定义XML部件，设置控件别名与Tag值为"PreparerText"，设置完成后你最开始写的那行单行提取代码就能正常返回结果了。

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