Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: HH am 25.11.08 - 11:48:05

Titel: Absatz im RTItem löschen
Beitrag von: HH am 25.11.08 - 11:48:05

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

Titel: Re: Absatz im RTItem löschen
Beitrag von: Thomas Schulte am 25.11.08 - 12:53:20

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

Titel: Re: Absatz im RTItem löschen
Beitrag von: HH am 25.11.08 - 14:14:13

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