Hallo,
ich habe es jetzt wie unten gelöst. Es gibt bestimmt bessere Wege, aber es funktioniert für meine Anforderungen!
--erkennt, ob Cursor am Ende einer Tabelle ist (Endezeichen rechts von der letzten Spalte)
If Selection.IsEndOfRowMark = True Then
While Selection.IsEndOfRowMark = True
Selection.MoveLeft (1)
Wend
--- markiert das nächste Zeichen und prüft, ob es eine Absatzmarke ist
ElseIf Selection.IsEndOfRowMark = False Then
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
ParaPos = InStr(1, Selection, Chr(13), vbBinaryCompare)
If ParaPos = 1 Then
Selection.MoveLeft (1)
Else: Selection.MoveRight (1)
End If
End If
|