[VBA, Word] Fussnoten erstellen
Gepostet am: May 25, 2011 12:31:12 PM
Sub Fussnoten_erstellen()
Dim oFN As Footnote
Dim Fussnote As String
Fussnote = InputBox("gewünschte Fussnote", "Fussnote")
With Selection
With .FootnoteOptions
.Location = wdBottomOfPage
.NumberingRule = wdRestartContinuous
.StartingNumber = 1
.NumberStyle = wdNoteNumberStyleArabic
End With
Set oFN = .Footnotes.Add(Range:=Selection.Range, Reference:="", text:=Fussnote)
End With
Selection.MoveRight Unit:=wdCharacter, Count:=1
End Sub