Makro: Fussnote

Dieses Makro fuegt in das aktuelle Dokument eine Fusslinie und darunter die erste Fussnote ein, bei jedem Abschnitt wird mit Fussnote Nummer 1 begonnen:

Sub FussNote()
'
' FussNote Makro
' Makro aufgezeichnet am 06.08.2006 von AS
'
With ActiveDocument.Range(Start:=ActiveDocument.Content.Start, End:= _
ActiveDocument.Content.End)
With .FootnoteOptions
.Location = wdBottomOfPage
.NumberingRule = wdRestartContinuous
.StartingNumber = 1
.NumberStyle = wdNoteNumberStyleArabic
End With
.Footnotes.Add Range:=Selection.Range, Reference:=""
End With
End Sub

© Sybille Amber: Intellectual Property 2005/2006