Absatz im RTItem löschen

[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

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

Hubert