Please Note: This article is written for users of the following Microsoft Word versions: 2007, 2010, 2013, 2016, 2019, Word in Microsoft 365, and 2021. If you are using an earlier version (Word 2003 or earlier), this tip may not work for you. For a version of this tip written specifically for earlier versions of Word, click here: Getting Bookmark Information in VBA.
Written by Allen Wyatt (last updated April 29, 2023)
This tip applies to Word 2007, 2010, 2013, 2016, 2019, Word in Microsoft 365, and 2021
Assuming the insertion point is located within a bookmark, John wonders how he can use VBA to discover the name of that bookmark and to select all the text within the bookmark.
There are a couple of tricks to keep in mind when working with bookmarks. First, it is best not to assume that the insertion point is within a bookmark. Instead, you can verify if it is within a bookmark by using the following code:
BkMkCount = Selection.Bookmarks.Count
When executed, BkMkCount will contain a value indicating the number of bookmarks. If you are expecting only a single bookmark, then you can verify that the variable is equal to 1 before you proceed with your code.
If you want to figure out the name of the bookmark, then you can use the following:
BkMkName = Selection.Bookmarks(1).Name
If you then want to select all the text in the bookmark, use the following:
Selection.Bookmarks(1).Select
To bring all these concepts together you can use a structure such as the following:
BkMkCount = Selection.Bookmarks.Count If BkMkCount = 1 Then With Selection.Bookmarks(1) BkMkName =.Name .Select End With End If
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 (12251) applies to Microsoft Word 2007, 2010, 2013, 2016, 2019, Word in Microsoft 365, and 2021. You can find a version of this tip for the older menu interface of Word here: Getting Bookmark Information in VBA.
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!
Want to get to a bookmark location quickly? One option is to use the F5 key to jump to a bookmark. Perhaps a quicker ...
Discover MoreTables are a great way to organize information in a document. At some point you may want a cell in a table to contain the ...
Discover MoreWord has an irritating habit of placing unwanted bookmarks in a document that you've been editing for a while. These ...
Discover MoreFREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."
2023-04-29 05:35:28
Ken Endacott
In a document with multiple bookmarks the following macro will determine if a selection is within one of the bookmarks, select the range of the bookmark and display the bookmark name. It will not find hidden bookmarks (whose name starts with an underscore character).
However, a document can have overlapping bookmarks or multiple bookmarks at the same location in which case the macro will find the first bookmark at that location.
Sub IsInBookmark()
Dim k As Long
k = 1
Do While k <= ActiveDocument.Bookmarks.Count
With ActiveDocument.Bookmarks(k)
If Selection.Range.InRange(.Range) Then
.Select
MsgBox "Bookmark name=" & .Name
Exit Sub
End If
End With
k = k + 1
Loop
MsgBox "Selection is not within a bookmark"
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.
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