OpenOffice.info

Verfasst: **Mi, 13.02.2013 17:56**

Hi,

Prof X hat geschrieben:Oder geht das womöglich auch automatisch?

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

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

OpenOffice.info

Gezielt nach Fußnoten suchen

Re: Gezielt nach Fußnoten suchen