Code: Alles auswählen
com.sun.sar.uno.RuntimeException
Message: .
Code: Alles auswählen
If oTextElement.supportsService("com.sun.star.text.Paragraph") Then
If oTextElement.ParaChapterNumberingLevel >= 0 then
nHeadsFound = nHeadsFound + 1
End If
Wenn ich den Quellcode einfach anpasse, läuft das Makro, allerdings zeigt er keine Überschriften an. Klar, die If Bedingung, ob Writer den 'supportService' wird niemals erfüllt, so dass wohl niemals Überschriften angezeigt werden.
Jemand eine Ahnung, wie ich das Programm zum Laufen bringe?