Seite 1 von 1
zwei leere Absätze erkennen einen löschen [gelöst]
Verfasst: Mo, 18.10.2010 10:50
von 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 ........
Re: zwei leere Absätze erkennen einen löschen
Verfasst: Mo, 18.10.2010 12:30
von 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
Re: zwei leere Absätze erkennen einen löschen
Verfasst: Mo, 18.10.2010 13:36
von 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
Re: zwei leere Absätze erkennen einen löschen
Verfasst: Fr, 22.10.2010 08:46
von 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....