我懂你这种困惑！用ContentControls.Add添加内容控件确实超简单，但一涉及XML提取再插入就卡壳，踩坑太正常了。其实问题核心在于你提取的XML不对——直接用Range.XML拿到的是整个文档的完整WordprocessingML，里面塞满了文档级命名空间、段落标记这类冗余内容，而InsertXML要的是精准的内容控件片段XML。

为啥直接提取的XML插不进去？ #

当你用Debug.Print ThisDocument.Range.XML输出的是整个文档的XML结构，包含了w:document、w:body这些顶级节点，而InsertXML只认符合内容控件结构的片段（也就是w:sdt节点及其内部内容），直接插完整文档XML自然会失败。

正确的提取+插入操作步骤 #

1. 精准提取内容控件的核心XML #

别去抓整个Range的XML，直接获取内容控件本身的XML片段：

Dim cc As ContentControl
Set cc = ThisDocument.ContentControls.Add(wdContentControlRichText, Selection.Range)
cc.Title = "测试富文本控件" ' 给控件加个标识，方便后续识别
' 只提取内容控件自身的XML（核心的w:sdt节点）
Dim ccXML As String
ccXML = cc.XML

这里的cc.XML才是干净的内容控件结构，没有多余的文档级节点。

2. 用InsertXML插入提取的片段 #

现在拿这个干净的XML就能直接插入新控件了：

' 在文档末尾插入这个控件
ThisDocument.Range(ThisDocument.Content.End - 1).InsertXML ccXML

亲测这样就能完美复刻原内容控件，不会再报错。

3. 命名空间问题的兜底方案 #

如果还是遇到插入失败的情况，可能是XML里的命名空间缺失，可以手动补全必要的命名空间声明：

Dim fullXML As String
' 给控件XML加上WordML的命名空间
fullXML = "<w:sdt xmlns:w=""http://schemas.microsoft.com/office/word/2006/wordml"">" & Mid(ccXML, InStr(ccXML, "<w:sdtPr>"))
ThisDocument.Range.InsertXML fullXML

不过一般cc.XML已经自带正确的命名空间，这个步骤大概率用不上。

结合Range.InsertXML与Transform的进阶玩法 #

如果要通过XSLT转换生成内容控件，关键是确保转换后的输出是有效的WordprocessingML片段——只生成w:sdt节点，别包含w:document这类顶级节点。

举个简单的XSLT示例，用来生成富文本内容控件：

<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
                xmlns:w="http://schemas.microsoft.com/office/word/2006/wordml">
  <xsl:template match="/">
    <w:sdt>
      <w:sdtPr>
        <w:alias w:val="富文本控件"/>
        <w:tag w:val="TestTag"/>
        <w:sdtType w:val="richText"/>
      </w:sdtPr>
      <w:sdtContent>
        <w:p>
          <w:r>
            <w:t>示例文本</w:t>
          </w:r>
        </w:p>
      </w:sdtContent>
    </w:sdt>
  </xsl:template>
</xsl:stylesheet>

然后用VBA加载XSLT并转换插入：

Dim xmlDoc As Object, xslDoc As Object
Set xmlDoc = CreateObject("MSXML2.DOMDocument.6.0")
Set xslDoc = CreateObject("MSXML2.DOMDocument.6.0")

xmlDoc.LoadXML "<root/>" ' 这里替换成你的源XML内容
xslDoc.Load "C:\你的路径\转换文件.xsl"

Dim transformedXML As String
transformedXML = xmlDoc.TransformNode(xslDoc)

ThisDocument.Range.InsertXML transformedXML

这样就能通过Transform灵活生成并插入符合需求的内容控件了。

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