OpenOffice.info

Danke!

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

[attachment=0]LZF.jpg[/attachment]

Kannst Du mit der Fehlermeldung was anfangen?

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

[attachment=1]makrodialog.gif[/attachment]

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

[attachment=0]code_in_Basic-IDE.gif[/attachment]

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


Gruß
Stephan

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

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

[quote]Kriege ich das vieleicht doch irgendwie gebacken? Kleiner Workaround oder so?
[/quote]
das geht nur mit Makro und für völlig beliebige Markierungen ist das nicht so ganz trivial.

Für [u]eine[/u] [u]zusammenhängende[/u] Markierung im [u]Fliesstext[/u] funktioniert:

[code]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
[/code]

Gruß
Stephan

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 [i]dieselbe Fontgröße[/i] 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