OpenOffice.info

[quote]Ich hab jetzt mal ne Weile gebastelt und es scheint auch zu funktionieren -gibt es ne andere Möglichkeit als für jede neu gewünschte Fußnote das Makro auch erneut auszuwählen? Ist doch etwas umständlich immer erst auf Makros verwalten zu gehen und dort das richtige dann auswählen statt wie sonst einfach auf "Einfügen - Fußnote" zu gehen?[/quote]

Ordne, zum direkten Aufrufen, dem Makro eine Tastaturkombination oder einen Menüeintrag oder eine Schaltfläche in einer SYmbolleiste zu - über Extras-Anpassen gehen alle 3 genannten Möglichkeiten

[quote]Außerdem hab ich nun direkt das nächste Problem [...][/quote]

dann eröffne einen neuen Thread!

ZUr Installation des Makros hat bonzo bereits das nötige verlinkt und bezüglich 'supereleganter Lösung', kann ich nur klarstellen das es mir um eine etwas anders programmierte Makro-Lösung ging, die aber für dich als Endbenutzer keine besonderen Vorteile böte.

in jedem Fall ist bereits die derzeitig durch mich gepostete Makrolösung perfekt, so sie eigentlich genau das tut was du brauchst, sie fügt eine Fußnote genauso ein wie die OOo-eigene Fußnotenfunktion (also sie fügt an der Stelle wo der Cursor steht den Fußnotenanker ein und springt dann in den Fußnotenbereich, wo man selbst direkt den Text der Fußnote eintragen kann), allein ergänzt sie automatisch den Fußnotenanker um eine nachgestellte KLammer ")"

Gruß
Stephan

Hallo,
schau [url=http://www.ooowiki.de/MakrosInstallieren#Quelltext_.2BAPw-bernehmen]hier[/url].
Ciao

sub Main
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:InsertFootnote", "", 0, Array())

rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Text"
args2(0).Value = ""

dispatcher.executeDispatch(document, ".uno:InsertText", "", 0, args2())

dispatcher.executeDispatch(document, ".uno:JumpToFootnoteOrAnchor", "", 0, Array())

dim args3(1) as new com.sun.star.beans.PropertyValue
args3(0).Name = "Count"
args3(0).Value = 1
args3(1).Name = "Select"
args3(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args3())

rem ----------------------------------------------------------------------
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "Text"
args4(0).Value = ")"

dispatcher.executeDispatch(document, ".uno:InsertText", "", 0, args4())

args3(0).Value = 1
args3(1).Value = true
dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args3())

dim args5(1) as new com.sun.star.beans.PropertyValue
args5(0).Name = "Template"
args5(0).Value = "Fußnotenanker"
args5(1).Name = "Family"
args5(1).Value = 1

dispatcher.executeDispatch(document, ".uno:StyleApply", "", 0, args5())

args3(0).Value = 1
args3(1).Value = false
dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args3())


dispatcher.executeDispatch(document, ".uno:JumpToFootnoteOrAnchor", "", 0, Array())

end sub

also ich würde im Konkreten nicht weiter über 'superelegante' Lösungen nachdenken sondern das ganz pragmatisch als Makro aufzeichnen, bei mir gibt das (bei üblichen Standardeinstellungen und dürch Kürzen überflüssiger Codeteile):

[code]sub Main
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:InsertFootnote", "", 0, Array())

rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Text"
args2(0).Value = ""

dispatcher.executeDispatch(document, ".uno:InsertText", "", 0, args2())

dispatcher.executeDispatch(document, ".uno:JumpToFootnoteOrAnchor", "", 0, Array())

dim args3(1) as new com.sun.star.beans.PropertyValue
args3(0).Name = "Count"
args3(0).Value = 1
args3(1).Name = "Select"
args3(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args3())

rem ----------------------------------------------------------------------
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "Text"
args4(0).Value = ")"

dispatcher.executeDispatch(document, ".uno:InsertText", "", 0, args4())

args3(0).Value = 1
args3(1).Value = true
dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args3())

dim args5(1) as new com.sun.star.beans.PropertyValue
args5(0).Name = "Template"
args5(0).Value = "Fußnotenanker"
args5(1).Name = "Family"
args5(1).Value = 1

dispatcher.executeDispatch(document, ".uno:StyleApply", "", 0, args5())

args3(0).Value = 1
args3(1).Value = false
dispatcher.executeDispatch(document, ".uno:GoLeft", "", 0, args3())


dispatcher.executeDispatch(document, ".uno:JumpToFootnoteOrAnchor", "", 0, Array())

end sub[/code]


Dieses Makro fügt beim Starten immer eine neue Fußnote mit ) hinter dem Anker hinzu.

Gruß
Stephan