Er det muligt at få WRITER til at lave en liste over fodnoterne i et dokument med tilhørende ord med ankeret som første ord i listen?
Mvh
Gunnar
Liste over fodnoterne
Hvis du er interesseret, kan du læse om det på http://www.oooforum.org/forum/ under OpenOffice.org Writer, hvor der er en, der hedder OldeDane (gæt hvem 
) efterhånden langt nede på listen (i dag den 27.03.08 på nr 3), som spørger 'List of footnotes?' Og der er en macro der gør jobbet. Det skal siges, at den ikke virker, hvis der er en tabel i teksten men nok hvis der er et billed.
Det var administrator JohnV, som skrev følgende macro:
Option Explicit
Sub Main
Dim oDoc,oEnum1,oEnum2,thisPara,lastPortion,thisPortion
Dim aray(),lastWord,oFootnotes,thisFN,s,iAns,oVC
oDoc = ThisComponent
oEnum1 = oDoc.Text.createEnumeration
While oEnum1.hasMoreElements
thisPara = oEnum1.nextElement
oEnum2 = thisPara.createEnumeration
While oEnum2.hasMoreElements
lastPortion = thisPortion
thisPortion = oEnum2.nextElement
If Not isNull(thisPortion.Footnote) then
aray = Split(lastPortion.String)
lastWord = aray(uBound(aray))
oFootnotes = oDoc.getFootnotes
thisFN = oFootnotes.getByIndex(Cint(thisPortion.String)-1)
s = s & lastWord & " = " & thisFN.String & Chr(13)
EndIf
Wend
Wend
iAns = MsgBox (s,4,"Insert this list at the current cursor postion?")
If iAns = 7 then End
oVC = oDoc.CurrentController.getViewCursor
oVC.setString(s)
End Sub
Den virker,men den liste jeg fik på mine 230 fornoter kunne ikke være på skærmen, hvor der kun kunne være ca 50, så jeg måtte dele teksten i fem filer, og så køre dem hver for sig. Der skal svares Yes / No i enden af listen, og den ville med en fil være nede ved gulvet i usynlig tilstand
Jeg har sorteret min liste med 230 fodnoter i alfabetisk orden med Funktioner > Sorter.
Han giver endvidere adressen på 'How to install a macro found here', men mon ikke den kommer på skærmen, hvis du skriver det i din søgemaskine fx Google.
Mvh
Gunnar
) efterhånden langt nede på listen (i dag den 27.03.08 på nr 3), som spørger 'List of footnotes?' Og der er en macro der gør jobbet. Det skal siges, at den ikke virker, hvis der er en tabel i teksten men nok hvis der er et billed.Det var administrator JohnV, som skrev følgende macro:
Option Explicit
Sub Main
Dim oDoc,oEnum1,oEnum2,thisPara,lastPortion,thisPortion
Dim aray(),lastWord,oFootnotes,thisFN,s,iAns,oVC
oDoc = ThisComponent
oEnum1 = oDoc.Text.createEnumeration
While oEnum1.hasMoreElements
thisPara = oEnum1.nextElement
oEnum2 = thisPara.createEnumeration
While oEnum2.hasMoreElements
lastPortion = thisPortion
thisPortion = oEnum2.nextElement
If Not isNull(thisPortion.Footnote) then
aray = Split(lastPortion.String)
lastWord = aray(uBound(aray))
oFootnotes = oDoc.getFootnotes
thisFN = oFootnotes.getByIndex(Cint(thisPortion.String)-1)
s = s & lastWord & " = " & thisFN.String & Chr(13)
EndIf
Wend
Wend
iAns = MsgBox (s,4,"Insert this list at the current cursor postion?")
If iAns = 7 then End
oVC = oDoc.CurrentController.getViewCursor
oVC.setString(s)
End Sub
Den virker,men den liste jeg fik på mine 230 fornoter kunne ikke være på skærmen, hvor der kun kunne være ca 50, så jeg måtte dele teksten i fem filer, og så køre dem hver for sig. Der skal svares Yes / No i enden af listen, og den ville med en fil være nede ved gulvet i usynlig tilstand
Jeg har sorteret min liste med 230 fodnoter i alfabetisk orden med Funktioner > Sorter.
Han giver endvidere adressen på 'How to install a macro found here', men mon ikke den kommer på skærmen, hvis du skriver det i din søgemaskine fx Google.
Mvh
Gunnar
gunnar