VBAを使用して、重複する図形と単語のテキストを変更する

Question

特定の図形から図形を複製するコードを作成しようとしていますが、操作を容易にするために図形の名前が変更されています。その形。私は試しましたが、私は成功しませんでした。

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" 

エラーが言い続け問題：

エラーメッセージが言ったように要素が

Answer 1

が見つからない、グループが行う

この

は私のコードですテキストフレームをサポートしていません。新しく作成/コピーされたグループ内の Textboxにアクセスして設定するには、グループシェイプの GroupItemsプロパティを使用してアクセスする必要があります。

インデックスまたは名前のいずれかでグループ項目にアクセスできます。次のいずれかを試してみてください。

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

または

wrdDoc.Shapes("Groupe 643").GroupItems("1").TextFrame.TextRange.text = "FME1"