OpenOffice.info

Freut mich ...
G R

[quote="F3K Total"]... ich denke du warst auf dem besten Wege:
[code]oVC = thisComponent.getCurrentController.getViewCursor
oVC.jumpToLastPage(true)
oVC.jumpToEndofPage(true)[/code]...finktioniert bei mir.

G R[/quote]

Das war - jetzt funktioniert es auch bei mir :D

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

... ich denke du warst auf dem besten Wege:
[code]oVC = thisComponent.getCurrentController.getViewCursor
oVC.jumpToLastPage(true)
oVC.jumpToEndofPage(true)[/code]...finktioniert bei mir.

G R

Hallo opiWahn,


vielleicht hilft dir diese Info über [url=http://www.starbasicfaq.de/cursor.html][b] die Cursor[/b][/url] weiter? :)

speziell die erste Beispiel Sub MoveViewCursor

' 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

oVC = thisComponent.getCurrentController.getViewCursor
oVC.jumpToLastPage

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]
' 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]

porbiert habe das, aber ohne Erfolg ("jumpToLastPage" kennt er nicht)
[code]
oVC = thisComponent.getCurrentController.getViewCursor
oVC.jumpToLastPage
[/code]

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

Grüße
opiWahn