Hallo Tom,
an sich reicht die Absatzeigenschaft "ParaIsConnectBorder" - steht sie auf True und der davorliegende Absatz besitzt einen Rahmen (links oder Rechts, oben oder unten) - so ist der Absatz ebenfalls "umrahmt" - also der Rahmen verschmolzen.
Stimmt. Ich war ungenau mit meiner Frage (es KÖNNTE nämlich auch nur
ein Absatz umrandet sein, d.h. nach dem Absatz in welchem der Cursor steht folgt kein Umrandeter mehr).
Aber meine Überlegung das ich überhaupt alle Absätze ermitteln muss ist unnötig, denn die Situation ist so:
es gibt einen nicht-umrandeten Absatz, dort steht der V-Cursor, nach diesem Absatz kommt
mindestens ein umrandeter Absatz. Der erste Absatz soll nun umrandet und mit möglichen Folgeabsätzen verschmolzen werden. Dazu muss ich ja garnicht wissen wieviele Folgeabsätze umrandet sind, sondern es genügt den Absatz mit dem unmittelbaren Folgeabsatz zu verschmelzen (so wie es Dir offensichtlich gleich klar war).
Der für meine Zwecke funktionierende Code ist:
Code: Alles auswählen
v_cur = ThisComponent.GetCurrentController.ViewCursor
t_cur = ThisComponent.Text.CreateTextCursor
t_cur.GotoRange(v_cur, False)
t_cur.gotoNextParagraph(False)
'der nachfolgende Absatz enthält die passenden Werte für die Umrandung
v_cur.TopBorder = t_cur.TopBorder
v_cur.LeftBorder = t_cur.LeftBorder
v_cur.RightBorder = t_cur.RightBorder
v_cur.BottomBorder = t_cur.BottomBorder
v_cur.TopBorderDistance = t_cur.TopBorderDistance
v_cur.LeftBorderDistance = t_cur.LeftBorderDistance
v_cur.RightBorderDistance = t_cur.RightBorderDistance
v_cur.BottomBorderDistance = t_cur.BottomBorderDistance
v_cur.ParaShadowFormat = t_cur.ParaShadowFormat
'falls hinter dem ersten Absatz nur ein umrandeter Absatz ist
'KÖNNTE es sein das 'Verschmelzen' nicht aktiviert ist
'Deshalb nicht auslesen, sondern direkt auf True setzen
v_cur.ParaIsConnectBorder = True
Gruß
Stephan