Eindnoten als gewone pagina opmaken

[stef0001234]

In een .doc document van mijn scriptie getypt in open office writer, heb ik op het eind vier pagina's met eindnoten. Deze staan in de standaard eindnootvelden. Ik zou graag deze pagina's zodanig willen bewerken dat ik er een titel boven kan zetten en subtitels ertussen kan plaatsen (de hoofdstuknummers, dus dat dan bijvoorbeeld duidelijk wordt dat noot 1-10 tot hfdst1 behoren).

Hoe zorg ik ervoor dat ik dat kan doen?

Ik kan in de eindnoot zelf een witregel maken en daar iets op tikken. Maar dan zit ik met het probleem dat ik geen titel boven de eerste eindnoot kan plaatsen.

Of bestaat er een functie dat ik de eindnoten kan converteren naar 'normale' tekst, waardoor ik titels erboven en ertussen kan plaatsen?

Alvast bedankt voor de reactie

 

[floris v]

Onderstaande code haalt de opgemaakte tekst uit voet- en eindnoten en zet die aan het eind van het document. Bron: topic in het Engelse gemeenschapsforum.
Dan moeten de nootcijfervelden nog worden omgezet in gewone tekst of kruisverwijzingen. Bij vier bladzijden is dat met de hand misschien nog net te doen.

REM  *****  BASIC  *****
Option Explicit
Sub Main
Dim oView, XText, oCollection
   oView = thisComponent.getCurrentController()
   XText = thisComponent.getText()
   oCollection = thisComponent.FootNotes
   processNotes(oView, oCollection, XText)
   oCollection = thisComponent.EndNotes
   processNotes(oView, oCollection, XText)
End Sub

Sub processNotes(oView, oCollection, XText)
Dim i%, oNote, XTrans
   for i = 0 to oCollection.getCount() -1
REM copy the note content (does not include the prefix number)
      oNote = oCollection.getByIndex(i)
      oView.select(oNote.getText())
      XTrans = oView.getTransferable()

REM append a new paragraph to the passed text and set it's style
      XText = XText.Text.appendParagraph(Array())
      XText.ParaStyleName = oNote.Start.ParaStyleName
      
REM add the number & ". "
      XText.setString(cStr(i +1)&". ")
      
REM paste the transferable content
      oView.select(XText.getEnd(False))
      oView.insertTransferable(XTrans)
   next
End Sub