Hortense Hoffmann schrieb:
> Wäre das machbar??
das Folgende sollte gehen:
Sub Main
On Error Resume Next
Cursor = ThisComponent.Text.CreateTextCursor
akt_text = ThisComponent.GetCurrentSelection()
If Not IsNull(akt_text) Then
For j = 0 To akt_text.getCount() - 1
inhalt = akt_text.getByIndex(j)
With Cursor
.gotoRange(inhalt, False)
x = LEN(Cursor.String)
.collapseToStart()
For i = 1 To x
.GoRight(1, True)
If ASC(.String) = 173 Then
.String = ""
End If
.collapseToEnd()
Next i
End With
Next j
End If
End Sub
(nicht sehr intensiv getestet)
Gruß
Jörg
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
