Please Note: This article is written for users of the following Microsoft Word versions: 97, 2000, 2002, and 2003. If you are using a later version (Word 2007 or later), this tip may not work for you. For a version of this tip written specifically for later versions of Word, click here: Deleting a Page.
Written by Allen Wyatt (last updated March 7, 2015)
This tip applies to Word 97, 2000, 2002, and 2003
Need a quick way to delete the current page in your document? Here's a macro that will do the trick:
Please Note:
This article is written for users of the following Microsoft Word versions: 97, 2000, 2002, and 2003. If you are using a later version (Word 2007 or later), this tip may not work for you. For a version of this tip written specifically for later versions of Word, click here:
Sub Delete_Page()
ActiveDocument.Bookmarks("\Page").Range.Delete
End Sub
The macro uses a special system-defined bookmark to refer to the current page. Assign the macro to a shortcut key and you have a way to easily delete the current page—the one in which the insertion point is located. The macro bases its determination of a "page" on the current pagination of the document, which is affected by the printer driver you are using and other formatting characteristics of the document.
You should keep in mind that Word is dynamic in how it flows information in a document. Thus, let's say that you run this macro while the insertion point is located in page 5. It dutifully selects the contents of page 5 and deletes those contents, but Word then reflows the document so that everything after the old page 5 is moved up to occupy the void created—page 6 becomes page 5, page 7 becomes page 6, etc.
Note:
WordTips is your source for cost-effective Microsoft Word training. (Microsoft Word is the most popular word processing software in the world.) This tip (227) applies to Microsoft Word 97, 2000, 2002, and 2003. You can find a version of this tip for the ribbon interface of Word (Word 2007 and later) here: Deleting a Page.
Do More in Less Time! An easy-to-understand guide to the more advanced features available in the Microsoft 365 version of Word. Enhance the quality of your documents and boost productivity in any field with this in-depth resource. Complete your Word-related tasks more efficiently as you unlock lesser-known tools and learn to quickly access the features you need. Check out Microsoft 365 Word For Professionals For Dummies today!
One of the more common symbols that people need to use in their writing is the degree symbol, typically used after a ...
Discover MoreNeed to delete a range of pages out of the middle of your document? It's easy to do using editing techniques you already ...
Discover MoreType three periods in a row, and the AutoCorrect feature in Word kicks in to exchange that sequence for a special ...
Discover MoreFREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."
2018-10-02 21:01:20
Tim
Hi,
I'm using this in a 4-page word document with different paper sizes and orientation for each page:
1st page: A4 portrait
2nd page: A4 Landscape
3rd page: A3 landscape
4th page: A3 portrait
the delete macro works on the first 3 pages, but not on the last one.
I tried rearranging the pages, it still doesn't work on the last page.
Can you help me with this? THnx
2016-08-16 02:27:06
Mohsen
3. You Could add this to ribbon by going to file> Option> Customize ribbon> Choose Macro from drop down and add and rename the Deletepage button to ribbon (From left to right box, Need to create new group)
Sincerely, Mohsen
2016-08-16 02:11:52
Mohsen
1. View> Macros > View Macros> Create> Give A name (Delete)
Clear the program and Type bellow lines in the opened visual basic program and save.
Sub Delete_Page()
ActiveDocument.Bookmarks("Page").Range.Delete
End Sub
2. Press Record Macro and type a new name (DeletePage) and choose button and add this button to quick access bar for all documents and click ok.
3.Run previously created macro in step 1 and press stop recording. You’re done! use your newly created button.
2015-08-13 19:46:44
jason
You need to get rib of the two subs.
Private Sub CommandButton1_Click()
ActiveDocument.Bookmarks("Page").Range.Delete
End Sub
2015-07-17 18:26:10
gary
You would need to delete the line
Sub Delete_Page()
and then delete one of the lines
End Sub
2015-07-08 06:57:01
gregor
Hi,
This is exactly what i was looking for!! But...I am entering this to a button (ActiveX):
Private Sub CommandButton1_Click()
Sub Delete_Page()
ActiveDocument.Bookmarks("Page").Range.Delete
End Sub
End Sub
...Keep getting an end sub error at the first line. Can you help?
Got a version of Word that uses the menu interface (Word 97, Word 2000, Word 2002, or Word 2003)? This site is for you! If you use a later version of Word, visit our WordTips site focusing on the ribbon interface.
Visit the WordTips channel on YouTube
FREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."
Copyright © 2025 Sharon Parq Associates, Inc.
Comments