组中的引用项(文本框)

Question

我使用下面的代码行来编辑word文档的文本框。它运行得很好。wdDoc.Shapes("T1").TextFrame.TextRange.Text = sh.Range("Q2"). Value

• 但现在我对Word文档(模板文件(做了一些更改

1. 我用形状("T1"(对一些项目进行了分组。所以现在形("T1((3(组中
2. 现在代码给出错误，因为它找不到形状("T1"(。如何在组(3(中引用形状("T1"(

我找到的唯一属性是Shape.GroupItems

Answer 1

以下是解决方案：

With wdDoc.Shapes("Group 3")
For x = 1 To .GroupItems.Count
If .GroupItems(x).Name = "T1" Then
With .GroupItems(x)
.TextFrame.TextRange.Text = sh.Range("Q2").Value
End With
End If
Next
End With