Word Cursor-position ermitteln

Computer: Software & Programmierung Office Software
#1

Hallo!

Ich suche eine Möglichkeit, die Cursor-Position im Word-Dokument mittels VBA festzustellen. Nett wäre die absolute Position (Zeile, Spalte), aber im aktuellen Fall würde es schon genugen, festzustellen, ob ich am Zeilenanfang bin.

Sorry, aber mit Hilfe und Aufzeichnen komme ich einfach nicht weiter.

Danke für die Hilfe
Wolfram

#2

Hallo,
Kann es jetzt zwar nicht testen (ipad) aber versuchs dich mal damit:

Code:
Sub CursorPositionAuslesen()

Seite = Selection.Information(wdActiveEndPageNumber)
Zeile = Selection.Information(wdFirstCharacterLineNumber)
Steps = Selection.Information(wdFirstCharacterColumnNumber) - 1

MsgBox „Die Einfügemarke befindet sich an der folgenden Position:“ & Chr(13) & "Seite  " & _
       Seite & Chr(13) & "Zeile  " & Zeile & Chr(13) & Steps & "  Schritte von links ", 64

End Sub

Code:
Sub CursorPositionBestimmen()

Seite = 2   'Beispiel
Zeile = 5   'Beispiel
Steps = 36  'Beispiel

Selection.HomeKey Unit:=wdStory

Selection.GoTo What:=wdGoToPage, Count:=Seite
Selection.MoveDown Unit:=wdLine, Count:=Zeile - 1
Selection.MoveRight Unit:=wdCharacter, Count:=Steps
End sub

#3

Wüsste ich leider keine Methode, um die Position festzustellen.
Hat auch damit zu tun, dass i schmaler ist als W

#4

Danke - genau das habe ich gesucht!
gruß
Wolfram