Hallo,
> -----Original Message-----
> From: Helmut Schütz [mailto:[email protected]]
> Sent: Thursday, January 10, 2019 5:42 PM
> To: [email protected]
> Subject: Re: Wie kann ich in Open-Office
> Unicode-Sonderzeichen per Tastatur eingeben?
>
> Lieber Jörg,
>
> tut mir Leid - ich hatte doch etwas zu früh die endgültige
> Erfolgsmeldung gegeben. Zwar lassen sich mit dem Makro
>
> Sub griechischphi()
> On Error Goto fehler
> vcur = ThisComponent.GetCurrentController.ViewCursor
> vcur.String = "φ"
> vcur.goRight(1, false)
> Exit Sub
> fehler:
> Msgbox "falsche Cursorposition/Auswahl", 16, ""
> End Sub
>
> z. B. griechische Buchstaben jetzt vernünftig eingeben und
> ich lande auch mit dem Kursor rechts neben dem Zeichen. Wenn
> ich aber zum Beispiel mitten in einem deutschen Text ein paar
> griechische Buchstaben ergänzen will und anschließend mit den
> Pfeiltasten woandershin gehen will (meistens mit
> Strg-Pfeil-nach-rechts ans Ende der Zeile), dann bleibe ich
> im "Markiermodus" und alle Zeichen ab dem eingefügten Zeichen
> werden markiert. Das ist nur dann nicht der Fall, wenn ich
> sofort ein anderes Zeichen schreibe, deswegen war mir das
> bisher nicht aufgefallen. Wie könnte ich das ändern?
z.B.:
Sub griechischphi()
On Error Goto fehler
vcur = ThisComponent.GetCurrentController.ViewCursor
vcur.String = "φ"
vCur.collapseToEnd
Exit Sub
fehler:
Msgbox "falsche Cursorposition/Auswahl", 16, ""
End Sub
Gruß
Jörg
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
