Hallo Regina,
nochmals vielen Dank.
Helmut
Am 30.04.2012 21:00, schrieb Regina Henschel:
> Hallo Helmut,
>
> noch ein Verbesserungsvorschlag. Damit kannst du auch innerhalb von
> Rahmen Sonderzeichen einfügen. Ich habe doc.text durch
> textviewcursor.text ersetzt.
>
> Mit freundlichen Grüßen
> Regina
>
> Sub smitHatschekKlein
> Dim oDoc as variant
> oDoc = ThisComponent
> Dim oCurrentController as variant
> oCurrentController = oDoc.getCurrentController()
> Dim oTextViewCursor as variant
> oTextViewCursor = oCurrentController.getViewCursor()
> Dim oText as variant
> If IsEmpty(oTextViewCursor.Cell) Then
> oText=oTextViewCursor.Text
> Else
> oText=oTextViewCursor.Cell.Text
> End If
> oText.insertString(oTextViewCursor,chr(clng("&H0161")),false)
> End Sub
>
--
Informationen zum Abmelden: E-Mail an users+h...@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
