Writer: Makro zum Aus-/Einblenden von Inhalten mit spezifischen Absatzvorlagen

de-users
#1

Moin.

Vor längerer Zeit erhielt ich hier in der Liste mal ein Makro zum Aus-
und Einblenden von Inhalten mit einer spezifischen Absatzvorlage.

Beispiel:
Sub fragen
absatz =_
thiscomponent.StyleFamilies.getByName("ParagraphStyles").getbyName("fragen")
absatz.CharHidden = not absatz.CharHidden
End Sub

Funktioniert prima.

Nun möchte ich nicht nur eine Absatzvorlage, sondern mehrere
ausblenden.

Folgendes funktioniert nicht:

Sub fragen-notiert
absatz =_
thiscomponent.StyleFamilies.getByName("ParagraphStyles").getbyName("fragen")
absatz =_
thiscomponent.StyleFamilies.getByName("ParagraphStyles").getbyName("notiert")
absatz.CharHidden = not absatz.CharHidden
End Sub

Dabei wird nur "fragen" ausgeblendet nicht aber "notiert".

Schüttelt jemand den richtigen Code aus dem Ärmel?
Ich würde mich freuen. Danke.

Andreas

#2

Hallo Andreas,

klar, wenn Du deine eigene Variable überschreibst;))

Willst Du mehr ausblenden, brauchst du eine schleife.

Sub fragen

aListe = array("fragen", "notiert")
for i = 0 to ubound aListe
   absatz = thiscomponent.StyleFamilies.getByName("ParagraphStyles").getbyName(aListe(i))
   absatz.CharHidden = not absatz.CharHidden
next
End Sub

Das wäre das Grobgerüst;)

Viele Grüße

Thomas

#3

Thomas Krumbein schrieb:

Hallo Thomas.

Ganz herzlichen Dank für Deine hilfreiche Antwort :slight_smile:

klar, wenn Du deine eigene Variable überschreibst;))

Willst Du mehr ausblenden, brauchst du eine schleife.

Sub fragen

aListe = array("fragen", "notiert")
for i = 0 to ubound aListe
   absatz =
thiscomponent.StyleFamilies.getByName("ParagraphStyles").getbyName(aListe(i))
   absatz.CharHidden = not absatz.CharHidden
next
End Sub

Das wäre das Grobgerüst;)

Ich erhielt zunächst die Fehlermeldung.

BASIC-Syntaxfehler.
Erwartet: CRLF.

Markiert war dabei diese Zeile:
for i = 0 to ubound aListe

Nach einer Recherche habe ich die Zeile ersetzt durch:
for i = 0 to ubound (aListe)

Dann klappte es :slight_smile:

Für alle die der Hintergrund meiner Frage interessiert:
Ich habe mir eine kleine "Aufgabenverwaltung" gebaut. Sie besteht aus
einer fortlaufend nummerierten langen Liste, die durch Überschriften
gegliedert ist.

Es gibt fünf Kategorien von Informationen:

erledigt (yippee)
fragen (noch klären)
notiert (kein Handlungsbedarf, aber merkenswert)
mangelhaft (es gibt keine Lösung für das Problem)
tun (das ist noch zu erledigen, wie ist bekannt)

Jeder dieser Kategorien ist einer Absatzformatvorlage zugeordnet.

Mit dem oben genannten Makro kann ich blitzschnell zwischen
verschiedenen sehr übersichtlichen Ansichten wechseln.

Beispiel:

Zeige nur die offenen Fragen.

Zeige nur die noch zu erledigenden geklärten Aufgaben.

Andreas

#4

Hallo Andreas,

Ich erhielt zunächst die Fehlermeldung.

*grins* - ja, sorry. Kommt davon, wenn man es einfach so "runterschreibt":wink:

Aber Du hast die Lösung ja gefunden:)

Klasse. Na dann - viel Spass damit

VG Thomas