1 May 2012 07:04
Re: Writer - Macro für Zeichen einfügen
Helmut Leininger <hlein <at> inode.at>
2012-05-01 05:04:36 GMT
2012-05-01 05:04:36 GMT
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)
(Continue reading)
RSS Feed