分组所有形状VBA excel / Word

Question

我创建的宏允许我从特定路径打开单词，然后在ActiveDocument的不同区域中定位不同的形状 我想要的是打开单词并完成修改形状 该活动文档中的所有形状组合在一起 这是我打开单词的代码

Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Dim shp As Object
Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True

Set wrdDoc = wrdApp.Documents.Open(Sheets("Path").Range("B2").Value)
With wrdDoc

这是分组代码

wrdDoc.ActiveDocument.Shapes.SelectAll
Selection.ShapeRange.Group

我没有成功地适应它，错误是继续向我展示

Answer 1

excel的东西误导了我，你应该提到你从工作表中获取文件名

wrdDoc是一个文档对象。 ActiveDocument也是文档对象

wrdDoc.ActiveDocument就像在说ActiveDocument.ActiveDocument ......这很糟糕

只需使用wrdDoc.Shapes.SelectAll或ActiveDocument.Shapes.SelectAll

即可

Answer 2

感谢所有帮助过我的人 经过一番思考后解决我的问题

wrdDoc.Shapes.Range(Array("Groupe 19", "Group 646", "Image 652", "Group643", "Image 1", "Text Box 642", "Zone de texte 2")).Group

：d 祝你有愉快的一天