Hallo, ich moechte oefters ein "Herz-Symbol" in Writer-Dokumente einfügen. unicode : 9825 und 9829
Im Sonderzeichen-Dialog gibt es keine Moeglichkeit den unicode direkt einzutippen, der trick "alt u+9825" klappt bei mir nicht. also per makro: msgbox chr(9829) zeigt mir ein schoenes herz an, aber oSelection.Text.insertString(oSelection, chr(9829), True ) fügt eine leere stelle ein. muss ich noch eine schriftart setzen? wenn ja, wie geht das? vielen dank fuer jeden tipp beste gruesse jochen ***** BASIC ***** 'chr(9825) herz kontour 'chr(9829) herz voll Option Explicit Sub Insert_Unicode Dim oDesktop, oController, oDocument, oSelection as Object Dim aValue as String aValue = chr(9829) oDesktop = createUnoService( "com.sun.star.frame.Desktop" ) oController = oDesktop.CurrentFrame.Controller oDocument = oController.Model oSelection = oDocument.CurrentSelection( 0 ) oSelection.Text.insertString( oSelection, aValue, True ) msgbox aValue End Sub --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
