Gruppierung alle shapesVBA Excel/Word-

Question

ich Makro erstellt, das ich Wort von bestimmtem Pfad öffnen kann dann in differents Formen in verschiedenem Bereich zu positionieren, dass ActiveDocument Was ich will, ist beim Öffnen Wort fertig ist und die Änderung von Formen auch alle Formen durchgeführt werden mein Code in diesem aktiven Dokument zusammengefasst dies für Wort öffnen

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 

und das ist Code

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

ich von Gruppierungs didnt succed zu adaptieren es ein Fehler hält mir zeigt

Answer 1

Also vielen Dank an alle, die mir für meine Frage für diese
Lösung half nach ein wenig

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

denken: D Haben Sie einen Eistag

Answer 2

die Excel-Zeug mich fehlgeleitet, sollten Sie erwähnt haben, dass Sie die Dateinamen aus einem Arbeitsblatt

wrdDoc wurden immer ist ein Dokument-Objekt. ActiveDocument ist auch ein Dokument-Objekt

wrdDoc.ActiveDocument wie ActiveDocument.ActiveDocument sagen will, ist ... das ist schlecht

verwenden nur wrdDoc.Shapes.SelectAll oder ActiveDocument.Shapes.SelectAll