Hallo zusammen!
Ich möchte eine bestimmte Word-Datei vom Desktop aus öffnen und gleich an das Ende des bisher geschriebenen Textes springen.
Wer kann helfen?
Gruß von Paul W.
Ich möchte eine bestimmte Word-Datei vom Desktop aus öffnen
und gleich an das Ende des bisher geschriebenen Textes
springen.
Hallo Paul,
ob Word-Bordmittel das können weiß ich nicht.
Mit Vba geht das. Sind bei dir Makros erlaubt?
Gruß
Reinhard
Guten Tag,
Hallo Reinhard, ja das ist zulässig
Gruß Paul W.
Hallo Reinhard, ja das ist zulässig
Hallo Paul,
Alt+F11, das öffnet den VB-Editor. Links siehst du den Projekt-Explorer.
Suche da dein „Projekt“, erkennbar am Dokumentnamen in Klammern
dahinter. Untendrunter siehst du „Thisdocument“, darauf einen
Doppelklick. Diesen Code reinkopieren:
Option Explicit
Private Sub Document_Open()
Selection.EndOf (wdStory)
End Sub
Speichere das Dokument und schließe es, nach/bei dem nächsten Öffnen
klappt das.
OT, die Word-Vba Hilfe zu „GoTo“ ist unter aller Sau in Word 2000
und Word 2007 *fluch*.
Gruß
Reinhard
Ich möchte eine bestimmte Word-Datei vom Desktop aus öffnen
und gleich an das Ende des bisher geschriebenen Textes
springen.
Drück nach dem Öffnen mal Shift+F5, dann sollte der Cursor an die letzte Bearbeitungsposition springen.
Ist zwar nicht „gleich“, aber vielleicht hilft’s ja.
Berro
Guten Tag und danke für die Mühe bei den Antworten, aber es ‚geht‘ leider nicht. Der ‚fix it‘ will auch nicht meine Version (2010), nur die Tastenkombination erfüllt meine Wünsche.
Viel Spaß heute wünscht
Paul W.
Guten Tag und danke für die Mühe bei den Antworten, aber es
‚geht‘ leider nicht. Der ‚fix it‘ will auch nicht meine
Version (2010), nur die Tastenkombination erfüllt meine
Wünsche.
Hallo Paul,
Erstelle mal ein neues Dokument, nimm als Text was beliebiges,
zur Not
=Rand()
mache ihn halt so drei Seiten lang, positioniere den Cursor an den Anfang. Bau meinen Code ein.
Dann lade die .docm hoch mit dem obersten Link in FAQ:2606
und zeige hier den Link den du von da erhälst.
Gruß
Reinhard
Hallo Reinhard,
hier mein Ergebnis, hoffentlich richtig?
http://www.file-upload.net/download-4674462/Dok1.doc…
Gruß von Paul W.
Hallo Reinhard!
übrigens: Die Zeile mit … mehr auf u.s.w.
ist in VBA nicht eingeführt!!!
Gruß Paul W.
übrigens: Die Zeile mit … mehr auf u.s.w.
ist in VBA nicht eingeführt!!!
Hallo Paul,
das mit „… mehr“ liegt an w-w-w. Als neues Ärgernis fügen sie das
neuerdings immer „hinten“ dran ein wenn man hier was rauskopiert.
Ich finde das „Feature“ so notwendig wie einen Kropf. Ich las auch
noch keinen einzigen User hier der daran Gefallen findet.
Die das nicht mögen wie ich gibt es reichlich.
Sieh dazu die Beitragsfolgen im ALK-Brett (Anregungen-Lob-Kritik)
und dem Bugs-Brett, beide ziemlich weit oben in der Brettliste.
Deine Mappe schau ich mir jetzt an.
Gruß
Reinhard
Hallo Paul,
im Modul „ThisDocument“ darf wenn du keine eigenen makros hast nur das stehen:
Option Explicit
Private Sub Document\_Open()
Selection.EndOf (wdStory)
End Sub
Dein hochgeladenes Dokument verstehe ich nicht. Ich erbat ca. 3 Seiten
Text, du hast da Null Text drin!?
Probiers mal mit Text dann funktioniert der Code…
Gruß
Reinhard
Hallo Reinhard!
Die Datei hatte vor dem Hochladen auf der Seite 1 den Text: ‚Test‘!
Ist auch noch im Original bei mir zu sehen. Ich benenne die Datei um und mach’s nochmal.
Gruß Paul W.
Hallo Reinhard,
hier der neue link.
http://www.file-upload.net/download-4675359/Versuch-…
Gruß Paul W.
Auch wenn ich jetzt auf der letzten Seite noch etwas einfüge, bleibt die erst Seite sichtbar, das Andere erst nach dem runterscrollen
Knurr!
Gruß Paul W.
Auch wenn ich jetzt auf der letzten Seite noch etwas einfüge,
bleibt die erst Seite sichtbar, das Andere erst nach dem
runterscrollen
Hallo Paul,
sach mal im Vertrauen, haben sie dich wegen Geiz aus Schottland rausgeworfen? *lächel*
Okay, jetzt sehe ich auch das Wort „Test“ als Text was da einsam drin
steht. Okay2, danach viele leerzeilen.
Btw., wenn du Rand() nicht kennst, so gib einfach mal in ein Dokument
ein:
=rand()
Dann drücke Enter, schon haste Text, den kannste fix kopieren und
mehrfach einfügen, dann hast du schnell paar Seiten mit Text.
Zur Sache, mein Code funktioniert bestens. Nach Dateiöffnung
ist der Cursor auf dem Dokumentende.
D.h. wenn du in dem Moment mit Strg+v etwas einfügst so wird es dort
eingefügt.
Kann es sein, daß du etwas ähnliches meinst was aber bei der Umsetzung anders zu behandeln ist und zwar bei Dateiöffnung soll
auch das Dokumentende in deinen Sichtbereich von Vba gescrollt werden?
Gruß
Reinhard
Moin Reinhard!
Dein erster Satz ist richtig, es waren alles Schotten, die man nach Schwaben geschickt hat, aber meine sämtlichen Vorfahren waren Junggesellen!
So, das ist geklärt, seit dem sagt man, ich sei gemeingeizig!!!
Und nun zur Klärung meines Problems: ich habe einen seitenlangen Text, der stetig weiter ergänzt werden muss. Beim Öffnen möchte ich am Ende dieses Textes weiterarbeiten. That’s all!
Mit Grüßen von Paul W.
Hallo Paul,
Dein erster Satz ist richtig, es waren alles Schotten, die man
nach Schwaben geschickt hat,
vom Regen in die Traufe, mannomann habt ihr leiden müssen, kein
Land wollte euch haben 
aber meine sämtlichen Vorfahren waren Junggesellen!
Möglicherweise erklärt das einiges, ich kann das leider nicht deuten.
Ist das eine Aussage wo man hochgeitsig denken können muß um es zu verstehen?
Wie hier:
Kinderlosigkeit ist erblich. Hätten deine Eltern keine Kinder hättest
du auch keine 
Und nun zur Klärung meines Problems: ich habe einen
seitenlangen Text, der stetig weiter ergänzt werden muss. Beim
Öffnen möchte ich am Ende dieses Textes weiterarbeiten. That’s
all!
Kann/soll ich das als Ja auffassen zu meiner Frage:
„bei Dateiöffnung soll auch das Dokumentende in deinen Sichtbereich
von Vba gescrollt werden?“
?
Gruß
Reinhard
Mit Grüßen von Paul W.
Yes Sir!
Gruß Paul W.
Hallo Reinhard!
Bin jetzt unsicher, ob es nicht weitergeht?
Gruß ünd Gutes Nächtle
Paul W.
Word Vba an Dokumentende springen
Bin jetzt unsicher, ob es nicht weitergeht?
Hallo Paul,
Modul: ThisDocument
Private Sub Document_Open()
Selection.MoveDown wdLine, 10000
End Sub
Gruß
Reinhard