Word VBA：如何编辑从构建基块插入的文本框内容？

问题根源 #

1. 固定名称选中错误：你用ActiveDocument.Shapes.Range(Array("Text Box 2"))选中固定名称的文本框，但每次插入的文本框名称是递增的（如第一次是Text Box 1，第二次Text Box 2），循环中只会重复选中第二个文本框，而非刚插入的那个。
2. 构建块对象操作错误：objTextBox是模板中的构建块对象（BuildingBlock），不是插入到文档里的文本框实例。修改它的TextFrame会改动模板里的原始构建块，不会影响已插入到文档中的文本框。
3. 模板路径错误：你用ActiveDocument.AttachedTemplate.Path & "\" & ActiveDocument.Name获取模板路径，这实际指向当前文档而非附加模板，会导致构建块查找失败。

修正后的代码 #

Dim objBB As BuildingBlock
Dim insertedShape As Shape
Dim insertRange As Range
Dim i As Integer

For i = 65 To 67
    ' 获取附加模板中的目标构建块
    Set objBB = Application.Templates(ActiveDocument.AttachedTemplate.FullName).BuildingBlockEntries("Appendix Text Box")
    
    ' 插入构建块并捕获插入后的Range
    Set insertRange = objBB.Insert(Where:=Selection.Range, RichText:=True)
    
    ' 从Range中获取刚插入的文本框Shape对象
    Set insertedShape = insertRange.ShapeRange(1)
    
    ' 修改文本框内容
    insertedShape.TextFrame.TextRange.Text = "Appendix " & Chr(i)
Next

替代方案（通过Shapes集合末尾获取） #

如果插入的构建块仅包含一个文本框，也可以直接取Shapes集合的最后一个元素：

Dim objBB As BuildingBlock
Dim insertedShape As Shape
Dim i As Integer

For i = 65 To 67
    Set objBB = Application.Templates(ActiveDocument.AttachedTemplate.FullName).BuildingBlockEntries("Appendix Text Box")
    objBB.Insert Where:=Selection.Range, RichText:=True
    
    ' 获取最后一个Shape（即刚插入的文本框）
    Set insertedShape = ActiveDocument.Shapes(ActiveDocument.Shapes.Count)
    insertedShape.TextFrame.TextRange.Text = "Appendix " & Chr(i)
Next

关键说明 #

• 始终操作文档中的Shape实例，而非模板里的构建块对象；
• 用ActiveDocument.AttachedTemplate.FullName正确获取附加模板的完整路径，确保能找到目标构建块；
• 通过插入后的Range.ShapeRange或Shapes.Count定位刚插入的文本框，避免依赖固定名称。

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