J�rg Schmidt schrieb:
> Da mir hinterher einf�llt was wohl die n�chste Frage ist, hier ist schon
> mal die Antwort auf "Wie schreibe ich das �bersichtlich?". Erzeuge ein
> leeres Dokument und la� folgendes Makro laufen:
>
> Sub test
> xxx = ThisComponent.StyleFamilies.getByName("ParagraphStyles")
> cursor = ThisComponent.text.CreateTextCursor
> cursor.GotoStart(False)
> For i = 0 to xxx.Count-1
> Cursor.String = xxx.GetByIndex(i).Name & " (" &
F�r diese Zeile wird eine Fehlermeldung angezeigt.
"Unerwartetes Symbol ..."
> xxx.GetByIndex(i).DisplayName & ")"
> Cursor.GotoEndofParagraph(False)
> ThisComponent.Text.insertControlCharacter(Cursor,
> com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK, False)
> Next i
> End sub
Andreas
--
http://borumat.de/openoffice-writer-tipps
http://www.teamstaroffice.org/wiki/moin.cgi/ModulWriter
http://borumat.de/firefox-browser-tipps
http://borumat.de/thunderbird-email-tipps
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
