Some people absolutely love bookmarks. They do come in handy, but if someone else set bookmarks in a document, you may not need them once you get the document from them. If there are many, many bookmarks set (remember, we are talking about people who really love bookmarks), removing them all one at a time can be rather tedious.
If you find yourself in this situation, you will want to keep the following macro handy. It examines the active document (the one you are looking at) and removes all the bookmarks within it.
Sub RemoveAllBookmarks() Dim objBookmark As Bookmark For Each objBookmark In ActiveDocument.Bookmarks objBookmark.Delete Next End Sub
You should note that this simply deletes the bookmark, not any text referenced by the bookmark.
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 (9004) applies to Microsoft Word 2007, 2010, and 2013. You can find a version of this tip for the older menu interface of Word here: Removing All Bookmarks.
The First and Last Word on Word! Bestselling For Dummies author Dan Gookin puts his usual fun and friendly candor back to work to show you how to navigate Word 2013. Spend more time working and less time trying to figure it all out! Check out Word 2013 For Dummies today!
If you develop a macro that needs to work with bookmarks defined in a document, it is inevitable that you will need a way ...
Discover MoreDo you want an easy way to see all the bookmarks in your document? Word provides a way to make them visible, or you can ...
Discover MoreBookmarks in Word are just like bookmarks used in paper books, any given bookmark may be reused to mark a new location. ...
Discover MoreFREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."
2014-01-07 07:56:49
Bryan
@CaroleJean: The "If ActiveDocumnt.Bookmarks.Count >=1 Then / End If" lines are unnecessary if you are going to use a For Each loop. That's really the whole reason to use a For Each loop.
2014-01-06 09:15:01
This macro will delete all bookmarks including hidden bookmarks.
Sub RemoveAllBookmarks()
Dim stBookmark As Bookmark
ActiveDocument.Bookmarks.ShowHidden = True
If ActiveDocument.Bookmarks.Count >= 1 Then
For Each stBookmark In ActiveDocument.Bookmarks
stBookmark.Delete
Next stBookmark
End If
End Sub
2014-01-04 14:01:40
Ken Endacott
Word creates hidden bookmarks for such things as links from Table of Contents and deleting them could affect the document in unexpected ways. The following macro will delete only user created bookmarks and not hidden bookmarks
Sub RemoveAllBookmarks()
Dim objBookmark As Bookmark
For Each objBookmark In ActiveDocument.Bookmarks
if left(objBookmark.name,1) <> "_" then objBookmark.Delete
Next
End Sub
Got a version of Word that uses the ribbon interface (Word 2007 or later)? This site is for you! If you use an earlier version of Word, visit our WordTips site focusing on the menu interface.
FREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."
Copyright © 2019 Sharon Parq Associates, Inc.
Comments