OpenOffice.info

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

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

Hi,
[quote="Prof X"]Oder geht das womöglich auch automatisch? [/quote]
ja, das geht z.B. mit diesem winzigen Makro:
[code]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[/code]
und zurück zur Nummerierung
[code]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[/code]
Gruß R