Meine Lösung - falls es jemanden interessiert:
Sub Makro1()
Dim oRange As Range
Set oRange = ActiveDocument.Range(Start:=ActiveDocument.Bookmar ks("\PrevSel1").Range.Start, _
End:=ActiveDocument.Bookmarks("\Sel").Range.Start)
oRange.Select
End Sub
Dieser Makro markiert den Teil zwischen aktueller und vorletzter Position der Einfügemarke, was genau dem aus der Zwischenablage eingefügten Text entspricht.
|