Re: [de-users] Writer: Makro zum Aus-/Einblenden von Inhalten mit spezifischen Absatzvorlagen

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


Am 23.01.2017 um 11:58 schrieb Andreas Borutta:
> 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


--
Liste abmelden mit E-Mail an: users+unsubscribe@de.libreoffice.org
Probleme? http://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: http://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: http://listarchives.libreoffice.org/de/users/
Alle E-Mails an diese Liste werden unlöschbar öffentlich archiviert