Hallo zusammen,

ich hab folgende Frage: Gibt es eine Möglichkeit in Word 2003 es so hinzubekommen das man wenn man ein Dokument mit zb. 30 Seiten hat u bei Seite 15 aufhört zu lesen beim nächsten öffnen auch wieder auf Seite 15 anfängt ohne dahin zu scrollen oder ähnliches??? Anders gesagt ist es möglich Word so einzustellen das Dokumente an der letzten Leseposition wieder geöffnet werden??

Hoffe die Frage ist verstanden worden

Danke schonmal für Antworten

MFG

nach meinem verständnis der frage: allenfalls mit einem makro, das nach öffnen mit GoTo zu seite 15 springt.

s'Amstel

Hi danke erstmal für die Antwort,

die Frage die sich mir aber stellt ist, ist es denn möglich ein Makro so zu schreiben das es sich quasi automatisch merkt w ich beim letzten mal mit denm lesen stehen geblieben ist u dann automatisch an diese Stelle "springt"??

MFG

Bestshooter

Da das scrollen beim Word keiner neuen Speicherung des Dokumentes bedarf, kann diese Information auch nicht gespeichert werden. Folglich geht diese verloren.

Nein, es ist nicht möglich.

... Gibt es eine Möglichkeit in Word 2003 es so hinzubekommen das man wenn man ein Dokument mit zb. 30 Seiten hat u bei Seite 15 aufhört zu lesen beim nächsten öffnen auch wieder auf Seite 15 anfängt ohne dahin zu scrollen oder ähnliches??? Anders gesagt ist es möglich Word so einzustellen das Dokumente an der letzten Leseposition wieder geöffnet werden??

Moin,

ka ob das hilft aber an die letzte Bearbeitungsposition kommt man mit Umschalt+F5

Reinhold

Moin!

Ich habe da mal etwas vorbereitet...

Da ich zur Zeit sowieso gerade etwas mit VBA rumgespielt habe, dachte ich mir, daß die Lösung nicht so schwer sein kann... und ich hatte recht!

Wenn Du Dein Dokument öffnest und dann in den Visual Basic Editor gehst, dann siehst Du links den Project Explorer (oder öffnest ihn mit STRG+R).

Hier gibt es dann einen Eintrag mit dem Namen "ThisDocument".

Du öffnest mit einem Doppelklick auf "ThisDocument" das Editorfenster und kopierst folgenden Code hinein:

Private Sub Document_Close()

    Rem Hier den Pfad zur Datei mit der Seitenzahl angeben

    Workspace = "h:\"

    Rem Den Dateinamen in eine Datei schreiben

    a = FreeFile

    Open (Workspace & "AktuelleSeite.dat") For Output As a

        Print #a, Selection.Information(wdActiveEndPageNumber)

    Close a


End Sub


Private Sub Document_Open()

    Rem Hier den Pfad zur Datei mit der Seitenzahl angeben

    Workspace = "h:\"


    Open (Workspace & "AktuelleSeite.dat") For Input As #1

        FileLength = LOF(1)

        aktuelleSeite = Input(FileLength, #1)

    Close #1


    Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=aktuelleSeite


End Sub[/PHP]

Natürlich musst Du "Workspace" (der Pfad in dem die Datei mit der Seitenzahl) gespeichert werden soll noch anpassen, aber wenn Du alles gespeichert hast, springt Word auf die Seite, sie zuletzt geöffnet war.

Ich hoffe geholfen zu haben.