Schriftgröße per Shortcut ändern Problem/Frage

[Panurg]

Hallo mal wieder!

In 'Anpassen'|'Tastatur' kann ich der Formatierung "Zeichen vergrößern" bzw. "Zeichen verkleinern" einen Tastatur-Shortcut zuweisen. So weit, so gut. Wenn ich jetzt aber mehrere Zeichen, vielleicht gar einen ganzen Text, markiere und dann die Zeichengrößenveränderung vornehme, funktioniert das nur, wenn alle markierten Zeichen dieselbe Fontgröße haben. Das finde ich unkomfortabel. Ich hätte mir gewünscht, dass alle Zeichen 1pt kleiner werden (vielleicht sogar die Stufengröße wählbar, etwa zwischen 0.5pt und 1pt), - aber dem ist nicht so.
Kriege ich das vieleicht doch irgendwie gebacken? Kleiner Workaround oder so?

P

[Stephan]

Kriege ich das vieleicht doch irgendwie gebacken? Kleiner Workaround oder so?

das geht nur mit Makro und für völlig beliebige Markierungen ist das nicht so ganz trivial.

Für eine zusammenhängende Markierung im Fliesstext funktioniert:

Code: Alles auswählen

Sub groesser()
	sel = ThisComponent.GetCurrentSelection
	laenge = LEN(sel(0).String)
	oRange = sel(0).getStart()
    cur = ThisComponent.Text.CreateTextCursorByRange(oRange)
	for i = 1 to laenge
		cur.GoRight(1, True)
		cur.CharHeight = cur.CharHeight + 1
		cur.CollapseToEnd()
	Next i
End Sub

Sub kleiner()
	sel = ThisComponent.GetCurrentSelection
	laenge = LEN(sel(0).String)
	oRange = sel(0).getStart()
    cur = ThisComponent.Text.CreateTextCursorByRange(oRange)
	for i = 1 to laenge
		cur.GoRight(1, True)
		cur.CharHeight = cur.CharHeight - 1
		cur.CollapseToEnd()
	Next i
End Sub

Gruß
Stephan

[Panurg]

Sorry - eine doofe Frage:

Was mache ich mit dem Code? (Hab' nicht viel Ahnung von Skripten und so ...)
Wie kriege ich den zum Wirken?
(Ich habe ihn mir kopiert ... und nun weiter?)

P

[Stephan]

Extras-Makros-Makros verwalten-OpenOffice Basic aufrufen
links Standard-Module1 markieren
rechts irgendein Makro markieren
auf Bearbeiten klicken

makrodialog.gif (26.95 KiB) 2142 mal betrachtet

im nun sichtbaren Modul zur letzten Zeile Scrollen und wenn Diese keine Leerzeile ist durch ENTER eine Leerzeile erzeugen
den Code hinter diese Leerzeile Kopieren

code_in_Basic-IDE.gif (63.16 KiB) 2141 mal betrachtet

Über Extras-Anpassen-Tastatur den zwei Makros jeweils eine Tastaturkombination zuweisen


Gruß
Stephan

[Panurg]

Danke!

Es gibt - nicht immer - einen Laufzeitfehler, etwa, wenn ich *kleiner* mehr als 1-mal nach einander anwende

LZF.jpg (117 KiB) 2114 mal betrachtet

Kannst Du mit der Fehlermeldung was anfangen?