zwei leere Absätze erkennen einen löschen [gelöst]

[clag]

Hallo Kenner und Könner,

in einem Makro habe ich mit hilfe von "Enum" den TextCusor auf einen bestimmten Absatz/Paragraphen gesetzt,
die nächsten beiden Absätze sind vermutlich leer das möchte ich prüfen
und wenn wahr, einen leeren Absatz löschen/entfernen

Code: Alles auswählen

enum.......
   if TextElement.supportsService("com.sun.star.text.Paragraph") then
   ytext = left(TextElement.string,11)
   if yText = "Posted By :" then 
   mytextCursor.gotorange( TextElement.Anchor, false )
   mytextcursor.gotoStartofParagraph(false)
   mytextcursor.gotoEndofParagraph(true)
   print mytextcursor.string  '(nur zum prüfen)

' wenn nun die nächsten beiden Absätze leer sind, einen davon löschen 
....

kann mir bitte jemand zeigen wie das in Basic aussehen/ausgedrückt werden müsste ?

schonmal Danke für ........

[clag]

Hallo Leutz,

bin schon etwas weiter gekommen, im Prinzip funktioniert es
den Code empfinde ich aber als sehr holprig, vielleicht hat ja doch wer eine bessere Idee!

Code: Alles auswählen

mytextCursor.gotorange( TextElement.Anchor, false )
mytextcursor.gotoStartofParagraph(false)
mytextcursor.gotoEndofParagraph(true)

mytextcursor.gotoNextParagraph(false)
mytextcursor.gotoStartofParagraph(false)
mytextcursor.gotoEndofParagraph(true)
myCheck = mytextcursor.string

mytextcursor.gotoNextParagraph(false)
mytextcursor.gotoStartofParagraph(false)
mytextcursor.gotoEndofParagraph(true)
myCheck = myCheck & mytextcursor.string

if mycheck = "" then 
   'print "myCheck ist leer ! "
   mytextcursor.gotoPreviousParagraph(2,false)
   mytextcursor.gotoendofparagraph(false)
   mytextcursor.goright(1,true)
   oDoc.text.insertstring(mytextcursor,"",true)

end if

[Karolus]

Hallo
Nur mal als Anregung:

Code: Alles auswählen

Sub absaetze_checken
enumer = thiscomponent.text.createenumeration()

while enumer.hasmoreelements
	opara = enumer.nextelement 
	ostring = opara.string
	msgbox ostring
	if ostring = "Das ist Absatz drei." then
		opara.dispose()
	end if
wend

End Sub

Gruß Karo

[clag]

Hallo Karolus,

da hatte ich die Frage falsch formuliert und ich meinte eigentlich zwei leere Zeilen

dein Vorschlag ist von daher völlig richtig (was auch sonst)

aber für mich leider nicht das Problem lösend

Danke....