Office: (Office 365) offene Word-Datei per VBA speichern

Guten Abend zusammen,

mit dem nachfolgenden Code öffne ich ein OLE-Objekt (Word-Datei) aus Excel heraus.

Sheets("WORD").Select
ActiveSheet.Shapes.Range(Array("Object 7")).Select
Selection.Verb Verb:=xlPrimary


Da in diesem Worksheet immer NUR 1 OLE-Objekt vorhanden sein darf, soll beim Einfügen eines neuen das alte/bestehende vorher gelöscht werden. In diesem Fall ändert sich der Name des neuen OLE-Objekts.
Wie müsste den oben genannte Code geändert werden, um das 1 vorhandene OLE-Objekt, unabhängig desses Namens, anzusprechen ?

Die geöffnete Word-Datei soll dann unter dem gleichen Namen, wie die gerade geöffnete Excel-Datei im selben Pfad gespeichert werden.

Wie müsste man für beide Anforderungen den Code erweitern ?

DANKE für Deine Antwort im Voraus.
Jens

 

Problematik selbst gelöst.