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:
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.
Learning Made Easy! Quickly teach yourself how to format, publish, and share your content using Word 2013. With Step by Step, you set the pace, building and practicing the skills you need, just when you need them! Check out Microsoft Word 2013 Step by Step today!
The vast majority of what you enter into a document can be accomplished through the use of the regular keyboard. However, ...
Discover MoreWord provides you with three types of hyphens and two types of dashes that you can use in your documents. Understanding ...
Discover MoreWord includes a little-known function that allows you to put "filler text" into your document. If you want this function ...
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 © 2024 Sharon Parq Associates, Inc.
Comments