Determining the Horizontal Position of the Insertion Point

Danny is writing a macro and he need to discover the horizontal position of the insertion point, relative to the left margin, in inches. This can be done by using a rather simple macro, such as the following:

Sub HorPos()
    Location = Selection.Information( _
      wdHorizontalPositionRelativeToTextBoundary)
    MsgBox PointsToInches(Location)
End Sub

The macro uses the Information property to determine the distance from the text boundary, in points. This is then converted to inches and displayed. The text boundary is, most often, the left margin in a normally formatted document. In some circumstances it could also be something else, such as the cell boundary in a table or column boundary in a multi-column format.