使用VBA excel复制word中的形状并更改文本

我试图创建一个代码，从一个特定的形状复制形状，并更改形状的名称以便于操作-我想更改的是位于该形状中的文本。我试过了，但没有成功

这是我的代码：

If frame.Value = "2" Then
wrdDoc.Shapes("Groupe 643").Duplicate
wrdDoc.Shapes("Groupe 643").Name = " Groupe 644"

 Set shp = wrdDoc.Shapes("Groupe 643")

With shp
    .Left = Sheets("Feuil1").Range("J3")
End With
wrdDoc.Shapes("Groupe 644").TextFrame.TextRange.Text = "FME1"

问题是，一个错误一直在说：

找不到该元素

---

正如错误消息所说，组不支持文本框。要在新创建/复制的组中访问和设置

文本框

，您需要通过组形状的

GroupItems

属性访问它

您可以通过索引或名称访问组项。请尝试以下操作之一：

wrdDoc.Shapes("Groupe 643").GroupItems("Text Box 644").TextFrame.TextRange.text = "FME1"

或

---

正如错误消息所说，组不支持文本框。要在新创建/复制的组中访问和设置

文本框

，您需要通过组形状的

GroupItems

属性访问它

您可以通过索引或名称访问组项。请尝试以下操作之一：

wrdDoc.Shapes("Groupe 643").GroupItems("Text Box 644").TextFrame.TextRange.text = "FME1"

或

---

.Name=“Groupe 644”如果名称开头有多余的空格，请将其删除。

我没有看到，我将再次尝试新错误5917:wrdDoc.Shapes（“Groupe 644”）.TextFrame.TextRange.Text=“FME1”。。。。。此对象无法控制TXT。看起来您的形状实际上是一个组，而不是一个单独的形状，不是吗？是的，我的形状是groupe而不是individual（有一个文本框644和autoline）。文本框包含我要更改的单词

。Name=“groupe 644”您在名称的开头有一个额外的空格，删除它。

我没有看到，我要再试一次新错误5917:wrdDoc.Shapes（“Groupe 644”）.TextFrame.TextRange.Text=“FME1”。。。。。此对象无法控制TXT。看起来您的形状实际上是一个组，而不是一个单独的形状，不是吗？是的，我的形状是groupe而不是individual（有一个文本框644和autoline）。文本框包含我要更改的单词