Domino 9 und frühere Versionen > ND6: Entwicklung

Absatz im RTItem löschen

(1/1)

HH:
Hallo,

wie kann man in einem RTItem einen Absatz löschen?

Mit NotesRichtextRange.Remove wird zwar der Text entfernt, es bleibt aber ein leerer Absatz. Wie bekommt man den weg?

Hubert

Thomas Schulte:
Warscheinlich musst du deinen Range etwas weiter fassen um den Absatz mit zu entfernen.

HH:
Danke Thomas, das war der Schubser in die richtige Richtung. Ich gehe nun so vor, um den Text vor einem bestimmten Suchbegriff zu löschen:


--- Code: --- Dim rtnav As NotesRichTextNavigator
Dim rtRange As NotesRichTextRange
Dim tmpRange As NotesRichTextRange

Set rtnav = rtitem.CreateNavigator
Set rtRange = rtitem.CreateRange
Set tmpRange = rtitem.CreateRange

Call rtnav.FindFirstElement( RTELEM_TYPE_TEXTPARAGRAPH )
Call rtRange.SetBegin( rtnav )

Call tmpRange.SetBegin( rtnav )
Do While Left( tmpRange.TextParagraph, Len( searchString ) ) <> searchString
Call rtnav.FindNextElement( RTELEM_TYPE_TEXTPARAGRAPH )
Call tmpRange.SetBegin( rtnav )
Loop
If removeSearchString = True Then
Call rtnav.SetPositionAtEnd( rtnav )
End If
Call rtRange.SetEnd( rtnav )
Call rtRange.Remove
--- Ende Code ---

Es bleibt allerdings immer noch ein letzter Absatz in der ersten Zeile. Gibt es eine Möglichkeit, den auch noch zu löschen?

Hubert

Navigation

[0] Themen-Index