I am trying to expand the extremely limited "change bar" feature of MS Word XP using VBA. I have documents with several layers of changes, so up to 6 different types of changebars must be used. MS word only allows one type. This script will look at a selected region's location, and create a custom changebar in the margin.
Selection.Information(wdVerticalPositionRelativeToPage) lets me vertically position the line WRT the selection. Works great. Since horizontal location of the line is constant (in the margin), again no problem here.
My only issue is getting the vertical location at the end of the selection. Without this information, I have to manually enter the number of lines I want to extend the custom change bar. Since line spacing and font height changes this further complicates the best "guess" of my script. I have to manually tweak long bars =(
How can I grab the vertical position of the *end* of a selection, not just the top?