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

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: zwei leere Absätze erkennen einen löschen [gelöst]

Re: zwei leere Absätze erkennen einen löschen

von clag » Fr, 22.10.2010 08:46

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....

Re: zwei leere Absätze erkennen einen löschen

von Karolus » Mo, 18.10.2010 13:36

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

Re: zwei leere Absätze erkennen einen löschen

von clag » Mo, 18.10.2010 12:30

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

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

von clag » Mo, 18.10.2010 10:50

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 ........

Nach oben