OpenOffice.info

Hallo Karo,

ich wollte nicht die Formateigenschaften einer Absatzvorlage ändern, sondern in dem "Verzeichnis einfügen"-Dialog unter dem "..."-Button (neben Gliederung) eine andere Absatzvorlage für z.B. die Ebene 1 meines Inhaltsverzeichnisses einstellen.
Standard ist die Ebene ja auf Überschirft 1 bis Überschrift 10 eingestellt, und ich will dort halt eine andere Absatzvorlage.

Gruß
Jonny

Sub Vorlage_finden_und_aendern
xxx = ThisComponent.StyleFamilies.getByName("ParagraphStyles")
'xray xxx'.getbyindex()
msgbox xxx.getbyindex(86).name
xxx.getbyindex(86).charcolor =  RGB(255,0,0)
'xxx.getbyname("contents 1").charcolor =  RGB(255,0,0)
End Sub
 

Sub Absatzvorlagenliste
xxx = ThisComponent.StyleFamilies.getByName("ParagraphStyles")
cursor = ThisComponent.text.CreateTextCursor
cursor.GotoStart(False)
For i = 0 to xxx.Count-1

	Cursor.String = i &chr(9) & xxx.GetByIndex(i).Name & chr(9)  &xxx.GetByIndex(i).DisplayName  
	Cursor.GotoEndofParagraph(False)
	ThisComponent.Text.insertControlCharacter(Cursor,com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK, False)
next i
end sub
' 

Hallo Jonny

Möchtest du Formateigenschaften bestimmter Absatzvorlagen ändern ?
Bsplw.:
[code]Sub Vorlage_finden_und_aendern
xxx = ThisComponent.StyleFamilies.getByName("ParagraphStyles")
'xray xxx'.getbyindex()
msgbox xxx.getbyindex(86).name
xxx.getbyindex(86).charcolor = RGB(255,0,0)
'xxx.getbyname("contents 1").charcolor = RGB(255,0,0)
End Sub
[/code]

Eine Liste der Indices und Namen der Absatzvorlagen erhälst du aus einem neuen Writer-dokument mit:
[code]Sub Absatzvorlagenliste
xxx = ThisComponent.StyleFamilies.getByName("ParagraphStyles")
cursor = ThisComponent.text.CreateTextCursor
cursor.GotoStart(False)
For i = 0 to xxx.Count-1

Cursor.String = i &chr(9) & xxx.GetByIndex(i).Name & chr(9) &xxx.GetByIndex(i).DisplayName
Cursor.GotoEndofParagraph(False)
ThisComponent.Text.insertControlCharacter(Cursor,com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK, False)
next i
end sub
' [/code]

Gruß Karo

Sub Inhaltsverzeichnis
Dim Cursor
Dim Index

Index = ThisComponent.createInstance("com.sun.star.text.ContentIndex")
Cursor = ThisComponent.getText().createTextCursor()
ThisComponent.getText().insertTextContent(Cursor, Index, False)

Index.update()
End Sub

Index.LevelFormat

Index.LevelParagraphStyles

Hallo,

ich versuche gerade eine einfaches Inhaltsverzeichnis mit hilfe eines Marcos zu erstellen.
Wenn ich es über die Gui von Writer mache, dann gehe ich wie folgt vor:
[quote]
1. Einfügen -> Verzeichnisse -> Verzeichniss...
2. Bei Gliederung auf den Button "..."
3. In dem Kapitelnummerierungs Dialog Ebene 1 auswählen und die Absatzvorlage ändern
[/quote]
Das wäre dann auch schon, was ich machen will. Bis jetzt ist es mir aber noch nicht gelungen die Absatzvorlage in meinem Macro zu ändern.
Hier erstmal mein Code:
[code]
Sub Inhaltsverzeichnis
Dim Cursor
Dim Index

Index = ThisComponent.createInstance("com.sun.star.text.ContentIndex")
Cursor = ThisComponent.getText().createTextCursor()
ThisComponent.getText().insertTextContent(Cursor, Index, False)

Index.update()
End Sub
[/code]

Ich habe auch schon eine Vermutung womit ich die Absatzvorlage für z.B. Level 1 ändern kann:
entweder mit
[code]Index.LevelFormat[/code]
(liefert das Interface: DocumentIndexLevelFormat)
oder mit
[code]Index.LevelParagraphStyles[/code]
(liefert das Interface: DocumentIndexParagraphStyles)
wobei ich eher zu letzterem tendiere.

Aber leider verstehe ich nicht so recht wie ich diese Objekte ändern kann, Sie implementieren zwar beide das Interface XIndexReplace aber ich weiß nicht, was ich bei der Methode replaceByIndex als Parameter angeben soll.

Hoffe mir kann jemand helfen.

mfg Jonny