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

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+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