[gelöst][Makr]Cursor am Ende der letzten Seite positionieren

[opiWahn]

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)

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

porbiert habe das, aber ohne Erfolg ("jumpToLastPage" kennt er nicht)

Code: Alles auswählen

oVC = thisComponent.getCurrentController.getViewCursor
oVC.jumpToLastPage

Wie kann ich das Problem lösen? Danke im Voraus ...

Grüße
opiWahn

[clag]

Hallo opiWahn,


vielleicht hilft dir diese Info über die Cursor weiter?

speziell die erste Beispiel Sub MoveViewCursor

[F3K Total]

... ich denke du warst auf dem besten Wege:

Code: Alles auswählen

oVC = thisComponent.getCurrentController.getViewCursor
oVC.jumpToLastPage(true)
oVC.jumpToEndofPage(true)

...finktioniert bei mir.

G R

[opiWahn]

... ich denke du warst auf dem besten Wege:

Code: Alles auswählen

oVC = thisComponent.getCurrentController.getViewCursor
oVC.jumpToLastPage(true)
oVC.jumpToEndofPage(true)

...finktioniert bei mir.

G R

Das war - jetzt funktioniert es auch bei mir

[F3K Total]

Freut mich ...
G R