To those who might be interested, I found a workaround that does it
for me.
'Replaces the clipboard content with the last 2 characters of the
document.
With Selection
.EndKey Unit:=3DwdStory
.MoveLeft Unit:=3DwdCharacter, Count:=3D2, Extend:=3DwdExtend
.Copy
End With
Greets