Using the same principle, this appears to work but is a bit simpler than Greg's code.
Code:
Sub ScratchMacro()
Dim oRng As Word.Range, lngS As Long
Set oRng = Selection.Range
lngS = oRng.Start
oRng.PasteSpecial DataType:=wdPasteText
oRng.Start = lngS
oRng.Select
End Sub