Hi Charles,
With Selection
' page of end of selection
MsgBox .Information(wdActiveEndPageNumber)
MsgBox .Information(wdActiveEndAdjustedPageNumber)
' line of start of selection
MsgBox .Information(wdFirstCharacterLineNumber)
Beware of textframes, word-art and other gotchas.
End With
Greetings from Bavaria, Germany
Helmut Weber
"red.sys" & chr$(64) & "t-online.de"