Füßzeile im Word ändern

Kein Problem:

[autoit]

Local Const $wdHeaderFooterPrimary = 1

[/autoit][autoit][/autoit][autoit]

$oWord = ObjCreate("Word.Application")
$oWord.Visible = False ; bleibt unsichtbar
$oWord.Documents.Open ('C:\Testdatei.doc') ; eine bestehende Datei aufrufen

[/autoit][autoit][/autoit][autoit]

; aktuelle Fußzeile auslesen
ConsoleWrite('Fußzeile aktuell:' & @CRLF & $oWord.ActiveDocument.Sections(1).Footers($wdHeaderFooterPrimary).Range.Text & @CRLF)

[/autoit][autoit][/autoit][autoit]

; neue Fußzeile zuweisen
$sFooterNew = 'Das ist eine neue Fußzeile'
$oWord.ActiveDocument.Sections(1).Footers($wdHeaderFooterPrimary).Range.Text = $sFooterNew

[/autoit][autoit][/autoit][autoit]

$oWord.Application.DisplayAlerts = False
$oWord.ActiveDocument.Save
$oWord.Quit

[/autoit]