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: Setting a VBA Variable from a Bookmark.

Setting a VBA Variable From a Bookmark

by Allen Wyatt
(last updated October 25, 2018)

7

As part of a macro, you may have a need to work with information stored in a bookmark. For instance, you may need to extract the text in a bookmark, assign it to a variable, and then do some processing based on the variable contents.

There are two ways you can assign the contents of a bookmark to a variable in a VBA macro. The first is to simply jump to the bookmark and select it, then make the variable equal to the contents of the selection. The following code lines will perform this action for a bookmark named MyBookmark:

Dim sMyString As String
Selection.GoTo What:=wdGoToBookmark, Name:="MyBookmark"
sMyString = Selection.Text

If you don't want to change the selection within the document, you can also simply work with the Bookmarks collection maintained by Word. Assuming you still need the contents of the MyBookmark bookmark, the following code will do the trick:

Dim sMyString As String
sMyString = ActiveDocument.Bookmarks("MyBookmark").Range.Text

Note:

If you would like to know how to use the macros described on this page (or on any other page on the WordTips sites), I've prepared a special page that includes helpful information. Click here to open that special page in a new browser tab.

WordTips is your source for cost-effective Microsoft Word training. (Microsoft Word is the most popular word processing software in the world.) This tip (1595) 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: Setting a VBA Variable from a Bookmark.

Author Bio

Allen Wyatt

With more than 50 non-fiction books and numerous magazine articles to his credit, Allen Wyatt is an internationally recognized author. He is president of Sharon Parq Associates, a computer and publishing services company. ...

MORE FROM ALLEN

Determining if Calculation is Necessary

When processing a worksheet with a macro, it may be helpful to periodically recalculate the worksheet. Wouldn't it be ...

Discover More

One Shortcut for Two Macros

Excel allows you to assign shortcut keys to macros. Given two different workbooks each containing different macros, it is ...

Discover More

Displaying Spaces in a Document

Seeing where every space is within a document can be very helpful in polishing your editing. Here's how to make those ...

Discover More

Do More in Less Time! Are you ready to harness the full power of Word 2013 to create professional documents? In this comprehensive guide you'll learn the skills and techniques for efficiently building the documents you need for your professional and your personal life. Check out Word 2013 In Depth today!

More WordTips (menu)

Changing Roman Numerals to Arabic

In some documents Roman numerals might be used quite a bit. If you ever want to change the Roman numerals to their Arabic ...

Discover More

Finding and Changing Word's Internal Commands

If you know how to create macros, you can easily create entire replacements for Word's internal commands. Here's all you ...

Discover More

Intelligible Names for Macros

The names you use for macros can affect what you see when you add those macros to a toolbar. This tip explains how you ...

Discover More
Subscribe

FREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."

View most recent newsletter.

Comments

If you would like to add an image to your comment (not an avatar, but an image to help in making the point of your comment), include the characters [{fig}] in your comment text. You’ll be prompted to upload your image when you submit the comment. Maximum image size is 6Mpixels. Images larger than 600px wide or 1000px tall will be reduced. Up to three images may be included in a comment. All images are subject to review. Commenting privileges may be curtailed if inappropriate images are posted.

What is one less than 2?

2017-10-21 23:15:08

Ango

is it possible to insert text from a bookmark in a closed word file into a new word doc via excel vba - the bookmark names are in an excel list - can anyone help?


2015-05-01 12:21:49

Hannah

Currently I have language that generates a second page if needed based on a selection but I need to add a bookmark to the second page. How do I add a bookmark to the second page when it doesn't show up unless it needs to show up.


2015-04-29 06:14:43

Jaume Estrany Mas

How do I capture the value of a form field drop-down list in Word?
I used "Msgbox (ActiveDocument.Bookmarks (" list "). Range.Text" and not working.
If it is a text form field if it works.
Greetings, Jaume


2015-04-02 11:39:31

DonnaS

Hello, I am working on a project in Word 2013. Here's my last item. I have a drop-down list that allows for a search of a city. Once chosen, a second drop-down list is populated. The user picks from this list and now has two items chosen. For instance: City, Venue. I have this part complete and working.

Once we have a city and a venue I want the bottom part of the Word doc to fill with the details of that Venue. I have those stored and could make each a bookmark tied to the Venue? Or?

I'm stumped how to do this. I'm thinking bookmarks, but the second drop-down is a bookmark entitled ddVenue and because the value is always changing it doesn't seem possible. I'm open to QuickParts too. Or? It needs to happen automatically without user involvement.

I'm thinking it will probably need to be some type of VBA code that makes the bookmark variable, but I'm not certain how to do this. VBA is my weakness. Any thoughts? Direction?

Thank you!
Donna


2015-03-16 07:07:59

Ken Endacott

If you also want the text within each bookmark:

Sub TypeBookmarks()
Dim BookmarkName() As String
Dim aBookmark As Bookmark
Dim k As Long
Dim ignoreCode As String
ignoreCode = "" ' change to "-" to hide hidden bookmarks
ReDim BookmarkName(0)
k = 1
For Each aBookmark In ActiveDocument.Bookmarks
If Left(aBookmark.Name, 1) <> ignoreCode Then
ReDim Preserve BookmarkName(k)
BookmarkName(k) = "Name:" & aBookmark.Name & " Text:" & aBookmark.Range.Text
k = k + 1
End If
Next aBookmark

Selection.EndKey Unit:=wdStory
For k = 0 To UBound(BookmarkName)
Selection.TypeText vbCrLf & BookmarkName(k)
Next k
End Sub


2015-03-16 06:58:11

Ken Endacott

Sub TypeBookmarks()
Dim BookmarkName() As String
Dim aBookmark As Bookmark
Dim k As Long
Dim ignoreCode As String
ignoreCode = "" ' change to "-" to hide hidden bookmarks
ReDim BookmarkName(0)
k = 1
For Each aBookmark In ActiveDocument.Bookmarks
If Left(aBookmark.Name, 1) <> ignoreCode Then
ReDim Preserve BookmarkName(k)
BookmarkName(k) = aBookmark.Name
k = k + 1
End If
Next aBookmark

Selection.EndKey Unit:=wdStory
For k = 0 To UBound(BookmarkName)
Selection.TypeText vbCrLf & BookmarkName(k)
Next k
End Sub


2015-03-16 02:03:59

Johannes van der Zwan

Good day
I would like to see a macro that creates a sorted array of all the bookmarks and insert the array at the end of my document.

In the hope you can help me with this.
Thank you very much.
Johannes


This Site

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.

Newest Tips
Subscribe

FREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."

(Your e-mail address is not shared with anyone, ever.)

View the most recent newsletter.