Delete to end-of-file?

[Rick Charnes]

Is there a VBA command for "delete to the end of this document"?
Thanks.

 

[Anne Troy]

I recorded this, Rick:
Selection.EndKey Unit:=wdStory, Extend:=wdExtend
Selection.Delete Unit:=wdCharacter, Count:=1

There's probably a more eloquent way of doing it.
************
Anne Troy
www.OfficeArticles.com

 

[Tony Jollans]

Not, AFAIK, an explicit single command but this should do it:

Selection.EndKey Unit:=wdStory, Extend:=wdExtend
Selection.Delete

 

[Doug Robbins - Word MVP]

Dim myrange as Range
Set myrange=Selection.Range
myrange.End = ActiveDocument.Range.End
myrange.Delete

--
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