It is rarely necessary to select and better to use a Range instead
Dim myrange as range
set myrange = Selection.Range
myrange.End = ActiveDocument.Range.End
then do what you want with myrange
--
Hope this helps.
Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.
Doug Robbins - Word MVP, originally posted via msnews.microsoft.com