Perhaps I am missing something, but this seems to work just fine:
Code:
Sub ScratchMacro()
'A basic Word Macro coded by Gregory K. Maxey
Dim oRng As Range
Set oRng = Selection.Range
MsgBox oRng.ComputeStatistics(wdStatisticLines)
lbl_Exit:
Exit Sub
End Sub