[gelöst][Makr]Cursor am Ende der letzten Seite positionieren
Verfasst: Fr, 25.03.2011 16:06
Hallo,
via Makro aufzeichen habe ich nachfolgendes erstellt, was soweit auch funktioniert.
Wie kann ich erreichen, daß vorab der Cursor an der letztmöglichen Stelle auf der letzten Seite gesetzt wird, bevor ich einen Seitenumbruch einfüge und ein vorhandenes Dokument anhänge (jeweils als weitere Seite am Schluss)
porbiert habe das, aber ohne Erfolg ("jumpToLastPage" kennt er nicht)
Wie kann ich das Problem lösen? Danke im Voraus ...
Grüße
opiWahn
via Makro aufzeichen habe ich nachfolgendes erstellt, was soweit auch funktioniert.
Wie kann ich erreichen, daß vorab der Cursor an der letztmöglichen Stelle auf der letzten Seite gesetzt wird, bevor ich einen Seitenumbruch einfüge und ein vorhandenes Dokument anhänge (jeweils als weitere Seite am Schluss)
Code: Alles auswählen
' Globale Variablen für Insert-Aktion
dim document as object
dim dispatcher as object
...
sub addFormA
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(2) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Kind"
args1(0).Value = 3
args1(1).Name = "TemplateName"
args1(1).Value = ""
args1(2).Name = "PageNumber"
args1(2).Value = 0
' --> hier müßte vermutlich die Cursorposition gesetzt werden
dispatcher.executeDispatch(document, ".uno:InsertBreak", "", 0, args1())
dim args3(1) as new com.sun.star.beans.PropertyValue
args3(0).Name = "Name"
args3(0).Value = "file:///C:/Roiger/prototype_form_anlage%20a.odt"
args3(1).Name = "Filter"
args3(1).Value = "writer8"
dispatcher.executeDispatch(document, ".uno:InsertDoc", "", 0, args3())
end sub
Code: Alles auswählen
oVC = thisComponent.getCurrentController.getViewCursor
oVC.jumpToLastPage
Grüße
opiWahn
