I wanted to count the lines of selected text in MS word document. I come up with code: 

```
Sub Count_Lines()
ActiveDocument.ComputeStatistics (wdStatisticLines)
MsgBox ("The document contains " & NumLines & " Lines")
End sub

```

But it actually count the line of whole document. 

Can anybody help, finding code which could count selected line only?