You can try:
Sub ScratchMacro()
'A basic Word Macro coded by Gregory K. Maxey
Dim oRng As Range
Set oRng = Selection.Paragraphs(1).Range
If oRng.Characters.Last = Chr(13) Then
oRng.End = oRng.End - 1
End If
oRng.InsertAfter vbTab
lbl_Exit:
Exit Sub
End Sub

__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/