Word VBA - Ansprechen von Tabellen in Kopfzeilen

[Schmidddi 10]

Hey zusammen,

 

ich stehe glaube ich ein wenig auf dem Schlauch. Herausforderung ist Folgende:

In einem Worddokument (welches später als Formular dient) wird auf einem Deckblatt ein Textfeld gefüllt. Wenn die Eingabe im Textfeld dann beendet ist wird ein Makro ausgeführt, welches den Dokumentenschutz aufhebt, den Wert des Textfeldes ausliest und den Dokumentenschutz wieder setzt.

Soweit so gut, funktioniert angenehm flüssig. Was nicht funktioniert ist den ausgelesenen Wert in einer Tabelle in der Kopfzeile (erste Seite anders) wieder einzufügen. Folgender Makrocode:

Sub AutofillHeader()

Dim Name
Name = ActiveDocument.FormFields("Text2").Result

ActiveDocument.Unprotect Password:="Dokumentenschutz"
ActiveDocument.StoryRanges(wdTextFrameStory).Select
Selection.Tables(2).Cell(1, 1).Range.Text = Name
ActiveDocument.Protect wdAllowOnlyFormFields, Password:="Dokumentenschutz"
ActiveDocument.FormFields("Text2").Result = Name

End Sub

 

Wo liegt mein Denkfehler? Ich habe alle StoryRanges getestet, in jedem sagt er mir, dass das Objekt (also die Tabelle) nicht vorhanden sei...Irgendwie wird es ja möglich sein, die Kopfzeile eines Dokumentes mit Deckblatt (natürlich ohne Kopfzeile) anzusprechen...

 

Bitte um Hilfe, damit ich das Brett vor meinem Kopf wieder "entnageln" kann ;-)

[Schmidddi 10]

*Brettvormkopfentfernt* und es läuft. Habe das gestern echt nicht mehr gesehen:

 

ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Tables(1).Cell(1, 1).Tables(1).Cell(1, 1).Range.Text = Name