Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
  Dim oRng As Word.Range
  Set oRng = Selection.Range
  oRng.Paste
  oRng.Select
End Sub