Mit Notes Zugriff auf Word-Kopfbereich

[Puthy]

Hallo zusammen,

ich habe einige Daten, die ich von einem Formular in ein word-Dokument exportiere. Dazu wurde eine Vorlage mit Tabellen erstellt. Das funktioniert so weit ganz gut. Jetzt habe ich jedoch auch im Kopfbereich des Word-Dokuments eine Zelle, die ich gerne mit Daten befüllen würde, aber wie  spreche ich den Headerbereich an? 

[Axel]

Eine einfache Lösung wäre dieses:


Set objWord = CreateObject("Word.Application")
...
objWord.ActiveDocument.ActiveWindow.ActivePane.View.SeekView = 9
objWord.Selection.TypeText "Textzeile1"
objWord.Selection.MoveDown 5, 2
objWord.Selection.TypeText "Textzeile2"
objWord.ActiveDocument.ActiveWindow.ActivePane.View.SeekView = 0
...

Axel

[Puthy]

Supi Axel, das funzt einwandfrei. Vielen dank dafür


Christian