?
Solved

Moving to bookmark in Word 2007 template opened from Access 2007

Posted on 2009-06-30
5
Medium Priority
?
457 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

0
Comment
Question by:databasefun
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
  • 2
5 Comments
 
LVL 46

Expert Comment

by:tbsgadi
ID: 24752622
Hi databasefun,

Should be

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

Good Luck!

Gary
0
 

Author Comment

by:databasefun
ID: 24757100
I have already tried that as well and the cursor just stays at the beginning of the document
0
 

Author Comment

by:databasefun
ID: 24765712
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.

 
0
 

Accepted Solution

by:
databasefun earned 0 total points
ID: 24766300
Figured it out.

The Microsoft Word 12.0 Object Library was not checked.  Once checked things worked fine.
0
 
LVL 46

Assisted Solution

by:tbsgadi
tbsgadi earned 400 total points
ID: 24766670
Yup that would do it :>
0

Featured Post

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

You need to know the location of the Office templates folder, so that when you create new templates, they are saved to that location, and thus are available for selection when creating new documents.  The steps to find the Templates folder path are …
This article describes a method of delivering Word templates for use in merging Access data to Word documents, that requires no computer knowledge on the part of the recipient -- the templates are saved in table fields, and are extracted and install…
Learn how to number pages in an Access report over each group. Activate two pass printing by referencing the pages property: Add code to the Page Footers OnFormat event to capture the pages as there occur for each group. Use the pages property to …
With Microsoft Access, learn how to specify relationships between tables and set various options on the relationship. Add the tables: Create the relationship: Decide if you’re going to set referential integrity: Decide if you want cascade upda…
Suggested Courses

752 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question