von Stephan » Sa, 21.09.2013 13:39
ich hoffe es wird verständlich was ich möchte, wenn man das "Fazit" liest
ja, jedoch nicht wieso Du erwartest das Du die Formatierung von Textteile über Formatvorlagen ändern kannst, ohne das den Textteilen (hier also den Literaturverzeichniseinträgen) überhaupt entsprechende, separate, Formatvorlagen zugewiesen sind.
Du wirst also schon zunächst einmal Formatvorlagen (hier im Konkreten Zeichenvorlagen) zuweisen müssen ehe Du etwas ändern kannst.
z.B.
erstelle zuerst die Zeichenvorlage mit dem Namen "LiteraturVerzeichniseintrag" und starte danach folgendes Makro:
Code: Alles auswählen
Sub suche()
enum = ThisComponent.TextFields.createEnumeration
Do While enum.hasMoreElements
tf = enum.nextElement
if tf.supportsService("com.sun.star.text.TextField.Bibliography") then
ThisComponent.currentController.select(tf.Anchor)
FormatWeg()
tf.Anchor.CharStyleName = "LiteraturVerzeichniseintrag"
end if
Loop
End Sub
sub Format_weg()
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:ResetAttributes", "", 0, Array())
end sub
anschließend kannst Du in der Zeichenformatvorlage "LiteraturVerzeichniseintrag" beliebige Formatierungsänderungen vorgeben, z.B. auch den Text wie gewünscht hochstellen.
Gruß
Stephan
[quote]ich hoffe es wird verständlich was ich möchte, wenn man das "Fazit" liest[/quote]
ja, jedoch nicht wieso Du erwartest das Du die Formatierung von Textteile über Formatvorlagen ändern kannst, ohne das den Textteilen (hier also den Literaturverzeichniseinträgen) überhaupt entsprechende, separate, Formatvorlagen zugewiesen sind.
Du wirst also schon zunächst einmal Formatvorlagen (hier im Konkreten Zeichenvorlagen) zuweisen müssen ehe Du etwas ändern kannst.
z.B. [u]erstelle zuerst die Zeichenvorlage mit dem Namen "LiteraturVerzeichniseintrag"[/u] und starte danach folgendes Makro:
[code]Sub suche()
enum = ThisComponent.TextFields.createEnumeration
Do While enum.hasMoreElements
tf = enum.nextElement
if tf.supportsService("com.sun.star.text.TextField.Bibliography") then
ThisComponent.currentController.select(tf.Anchor)
FormatWeg()
tf.Anchor.CharStyleName = "LiteraturVerzeichniseintrag"
end if
Loop
End Sub
sub Format_weg()
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:ResetAttributes", "", 0, Array())
end sub[/code]
anschließend kannst Du in der Zeichenformatvorlage "LiteraturVerzeichniseintrag" beliebige Formatierungsänderungen vorgeben, z.B. auch den Text wie gewünscht hochstellen.
Gruß
Stephan