VBA - Shapes in Excel bedienen

Computer: Software & Programmierung Visual Basic
#1

Hallöchen, ich bin es mal wieder.

Ich habe einige Exceldateien, die alle ein ShapeObject (Word) beinhalten. Ich möchte dieses temporäre Worddokument in eine seperate Worddatei (ein vordefinierte Vorlage inkl. Pfad) einfügen. Alles andere wird bereits über Excel gesteuert und sollte auch weiterhin hierüber laufen…

Dim appWordVorlage As Object
Dim wordObject As Object
…
ActiveSheet.Shapes(„Object 1165“).Verb = xlPrimary
ActiveSheet.OLEObjects(1).Verb Verb:=xlOpen
Set wordObject = ActiveSheet.OLEObjects(1)
appWordVorlage.Selection.Insert (wordObject)
…

Das das so nicht klappt ist klar. Ich hoffe ihr könnt mir aber trotzdem weiterhelfen.

Danke
Eure CherryDip

#2

… mir würde es eigentlich schon helfen wenn ich das geöffnete Fenster von Word ansprechen könnte!

  1. Die WORD Vorlage wird geöffnet (Dim winVorlage As Window)
  2. Exceldatei wird geöffnet (Dim wbkExcelfile As Workbook)
  3. Eingebettetes Wordobjekt wird geöffnet (Dim winWordobjekt As Window)
  4. kopieren von Inhalt winWordobjekt nach winVorlage

Wie kann ich denn die Fenster zuweisen? Folgendes habe ich probiert aber es hatnicht funktionert:

Set winVorlage = ActiveWindow oder
Set winVorlage = Windows(1).documents

Ich hoffe ich habe Euch hierdurch ein bißchen mehr Infos gegeben.
Danke für Eure Hilfe.

LG CherryDip