Hallo EscaFlow,
es gibt noch eine weitere Möglichkeit, du kannst mit Bereichen und einem Makro arbeiten.
Im angehängten Beispiel wird das Makro gestartet, wenn Du eines der Markierfelder anklickst.
Der jeweils unter dem Markierfeld liegende Bereich wird ein- bzw. ausgeblendet.
Dabei muß man aber sehr aufpassen dass die Markierfelder selbst nicht im jeweiligen Bereich liegen, sonst verschwinden die auch.
Ich habe es so gemacht:
-
Zwei Absätze
vor einer Tabelle, am ersten hängt das Markierfeld, der zweite definiert den Beginn des Bereiches
-
Einen Absatz
nach der Tabelle, der definiert das Ende des Bereiches.
Zum Einfügen eines Bereiches markierst Du nun vom Absatz vor der Tabelle bis zum Absatz nach der Tabelle und gehts auf
Einfügen/Bereich.
Das Makro kann im Augenblick zwei Bereiche verarbeiten, wenn Du mehr brauchst, mußt Du es sinngemäß erweitern.
Code: Alles auswählen
Sub S_Sections_visible_invisible
dim ochkbox(1) as object ' 1 für zwei Markierfelder, 2 für drei Markierfelder usw ...
odoc = thiscomponent
ochkbox(0) = odoc.drawpage.forms(0).getbyname("Markierfeld1")
ochkbox(1) = odoc.drawpage.forms(0).getbyname("Markierfeld2")
osections=odoc.TextSections 'Bereiche auslesen
for i = 0 to 1
if ochkbox(i).state = 1 then 'Auslesen ob das i-te Markierfeld angehakt ist, wenn ja
osections.getbyindex(i).IsVisible=true' i-ten Bereich einblenden
else 'wenn nein
osections.getbyindex(i).IsVisible=false' ' i-ten Bereich ausblenden
endif
next i
End Sub
Gruß R