We help IT Professionals succeed at work.

We've partnered with Certified Experts, Carl Webster and Richard Faulkner, to bring you a podcast all about Citrix Workspace, moving to the cloud, and analytics & intelligence. Episode 2 coming soon!Listen Now

x

Bookmark in a text box using VBA

Medium Priority
352 Views
Last Modified: 2013-11-27
I am inserting data from Access into Word.

This code has been working fine for the last five years but when the bookmark is in a textbox it passes the first test and determines that the bookmark exists but on the next line it tells me 'cannot find requested bookmark'.

MSObjDoc is a Public Variable for the ActiveDocument.

Any explanation would be welcome.

Public Sub InsertText(BookMk As String, TextToInsert As String)
Dim WordRange As Word.Range
If MsObjDoc.Bookmarks.Exists(BookMk) Then ' Passes this statement OK)
Set WordRange = MsObjDoc.GoTo(What:=wdGoToBookmark, name:=BookMk) ' (Error on this line)
WordRange.InsertAfter TextToInsert
End If
End Sub
Comment
Watch Question

Retired
CERTIFIED EXPERT
Top Expert 2012
Commented:
You should be able to get the Range object using the bookmark.range method directly.
Public Sub InsertText(BookMk As String, TextToInsert As String)
Dim WordRange As Word.Range
If MsObjDoc.Bookmarks.Exists(BookMk) Then ' Passes this statement OK)
    Set WordRange = MsObjDoc.Bookmarks(BookMk).Range
    WordRange.InsertAfter TextToInsert
End If
End Sub

Open in new window

Not the solution you were looking for? Getting a personalized solution is easy.

Ask the Experts

Author

Commented:
Thanks that worked perfectly
Cheers
Access more of Experts Exchange with a free account
Thanks for using Experts Exchange.

Create a free account to continue.

Limited access with a free account allows you to:

  • View three pieces of content (articles, solutions, posts, and videos)
  • Ask the experts questions (counted toward content limit)
  • Customize your dashboard and profile

*This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

OR

Please enter a first name

Please enter a last name

8+ characters (letters, numbers, and a symbol)

By clicking, you agree to the Terms of Use and Privacy Policy.