Microsoft Office Forums - View Single Post - [Solved] Macro to delete pages in Word 2007

Thread: [Solved] Macro to delete pages in Word 2007

View Single Post

Old

10-25-2018, 06:53 AM

gmayor

gmayor is offline

gmayor uses Windows 10

Windows 10 gmayor uses Office 2016

gmayor uses Office 2016

Office 2016

Expert

Join Date: Aug 2014

Posts: 4,138

gmayor has much to be proud of

gmayor has much to be proud of

gmayor has much to be proud of

gmayor has much to be proud of

gmayor has much to be proud of

gmayor has much to be proud of

gmayor has much to be proud of

gmayor has much to be proud of

gmayor has much to be proud of

Default

How about

Code:

Sub DeleteToEnd()
Dim oRng As Range
    Set oRng = ActiveDocument.Bookmarks("\page").Range
    oRng.Collapse 0    'end of page. If you want to delete from the start of the page change the 0 to 1
    oRng.End = ActiveDocument.Range.End
    oRng.Delete
    Set oRng = Nothing
End Sub

__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com

Reply With Quote