Shortcut Word an letzte Cursorposition

CED999

Lieutenant
Registriert
Juni 2011
Beiträge
969
Hallo,

eine Sache die ich immer schon herausfinden wollte, aber immer zu faul war da richtig nachzubohren:D: Wie lautet der Shortcut um zur letzten Cursorposition zu springen? Also shift+F5 kenne ich schon das wird im I-net aber oft falsch dargestellt, das springt nicht zu letzten Cursorposition, sondern zur letzten Cursorposition bei der Veränderungen vorgenommen wurden. Ich will aber tatsächlich letzte Cursorposition...

Greets
 
Nee Nee, was denkst du wohl was Ende bewirkt? Richtig, damit springst du ans Ende des Dokuments...
 
m.E. nach gibt es diese Option nicht..!
Wenn ich Otto tippe und nach dem o an die letzte Cursorposition springen soll wäre das welche, das t vor dem o?

Nur der Shift-F5-Meshcnismus zur letzten Bearbeitung ergibt irgendwo noch Sinn, denn woher weiß Word was für dich eine letzte Cursorposition war? Oder meinst du Dinge wie Textmarken wo du selbst Marken setzt?

CN8
 
Das macht schon Sinn. Wenn du in fertigen dokumenten liest. Dann springst du ja im Dokument rum - mal das was lesen, dann wieder dorthin springen um was nachzuschlagen und dann wieder zurück wo ich gerade war. Da will ich dann nicht an die letzte Änderung springen...

Es kann aber schon sein, dass es Die Funktion gar nicht gibt...
 
Ach so - das wolltest du…

Da musst du, weil das Programm nicht Hellsehen kann, besagte Textmarken selbst setzen. Libre/ObenOffice bekommts hin wenigsten dort beim Lesen fortzusetzen wo man Dokumente geschlossen hat, ob das W2010 kann müsste ich regelrecht testen - - - nein; aber mit Shift+F5 komme ich wenigsten zu einer aktiven Änderung, was auch irgendwo bekloppt ist.

CN8
 
Das mit den Textmarken funktioniert ja nur *hinwärts* nicht rückwärts. Also z. B. in dem Text steht ein Wort das im Glossar definiert ist, dann wird schlauerweise ein Hyperlink gesetzt der auf die Textmarke im Glossar verweist. Nur wenn ich jetzt vom Glossar wieder zurückjumpen will ist da ja keine Textmarke...
 
Ich schreibe einfach an besagter Stelle "ßß" (ohne Anführungen) hin. Diese Zeichenfolge gibt es sonst nicht in einem "normalen" Text. Dann einfach Strg+F, ßß eingeben und sofort finden. Dann natürlich löschen.
 
Dasselbe habe ich als Makro gebaut und 3 Buttons daran verschwendet: Anker werfen, zum Anker zurück und Anker wieder lichten.

Code:
Sub AnkerSetzen()
'REM Beginn einer 6er-Gruppe um Lesezeichen
'Label um nach Suche/Recherche schnell wieder an den Ausgangspunkt zurückzukommen
'Der Label soll optisch sichtbar sein, nicht wie "Bookamrks" quasi unsichtbar
 'Ich hoffe, dass Mixyzetpetelka nicht im Text vorkommt.
 AnkerKappen
 Selection.TypeText ("MXYZPTLK")
 'SendKeys ("MXYZPTLK")
End Sub
Sub AnkerKappen()
'2/6 Mich kotzt diese Notwehr an weil ich nur so einen alten Anker wegbekomme um
'einen neuen eindeutig und unzweifelhaft zu setzen.
'SendKeys ist zu langsam um damit eine Lösung zu erreichen.
 MarkeSetzen
 AnkerLichten
 MarkeLöschen
End Sub
Sub AnkerLichten()
'3/6 Sollte man diesen Label mittels AutoClose löschen..?
 AnkerSuchen
 If Selection = "MXYZPTLK" Then Selection = ""
End Sub
Sub AnkerSuchen()
'4/6 Weil als eigene Funktion erwünscht...
 Suchen "MXYZPTLK"
End Sub
Public Sub MarkeSetzen()
'5/6 Setzt eine verborgene Textmarke an der Eingabemarke
'Dieses Funktions-Doppel ist nur für Verwendung innerhalb von Makros geplant!
 If ActiveDocument.Bookmarks.Exists("MXYZPTLK") = True Then Exit Sub
 'Wir verzichten auf eine Msg-Box.
 'WIEDER WÄRE EIN LÖSCHEN MITTELS LSÖCHMAKRO SINNLOS
 'DA DAS WESENTLICHE, DIE CURSORPOSITION, VERLOREN GINGE!!!
 ''Selection.Bookmarks.Add "Lesezeichen", Selection.Range
 ''Selection.Move wdStory, 1
 Selection.Bookmarks.Add "MXYZPTLK"
 'On Error ist bei mehr als einer zu übergehenden Zeile (wie ursprünglich) blöd.
End Sub
Public Sub MarkeLöschen()
'6/6 Positioniert die Eingabemarke an der Textmarke
'Dieses Funktions-Doppel ist nur für Verwendung innerhalb von Makros geplant!
 If ActiveDocument.Bookmarks.Exists("MXYZPTLK") = True Then
  'Purer pessimismus. Sollte innerhalb Makros nie passieren.
  With ActiveDocument.Bookmarks("MXYZPTLK")
   .Select
   .Delete
  End With
 End If
'REM ENTE der 6er-Gruppe um Lesezeichen
End Sub

'-----

Public Sub Suchen(Nach As String)
 BausteinSuchen Nach, True
End Sub

Public Sub BausteinSuchen(Nach As String, Richtung As Boolean)
Dim Tekst As String
Dim Wohin As Boolean
Dim Umbruch As Byte
Dim TextFormat As Boolean
Dim GrossKlein As Boolean
Dim GanzesWort As Boolean
Dim Joker As Boolean
Dim Ähnlich As Boolean
Dim AlleFormen As Boolean
 If ExistiertDokument = False Then Exit Sub
 With Selection.Find
  Tekst = .Text
  Wohin = .Forward
  Umbruch = .Wrap
  TextFormat = .Format
  GrossKlein = .MatchCase
  GanzesWort = .MatchWholeWord
  Joker = .MatchWildcards
  Ähnlich = .MatchSoundsLike
  AlleFormen = .MatchAllWordForms
   .ClearFormatting
   .Text = Nach
   .Forward = Richtung
   .Wrap = wdFindContinue
   .Format = False
   .MatchCase = False
   .MatchWholeWord = False
   .MatchWildcards = False
   .MatchSoundsLike = False
   .MatchAllWordForms = False
   .Execute
  .Text = Tekst
  .Forward = Wohin
  .Wrap = Umbruch
  .Format = TextFormat
  .MatchCase = GrossKlein
  .MatchWholeWord = GanzesWort
  .MatchWildcards = Joker
  .MatchSoundsLike = Ähnlich
  .MatchAllWordForms = AlleFormen
 End With
End Sub
Damit oute ich mich was ich früher mal gelesen habe ;)

Wenn dieser Mechanismus einfacher zu deichseln geht, nur zu. Die Kommentare da drin sprechen Bände wie weit MS und mit sinnigen und unsinnigen Funktionalitäten an der Praxis vorbei beglückt.

CN8
 
Zuletzt bearbeitet: (Hälfte Code vergessen: Suchen(…))
Ich denke, was hier gebraucht wird, ist der WebGeheZurück-Befehl. Den gibt es und der kann, wenn man z. B. im Inhaltsverzeichnis auf eine Seitennummer klickt, danach wieder dorthin zurück springen. Mit WebGeheZurück und WebGeheWeiter kannst du dann munter hin und her springen. Liegen, soweit ich mich entsinne, standardmäßig auf Alt+Links/Alt+Rechts, meine Tastatur hat dafür extra Tasten.
Einen sonstigen Befehl, um zu eine gerade angeschauten (aber nicht bearbeiteten) Textposition zu springen, gibt es nicht.
Viele Grüße, Halwe
 
Zurück
Oben