Re: [de-users] Formatvorlagen per Makro zuweisen: Minimalversion?
On Sun, 13 Feb 2005 22:42:45 +0100, Andreas Borutta [EMAIL PROTECTED] wrote: Hallo, Formatvorlagen können in im Konfigurationsdialog Anpassen keine Tastenkürzel zugewiesen werden. Vielleicht ein Lichtblick am Rande: Genau dort wird die 2.0er auch Stilen Kürzel zuweisen können ;) Harald - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
[de-users] Formatvorlagen per Makro zuweisen: Minimalversion?
Hallo, Formatvorlagen können in im Konfigurationsdialog Anpassen keine Tastenkürzel zugewiesen werden. Wenn man dafür ein Makro aufzeichnet ist dies recht länglich. Beispiel: | sub Ueberschrift2 | ' define variables | dim document as object | dim dispatcher as object | ' get access to the document | document = ThisComponent.CurrentController.Frame | dispatcher = createUnoService(com.sun.star.frame.DispatchHelper) | dim args1(1) as new com.sun.star.beans.PropertyValue | args1(0).Name = Template | args1(0).Value = Überschrift 2 | args1(1).Name = Family | args1(1).Value = 2 | dispatcher.executeDispatch(document, .uno:StyleApply, , 0, args1()) | end sub Da ich mich mit Makros nicht auskenne: Was ist bitte der minimale Code um eine Formatvorlage zuzuweisen? Existiert vielleicht sogar ein Makro, welches das Zuweisen von Tastenkürzeln zu Formatvorlagen erleichtert/ beschleunigt? Andreas -- http://borumat.de/openoffice-writer-tipps http://www.teamstaroffice.org/wiki/moin.cgi/ModulWriter http://borumat.de/firefox-browser-tipps http://borumat.de/thunderbird-email-tipps - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Re: [de-users] Formatvorlagen per Makro zuweisen: Minimalversion?
Hallo Andreas, Am Sonntag, 13. Februar 2005 22:42 schrieb Andreas Borutta: Hallo, Formatvorlagen können in im Konfigurationsdialog Anpassen keine Tastenkürzel zugewiesen werden. Wenn man dafür ein Makro aufzeichnet ist dies recht länglich. Beispiel: | sub Ueberschrift2 | ' define variables | dim document as object | dim dispatcher as object | ' get access to the document | document = ThisComponent.CurrentController.Frame | dispatcher = createUnoService(com.sun.star.frame.DispatchHelper) | dim args1(1) as new com.sun.star.beans.PropertyValue | args1(0).Name = Template | args1(0).Value = Überschrift 2 | args1(1).Name = Family | args1(1).Value = 2 | dispatcher.executeDispatch(document, .uno:StyleApply, , 0, args1()) | end sub Da ich mich mit Makros nicht auskenne: Was ist bitte der minimale Code um eine Formatvorlage zuzuweisen? Existiert vielleicht sogar ein Makro, welches das Zuweisen von Tastenkürzeln zu Formatvorlagen erleichtert/ beschleunigt? Ich verstehe nicht ganz, weshalb Du für das Zuweisen von Formatvorlagen ein Tastenkürzel benötigst. Im Stylisten [F11] kannst Du doch per Mausklick eine neue Vorlage erstellen (2. Icon rechts oben). Andersrum weist Du auch einem Absatz, Zeichen, ... mit Hilfe des Stylisten eine Vorlage zu, entweder mit der Gießkanne oder per Doppelklick. In der 2.0 wird es dafür auch den Pinsel, den wir von MS kennen, geben. Einen schönen Abend noch Berthold -- Das! Office-Paket für Linux, Mac und Windows: http://de.openoffice.org Registered Linux User 279390 - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Re: [de-users] Formatvorlagen per Makro zuweisen: Minimalversion?
Hallo Andreas, Andreas Borutta schrieb: Da ich mich mit Makros nicht auskenne: Was ist bitte der minimale Code um eine Formatvorlage zuzuweisen? Handelt es sich um eine Absatzvorlage und der Cursor steht im entsprechenden Absatz oder der Absatz ist vollständig oder teilweise markiert, ist der kürzeste Code welcher mir auf die Schnelle einfällt: Sub vorlage ThisComponent.getCurrentSelection().getByIndex(0).ParaStyleName = Name_der_Absatzformatvorlage End sub Achtung die Orginalvorlagen müssen mit englischen Namen angesprochen werden, z.B. Überschrift1 heißt Heading1. Selbst erstellte Vorlagen heißen so wie Du sie benannt hast. Gruß Jörg - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
