Calc: Pfad der Datei als Feld in der Fußzeile einfügen
Verfasst: Fr 9. Mär 2012, 11:31
Hallo zusammen,
ich suche eine Möglichkeit in Calc mit einem Makro, den Pfad + Dateiname als Feld in die Fußzeile einzufügen.
Wie man die Fußzeile per Makro verändert weiß ich schon.
Ich habe dann probiert das Ganze aufzuzeichnen, da zeigt er aber nur den Dialog an zum Seite einrichten. Deshalb bin ich den Umweg über den Writer gegangen, hier kann man direkt den Feldbefehl einfügen über "Einfügen > Feldbefehle..."
Dabei kommt dieses Makro raus, das bekomme ich aber nicht in die Fußzeile:
kann mir jemand helfen?
ich suche eine Möglichkeit in Calc mit einem Makro, den Pfad + Dateiname als Feld in die Fußzeile einzufügen.
Wie man die Fußzeile per Makro verändert weiß ich schon.
Ich habe dann probiert das Ganze aufzuzeichnen, da zeigt er aber nur den Dialog an zum Seite einrichten. Deshalb bin ich den Umweg über den Writer gegangen, hier kann man direkt den Feldbefehl einfügen über "Einfügen > Feldbefehle..."
Dabei kommt dieses Makro raus, das bekomme ich aber nicht in die Fußzeile:
Code: Alles auswählen
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 ----------------------------------------------------------------------
dim args1(5) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Type"
args1(0).Value = 2
args1(1).Name = "SubType"
args1(1).Value = 0
args1(2).Name = "Name"
args1(2).Value = ""
args1(3).Name = "Content"
args1(3).Value = ""
args1(4).Name = "Format"
args1(4).Value = 1
args1(5).Name = "Separator"
args1(5).Value = " "
dispatcher.executeDispatch(document, ".uno:InsertField", "", 0, args1())