Get vertical cursor/ibeam location value (inches) for Word documen

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

LostInMD - 13 Oct 2006 18:20 GMT

Hi All :)

I need to retrieve the horizontal ibeam/cursor location for a Word document.
This value is displayed at the bottom of the Word 2003 application
underneath the horizontal scroll bar --> in the same bar that displays the
"Page", "Sec", "Ln", and "Col". The horizontal value (in inches) is
displayed following the "At" variable. Any help would be greatly
appreciated! Thanks! Have a great day!

Reply to this Message

Jonathan West - 13 Oct 2006 18:37 GMT

> Hi All :)
>
[quoted text clipped - 5 lines]
> displayed following the "At" variable. Any help would be greatly
> appreciated! Thanks! Have a great day!

MsgBox Selection.Information(wdVerticalPositionRelativeToPage)

Signature

Regards
Jonathan West - Word MVP
www.intelligentdocuments.co.uk
Please reply to the newsgroup

Reply to this Message

LostInMD - 13 Oct 2006 20:05 GMT

Hi Jonathan,

Thanks for the assistance. I tried -->
MsgBox Selection.Information(wdVerticalPositionRelativeToPage) -->
and got a value, however it was not in inches. For example, I place my
cursor/ibeam --> At 10.1" --> then run code and get a result of 727.5 --> I'm
assuming there is some sort of conversion that needs to be done to the result
to get an inches value, however, after attempting pixels, pica, etc... I've
not been able to determine what type of measurement the result is in order to
convert it to inches. Any assistance would be greatly appreciated! Thanks
again Jonathan :)

> > Hi All :)
> >
[quoted text clipped - 7 lines]
>
> MsgBox Selection.Information(wdVerticalPositionRelativeToPage)

Reply to this Message

LostInMD - 13 Oct 2006 20:18 GMT

Hi again Jonathan,

Figured it out --> needed to do a Application.PointsToInches conversion on
the result of the line of code you suggested. Thanks again!

> > Hi All :)
> >
[quoted text clipped - 7 lines]
>
> MsgBox Selection.Information(wdVerticalPositionRelativeToPage)

Reply to this Message