Makro funktioniert nicht

[little lady]

Hallo,

ich habe im Writer ein Makro erstellt, dass eine Fußzeile einfügt und den dateipfad in die Fußzeile, doch wenn ich ein neues Dokument öffne und das Makro abspiele, geht es nicht. Er fügt mir zwar den Dateipfad ein, aber einfach an den Anfang des Textes. Die Fußzeile wird überhaupt nicht erstellt. Woran könnte das liegen?

So sieht mein Quelcode aus:
REM ***** BASIC *****


sub Main
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 = " "

Hab das aber nicht selbst geschrieben, sondern nur aufgezeichnet. Kenn mich damit leider nicht so gut aus. Hoffentlich kann mir von euch jemand helfen.

mfg little lady

[Frank Lauer]

Hallo,

da muss bei dir beim Aufzeichnen was danebengegangen sein, da die Befehle zum erstellen der Fußzeile fehlen. Versuchs mal so:

Code: Alles auswählen

sub Test
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(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "PageStyle"
args1(0).Value = "Standard"
args1(1).Name = "On"
args1(1).Value = true

dispatcher.executeDispatch(document, ".uno:InsertPageFooter", "", 0, args1())

rem ----------------------------------------------------------------------
dim args2(5) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Type"
args2(0).Value = 2
args2(1).Name = "SubType"
args2(1).Value = 0
args2(2).Name = "Name"
args2(2).Value = ""
args2(3).Name = "Content"
args2(3).Value = ""
args2(4).Name = "Format"
args2(4).Value = 1
args2(5).Name = "Separator"
args2(5).Value = " "

dispatcher.executeDispatch(document, ".uno:InsertField", "", 0, args2())


end sub