Problem : Word VBA: How to get an ABSOLUTE line number?

Problem : Word VBA: How to get an ABSOLUTE line number?

I’d like to get the ABSOLUTE line number (which means, count from the beginning of document, not the beginning of that page) of the first character of a selection (better yet, of any range). Any way to do this?

Some related codes I know of are :

[A] aRange.Information(wdFirstCharacterLineNumber)

and

[B] ActiveDocument.BuiltInDocumentProperties(wdPropertyLines)

But [A] gives a RELATIVE (count from the page) and [B] gives the total line count of the document.

 

Solution : Word VBA: How to get an ABSOLUTE line number?

I re-read cri’s first suggestion – it’s cool! Look at VBA sample of this way:
Sub OtherWay()
Selection.HomeKey Unit:=wdStory, Extend:=wdExtend
MsgBox Selection.Range.ComputeStatistics(wdStatisticLines)
Selection.Collapse Direction:=wdCollapseStart
End Sub