Macro to delete pages in Word 2007

staicumihai · #1 10-25-2018, 06:29 AM

Hi guys,

I need a macro to delete all the pages from the current page to the end of a Word 2007 document.

Do you have any ideas ?

Thank you.

gmayor · #2 10-25-2018, 06:53 AM

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

staicumihai · #3 10-30-2018, 04:42 AM

Thank you Gmayor

staicumihai · #4 11-06-2018, 04:43 AM

Hi Gmayor!

Do you know how can I add the delete key to the macro you gave me ?

Thanks a lot!

Guessed · #5 11-07-2018, 01:14 AM

Your question doesn't make sense.

If you are asking how to run this macro with a keyboard command try two separate commands
Ctrl-Shift-End to select to end of document
Del to delete selection

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to delete blank hidden pages in Word 2016 Mac?	michaellanfield	Word	13	01-03-2019 08:05 AM
Need Word Macro to Delete Text	rsrasc	Word VBA	4	04-18-2018 11:32 PM
Word 2007 Full Screen 2 Pages	NIDALAP	Word	2	08-07-2017 03:39 AM
How To Show Number of Pages in Word 2007	CGM3	Word	2	07-21-2013 08:17 PM
I have a Word 2007 document that only show 13 pages	xeonix	Word	0	07-06-2009 08:38 PM