Cursor position, line number

[Aidil]

Does anyone knows how to obtain the cursor line position...

This code doesn't work for me... it returns rare numbers
but not the cursor actual position.
Selection.Information(wdVerticalPositionRelativeToPage)
or
Selection.Information
(wdVerticalPositionRelativeToTextBoundary)

I'd be grateful for any help...

Thanks
-Aidil

 

[Dave Lett]

Hi Aidil,

By cursor, let's assume that you're talking about the blinking vertical line
that is the text insertion point. If that's the case, have a look at the
article "Determine the index number of the current paragraph, table, section
...." at http://www.mvps.org/word/FAQs/MacrosVBA/GetIndexNoOfPara.htm

You can adjust the code there to get the current line.

HTH

 

[Aidil]

I have tried everything came in my mind,,,, nothing help
me with my problem...

 

[Dave Lett]

Hi Aidil,

Well, what did you try? Maybe we can modify that?

 

[Dave Lett]

Hi Aidil,

In your first post, you mentioned that you want the line number

Dim oRng As Range
Set oRng = ActiveDocument.Range _
(Start:=ActiveDocument.Range.Start, _
End:=Selection.Range.End)
MsgBox "The insertion point is on line " &
oRng.ComputeStatistics(wdStatisticLines)

If you want the _cursor_, not the insertion point (blinking line where text
will appear if you start typing), then I'm afraid that I cannot assist you.

HTH

 

[Doug Robbins - Word MVP]

Hi Aidil,

Use:

Dim oRng As Range, i As Integer, j As Integer
Set oRng = ActiveDocument.Range _
(Start:=ActiveDocument.Range.Start, _
End:=Selection.Range.End)
i = oRng.ComputeStatistics(wdStatisticLines)
oRng.End = ActiveDocument.Bookmarks("\page").Range.Start
j = oRng.ComputeStatistics(wdStatisticLines)
MsgBox "The selection is in line " & i - j & " of the current page."

This does not however work reliably if the selection is in a table or if
there is a table on the page and the selection is after that page.

Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a consulting basis.

Hope this helps
Doug Robbins - Word MVP