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.
Create Custom Apps with VBA! Discover how to extend the capabilities of Office 2013 (Word, Excel, PowerPoint, Outlook, and Access) with VBA programming, using it for writing macros, automating Office applications, and creating custom applications. Check out Mastering VBA for Office 2013 today!
A common task when editing documents is to break up run-on sentences. You can make this task a little easier by using the ...
Discover MoreNeed to place a bullet in the middle of a sentence? There are a couple of easy ways you can do this, as described in this ...
Discover MoreWe all get into habits, including in how we use Word. If you are used to deleting text in a particular way, and all of a ...
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