Eingebettetes Word Dokument ansteuern
27.11.2013 18:01:32
Goldfasan
Ich versuche gerade ein in Excel eingebettetes Word-Dokument (es ist nur in Word vorhanden und liegt nicht noch extra auf dem Computer) über VBA anzusteuern. Ich möchte einen Wert aus einer Zelle in dieses eingebettete Objekt schreiben. Allerdings weiß ich nicht, wie ich die eingebettete Datei richtig ansteuern kann, um dann darin die Word-VBA-Befehle nutzen zu können.
Ich hoffe ihr könnt mir helfen!
Hier mein bisheriger Makro-Code:
Sub Makro()
Dim oWord_App As Object
Dim wordObject As Object
Range("B2").Copy 'hier steht der Wert, der in die eingebettete Datei kopiert werden soll.
ActiveSheet.Shapes("Worddatei").Select 'Die eingebettete Word-Datei wird ausgewählt.
With oWord_App
Selection.Verb Verb:=xlPrimary 'Datei wird in Excel direkt geöffnet
Set wordObject = ActiveSheet.OLEObjects(1)
'in der folgenden Zeile bricht das Makro dann ab, weil ich Word nicht richtig ansteuere.
wordObject.Object.Selection '.Wholestory 'Alles in der Word Datei wird ausgewählt.
End With
End Sub