Hallo Regina,
Vielen Dank!
Helmut
Am 30.04.2012 00:10, schrieb Regina Henschel:
> Helmut Leininger schrieb:
>> 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?
>
> Du kannst statt setString vom ViewCursor mit insertString auf dem Text
> arbeiten.
>
> 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"))
> Dim otext as variant
> If IsEmpty(textviewcursor.Cell) Then
> otext=doc.text
> Else
> otext=textviewcursor.Cell.Text
> End If
> otext.insertString(textviewcursor, character,false)
> End Sub
>
> Mit freundlichen Grüßen
> Regina
>
--
Informationen zum Abmelden: E-Mail an [email protected]
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
