Word - Fußzeile
Markus
ich hoffe, hier kann mir einer helfen. Google leitet mich bei Fragen zu Word immer zu diesem Forum....
Ich möchte in die Fußzeile des Word-Dokumentes noch das Datum der letzten Speicherung aufnehmen. Siehe Fettdruck. Allerdings habe ich im großen web nix gefunden, was mir hilft.
Wer kann mir helfen?
Viele Grüße
Markus
Sub Makro2()
If ActiveWindow.View.SplitSpecial wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
If Selection.HeaderFooter.IsHeader = True Then
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Else
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
End If
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldPage
Selection.TypeText Text:=" von "
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldNumPages
Selection.TypeText Text:=vbTab & "Letze Speicherung am " & dat
End Sub