[de-users] Re: Formatvorlagen per Makro zuweisen: Minimalversion?
Andreas Borutta schrieb: > Existiert im Netz eine Tabelle mit den Wortpaaren? Dank Jörgs Makro existiert jetzt eine: http://borumat.de/openoffice/vorlagenbezeichnungen-englisch-deutsch.php Das Muster für kurze Makros habe ich dort ebenfalls aufgeführt. 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] Re: Formatvorlagen per Makro zuweisen: Minimalversion?
Hallo,
Jörg Schmidt schrieb:
> > Da ich nach einer prägnanten Anleitung für die Tippsammlung suche,
> > müsste ich den Lesern angeben, wie sie (auf einfache und schnelle
> > Weise) die englischsprachigen Entsprechungen ermitteln.
>
> na mittels Makro:
>
> Sub Macro1
> xxx = ThisComponent.StyleFamilies.getByName("ParagraphStyles")
> For i = 0 to xxx.Count-1
> 'b = b & xxx.GetByIndex(i).Name & CHR(13)
> b = b & xxx.GetByIndex(i).Name & " - "
> Next i
> msgbox b
> End Sub
Da mir hinterher einfällt was wohl die nächste Frage ist, hier ist schon
mal die Antwort auf "Wie schreibe ich das übersichtlich?". Erzeuge ein
leeres Dokument und laß folgendes Makro laufen:
Sub test
xxx = ThisComponent.StyleFamilies.getByName("ParagraphStyles")
cursor = ThisComponent.text.CreateTextCursor
cursor.GotoStart(False)
For i = 0 to xxx.Count-1
Cursor.String = xxx.GetByIndex(i).Name & " (" &
xxx.GetByIndex(i).DisplayName & ")"
Cursor.GotoEndofParagraph(False)
ThisComponent.Text.insertControlCharacter(Cursor,
com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK, False)
Next i
End sub
Gruß
Jörg
-
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Re: [de-users] Re: Formatvorlagen per Makro zuweisen: Minimalversion?
Hallo,
Andreas Burutta schrieb:
>
> >> Da ich mich mit Makros nicht auskenne:
> >> Was ist bitte der minimale Code um eine Formatvorlage zuzuweisen?
>
> > Sub vorlage
> > ThisComponent.getCurrentSelection().getByIndex(0).ParaStyleName =
> > "Name_der_Absatzformatvorlage"
> > End sub
>
> "...IllegalArgumentException"
> erhalte ich als Fehlermeldung bei:
>
> | Sub test
> |
> ThisComponent.getCurrentSelection().getByIndex(0).ParaStyleNam
> e ="heading1"
> | End sub
Ja, weil zweimal falsch gibt nicht einmal richtig. Ich hatte vergesssen
ein Leerzeichen zu verwenden und Du schreibst den Anfang klein...richtig
heißt es "Heading 1"
>
> > Achtung die Orginalvorlagen müssen mit englischen Namen angesprochen
> > werden, z.B. Überschrift1 heißt "Heading1".
>
> Da ich nach einer prägnanten Anleitung für die Tippsammlung suche,
> müsste ich den Lesern angeben, wie sie (auf einfache und schnelle
> Weise) die englischsprachigen Entsprechungen ermitteln.
na mittels Makro:
Sub Macro1
xxx = ThisComponent.StyleFamilies.getByName("ParagraphStyles")
For i = 0 to xxx.Count-1
'b = b & xxx.GetByIndex(i).Name & CHR(13)
b = b & xxx.GetByIndex(i).Name & " - "
Next i
msgbox b
End Sub
Gruß
Jörg
-
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Re: [de-users] Re: Formatvorlagen per Makro zuweisen: Minimalversion?
Am Mo, den 14.02.2005 schrieb Andreas Borutta um 01:59: [...] > "...IllegalArgumentException" > erhalte ich als Fehlermeldung bei: > > | Sub test > | ThisComponent.getCurrentSelection().getByIndex(0).ParaStyleName ="heading1" > | End sub "Heading 1" != "heading1" > > Achtung die Orginalvorlagen müssen mit englischen Namen angesprochen > > werden, z.B. Überschrift1 heißt "Heading1". > > Da ich nach einer prägnanten Anleitung für die Tippsammlung suche, > müsste ich den Lesern angeben, wie sie (auf einfache und schnelle > Weise) die englischsprachigen Entsprechungen ermitteln. > > Existiert im Netz eine Tabelle mit den Wortpaaren? Entweder in den Konfigurationsdateien (Benutzer oder OOo-Installation) oder sonst im Quelltext (CVS kann man online browsen). Frag' danach am besten auf [EMAIL PROTECTED] HTH, Marc - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
[de-users] Re: Formatvorlagen per Makro zuweisen: Minimalversion?
Jörg Schmidt schrieb: >> Da ich mich mit Makros nicht auskenne: >> Was ist bitte der minimale Code um eine Formatvorlage zuzuweisen? > Sub vorlage > ThisComponent.getCurrentSelection().getByIndex(0).ParaStyleName = > "Name_der_Absatzformatvorlage" > End sub "...IllegalArgumentException" erhalte ich als Fehlermeldung bei: | Sub test | ThisComponent.getCurrentSelection().getByIndex(0).ParaStyleName ="heading1" | End sub > Achtung die Orginalvorlagen müssen mit englischen Namen angesprochen > werden, z.B. Überschrift1 heißt "Heading1". Da ich nach einer prägnanten Anleitung für die Tippsammlung suche, müsste ich den Lesern angeben, wie sie (auf einfache und schnelle Weise) die englischsprachigen Entsprechungen ermitteln. Existiert im Netz eine Tabelle mit den Wortpaaren? 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]
[de-users] Re: Formatvorlagen per Makro zuweisen: Minimalversion?
Berthold Gerdes schrieb: > 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). Die Verwendung der Maus für häufig verwendete Aktionen ist nur aus einem einzigen wichtigen Grund der Verwendung eines Tastenkürzels unterlegen: sie ist erheblich langsamer Kleinigkeit am Rande: Der Stylist nimmt für Standard-Editieraufgaben viel zu viel Fensterfläche ein. Zudem editiere ich am liebsten im Vollbildmodus. Da lenkt nichts Überflüssiges ab beim Prozeß des Strukturierens und beim Tippen. Der Hintergrund meiner Frage ist BTW, dass ich gerade an einer großen Tabelle mit meinen Empfehlungen für Tastenkürzel für OOo-Writer arbeite. Noch länger als http://borumat.de/firefox-browser-tipps#andreas-tastenkuerzel-und-mausgesten oder http://borumat.de/thunderbird-email-tipps#andreas-tastenkuerzelvorschlaege :) 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]
