Hallo,
> From: Apo [mailto:[email protected]]
> hat jemand einen Tip, wie ich kapitelweise angelegte Fußnoten in
> durchgehend numerierte Endnoten umwandeln kann?
In dem Du die Fußnoten durch Endnoten ersetzt, folgendes Makro tut das (für den
Fliestextbereich):
Sub Fussnoten_in_Endnoten_umwandeln()
oDoc = thisComponent
oViewcursor = oDoc.currentController.getviewcursor()
oNotes = oDoc.getFootNotes()
anz = -1
oEnum = oDoc.Text.createEnumeration()
Do While oEnum.hasMoreElements()
oPar = oEnum.nextElement()
If oPar.supportsService("com.sun.star.text.Paragraph") Then
oEnum2 = oPar.createEnumeration()
Do While oEnum2.hasMoreElements()
oNote = oEnum2.nextElement()
If NOT IsNull(oNote.Footnote) Then
ia = oNote.getString()
thisnote = oNotes.getbyIndex(Val(ia) - 1)
a1 = thisnote.String
oViewcursor.gotoRange(oNote,False)
ofn = oDoc.createInstance("com.sun.star.text.Endnote")
oDoc.Text.insertTextContent(oViewCursor, ofn, True)
anz = anz + 1
oRange = oDoc.getEndnotes().getByIndex(anz).createTextCursor()
ofn.insertString (oRange, a1, false)
End If
Loop
End If
Loop
End Sub
> Ich schaffe es zwar, Endnoten zu generieren, allerdings
> beginnen diese
> mit jedem Kapitel wieder von vorne.
Ist das nicht ein Irrtum und Du (nur) meinst das Du es schaffst Fussnoten am
Dokumentende anzuzeigen?
> Beim Übergang von Fuß- zu Endnotenanker ist wohl der Hund
> begraben, da
> sollte irgendwo die Einstellung zur Durchnumerierung zu finden sein.
??
Es gibt m.E. keinen "Übergang", Fussnoten sind Fussnoten und Endnoten sind
Endnoten. Warum das im Programm so gelöst ist weiß ich auch nicht, aber es ist
so gelöst.
> Es wäre alternativ auch hilfreich, wenn es möglich ist, den Endnoten die
> Kapitelnummern voranzustellen.
> Kann man die "Endnotentabelle" irgendwie manuell ändern bzw ergänzen?
Nein, soweit es um die Nummerierung geht.
Auch eine diesbezügliche Bearbeitung im XML der Datei ist m.E. nicht möglich,
weil die Endnoten dynamisch dargestellt werden, also in der Content.xml
physisch garkeine Endnoten'tabelle' existiert, die man bearbeiten kann.
Gruß
Jörg
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
