We help IT Professionals succeed at work.

Check out our new AWS podcast with Certified Expert, Phil Phillips! Listen to "How to Execute a Seamless AWS Migration" on EE or on your favorite podcast platform. Listen Now

x

Moving to bookmark in Word 2007 template opened from Access 2007

databasefun
databasefun asked
on
Medium Priority
477 Views
Last Modified: 2013-11-27
I want to open a Word template from Access and then navigate to a bookmark.  I can open the template just fine and I can use things like .TypeText Text:="This is a test", but it will not navigate to a bookmark.  If I do a count bookmarks (X = ActiveDocument.Bookmarks.Count) if will return 0 even though if you go to the Word document that is opened by Access and open bookmarks it will show the bookmark I am trying to navigate to (and if I click it it will go to the bookmark just fine).
I have enabled macros in the template. I have also tried variants of the command line I use to .Goto what, but without making a difference.  Also tried the MoveUp command to see if that would work and it did not.
Another strange thing is I can open a template document, but if I try to open an existing document using
appWord.Documents.Open FileName:="C:\Users\Michael\Documents\testaccessworddoc.docx" it will not open the document (just keeps the Word instance open)
With appWord.Documents.Add(Template:="c:\Users\Michael\Documents\testaccessworddoc.dotx")
    End With
 
    With appWord.Selection
 
        Selection.GoTo What:=wdGoToBookmark, Name:="clientname"
        appWord.Selection.MoveUp wdline, 6
    End With

Open in new window

Comment
Watch Question

Commented:
Hi databasefun,

Should be

With appWord.Selection
.GoTo What:=wdGoToBookmark, Name:="clientname"

Good Luck!

Gary

Author

Commented:
I have already tried that as well and the cursor just stays at the beginning of the document

Author

Commented:
Found a workaround.  If I use the following it fills in the bookmark just fine.

    Dim appWord As Object
    Set appWord = GetObject(, "Word.Application")

    If Err Then
            Err.Clear
            Set appWord = CreateObject("Word.Application")
             If Err Then
                  MsgBox "Can't start Word!"
                   Exit Sub
             End If
             appWord.Visible = True
      End If

appWord.Documents.Open ("C:\Users\Michael\Documents\testaccessworddoc.dotx")

  With appWord.activedocument.bookmarks
  .Item("clientname").range.Text = "Why me"
  End With

If I use in the With structure the command
  .GoTo What:=wdGoToBookmark, Name:="clientname"

it will not navigate to the bookmark. The cursor just stays at the document top and if I start entering text it goes at the start of the document.

 
Unlock this solution and get a sample of our free trial.
(No credit card required)
UNLOCK SOLUTION
Commented:
Unlock this solution and get a sample of our free trial.
(No credit card required)
UNLOCK SOLUTION
Unlock the solution to this question.
Thanks for using Experts Exchange.

Please provide your email to receive a sample view!

*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.