Gezielt nach Fußnoten suchen

[F3K Total]

Hi,

Oder geht das womöglich auch automatisch?

ja, das geht z.B. mit diesem winzigen Makro:

Code: Alles auswählen

Sub S_change_footnotelabel_to_asterisk
    oFootnotes = thiscomponent.Footnotes
    for i = 0 to oFootnotes.count -1
        ofootnote = oFootnotes(i)
        ofootnote.label = "*"
    next i
End Sub

und zurück zur Nummerierung

Code: Alles auswählen

Sub S_change_Footnote_to_Numbering
    oFootnotes = thisComponent.Footnotes
    for i = 0 to oFootnotes.count -1
        oFootnote = oFootnotes(i)
        oFootnote.label = ""
    next i
End Sub

Gruß R