Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/17.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
使用VBA excel复制word中的形状并更改文本_Vba_Excel_Ms Word - Fatal编程技术网

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

使用VBA excel复制word中的形状并更改文本,vba,excel,ms-word,Vba,Excel,Ms 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 = She

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

这是我的代码:

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)。文本框包含我要更改的单词