Mit VBA aus Powerpoint in ein Word-Dokument schreiben

Mit folgendem Code ist es möglich, aus Powerpoit heraus mit Hilfe von VBA ein Word-Dokument zu öffnen und Text in das Dokument einzufügen. In das Word-Dokument werden dazu Textfelder eingefügt, die dann über einen Index zugegriffen werden kann.

[code]

Sub openDocument()
'Deklaration eines Word-Objects
Dim oWord As Object
'Erzeugen einer Word-Object-Instanz
Set oWord = CreateObject("Word.Application")
'Öffnen eines bestehenden Word-Objects
oWord.Documents.Open "C:\Test.doc"
'Zugriff auf die Textfelder des Word-Dokuments und Schreiben des Inhalts
oWord.ActiveDocument.Shapes(1).TextFrame.TextRange.Text = Wert
'Word in den Vordergrund holen
oWord.Visible = True
End Sub

[/code]