[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