This does the exact same thing.

Code:

Sub SameThing()
With ActiveDocument
   .Content.Delete
   .Range.InsertAfter vbCrLf & "Text Added at " & Time
End With
End Sub

You do not need to select anything. You certainly do not need to select the same thing twice.

These two instruction do the same thing.
Word.ActiveDocument.Range.Select
Selection.WholeStory

You take seven lines to do what can be done in two.