Solved

Moving to bookmark in Word 2007 template opened from Access 2007

Posted on 2009-06-30
5
438 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
  • 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 100 total points
ID: 24766670
Yup that would do it :>
0

Featured Post

Maximize Your Threat Intelligence Reporting

Reporting is one of the most important and least talked about aspects of a world-class threat intelligence program. Here’s how to do it right.

Join & Write a Comment

Most if not all databases provide tools to filter data; even simple mail-merge programs might offer basic filtering capabilities. This is so important that, although Access has many built-in features to help the user in this task, developers often n…
A simple tool to export all objects of two Access files as text and compare it with Meld, a free diff tool.
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…
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 …

708 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

Need Help in Real-Time?

Connect with top rated Experts

15 Experts available now in Live!

Get 1:1 Help Now