OpenOffice.info

Absolute Spitzenklasse. Damit sind alle Probleme beseitigt.

Vielen Dank.
Ingo

[quote]Den Teil habe ich gerade aktualisiert. Ich habe nämlich vor kurzem die Stelle gefunden an der man die Seitenzahl direkt auslesen kann: CurrentController.[/quote]

prima.



Gruß
Stephan

  odoc = thiscomponent
  pages=odoc.CurrentController.PageCount

Das lasse ich nicht auf mir sitzen .. :D

[quote]Deine Funktion läßt den sichtbaren Cursor auf der letzten Seite (was wohl Michael nicht beabsichtigte waxs aber so ist) - mein Malro kehrt zur Ursprungsposition des Cursors zurück ...
[/quote]

Den Teil habe ich gerade aktualisiert. Ich habe nämlich vor kurzem die Stelle gefunden an der man die Seitenzahl direkt auslesen kann: CurrentController.

[code]
odoc = thiscomponent
pages=odoc.CurrentController.PageCount
[/code]

mfg
Michael

[quote]Leider wird aber auch bei deinem Beispiel der Focus am Ende wieder auf die aktuelle Cursorposition gesetzt[/quote]

ja, aber bitte doch ohne "auch" - Deine Funktion läßt den sichtbaren Cursor auf der letzten Seite (was wohl Michael nicht beabsichtigte waxs aber so ist) - mein Malro kehrt zur Ursprungsposition des Cursors zurück

[quote]auch wenn man z.B. über die Scrollbar eine ganz andere Stelle im Dokument anzeigt[/quote]

da sehe ich zunächst auch keinerlei andere Möglichkeit, ich brauche doch einen 'Haltepunkt'

-->klicke vor Ausführen des Makros in das Dokument wie es gerade gescrollt ist

Eine richtige Lösung dürfte mittels Feldbefehl möglich sein, das findest Du irgendwo im englischen Forum.
Das Prinzip ist Feldbefehl "Seitenanzahl" einfügen, dessen Anzeige lesen und den Feldbefehl wieder löschen - ob das ganz ohne 'Dokumentbewegung' geht weiß ich nicht genau.


Gruß
Stephan

Hallo Stephan,

vielen Dank erstmal.

Leider wird aber auch bei deinem Beispiel der Focus am Ende wieder auf die aktuelle Cursorposition gesetzt, auch wenn man z.B. über die Scrollbar eine ganz andere Stelle im Dokument anzeigt.

Ingo

Sub Main
myDoc = thiscomponent
mytextCursor=myDoc.text.createtextcursor()
myDoc.LockControllers
myViewCursor=myDoc.GetCurrentController.ViewCursor
mytextcursor.gotoRange(myViewCursor,false)
myViewCursor.jumpToLastPage
getpages=myViewCursor.getPage()
myViewCursor.gotoRange(mytextCursor,false)
myDoc.UnLockControllers
msgbox getpages
End Sub

naja, nun hättest Du mal in Michaels FAQ noch etwas weiter gelesen :wink: [i](... und ein wenig kombiniert)[/i]

[code]Sub Main
myDoc = thiscomponent
mytextCursor=myDoc.text.createtextcursor()
myDoc.LockControllers
myViewCursor=myDoc.GetCurrentController.ViewCursor
mytextcursor.gotoRange(myViewCursor,false)
myViewCursor.jumpToLastPage
getpages=myViewCursor.getPage()
myViewCursor.gotoRange(mytextCursor,false)
myDoc.UnLockControllers
msgbox getpages
End Sub[/code]


Gruß
Stephan

function getpages as Integer
   myDoc = thiscomponent
   myViewCursor=myDoc.GetCurrentController.ViewCursor
   myTempCursor=myViewCursor
   myViewCursor.jumpToLastPage
   getpages=CInt(myViewCursor.getPage())
   myViewCursor.gotoRange(myTempCursor,false)
end function  

Hallo allerseits,

ich suche nach einem Weg die Gesamtseitenanzahl in einem Writer Dokument zu ermitteln [b]ohne[/b] den sichtbaren Cursor zu verwenden.
Bisher verwende ich die folgende Funktion:
[code]
function getpages as Integer
myDoc = thiscomponent
myViewCursor=myDoc.GetCurrentController.ViewCursor
myTempCursor=myViewCursor
myViewCursor.jumpToLastPage
getpages=CInt(myViewCursor.getPage())
myViewCursor.gotoRange(myTempCursor,false)
end function
[/code]
Es funktioniert, aber je nachdem verschiebt sich dabei der Bildschirmbereich, was wirklich störend ist.

Vielen Dank im voraus.