Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oRng As Word.Range
Dim oRngBefore As Word.Range
Dim i As Long
Dim bMove As Boolean
Set oRng = Selection.Range.Duplicate
Set oRngBefore = oRng.Duplicate
oRngBefore.Collapse wdCollapseStart
bMove = True
For i = 1 To oRng.Characters.Count
  oRng.Characters(i).Copy
  oRngBefore.Paste
  If bMove Then
    oRng.MoveStart wdCharacter, 1
    bMove = False
  End If
  oRngBefore.Collapse wdCollapseStart
Next
oRng.Delete
End Sub