[de-users] Writer - Macro für Zeichen einfügen

[Helmut Leininger <hlein@inode.at>]

Hallo,

Ich habe keine Erfahrung mit Makros in LibreOffice. Zum einfügen von
bestimmten nationalen Sonderzeichen habe ich mit (mit Icons auf einer
Symbolleiste verknüpfte) Makros wie diesen:

Sub smitHatschekKlein
Dim doc as variant
Dim controller as variant
Dim textviewcursor as variant
doc = ThisComponent
controller = doc.getCurrentController()
textviewcursor = controller.getViewCursor()
Dim character as String
character = chr(clng("&H0161"))
textviewcursor.setString(character)
textviewcursor.goRight(1, false)
End Sub


Der obige Makro fügt ein s mit Hatschek (š) an die aktuelle Position
ein. Das funktioniert im Normnalfall, nicht aber wenn sich der Cursor
innerhalb einer Tabellenzelle befindet.

Woran kann das liegen?

Vielen Dank
Helmut (Leininger)


-- 
Informationen zum Abmelden: E-Mail an users+help@de.libreoffice.org
Probleme? http://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: http://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: http://listarchives.libreoffice.org/de/users/
Alle E-Mails an diese Liste werden unlöschbar öffentlich archiviert