Open Word File and GoTo bookmark

Barb-B · Oct 22nd 2010

The following code executes without error, and opens the word file. Problem is it doesn't actually go to the bookmarked location specified, but stays on the initial view at beginning of document. I don't do much with Word, and am a little clueless here. Can someone show me the error of my ways?

Code

Private Sub cmdGuide_Click()
 
    Dim wrdApp As Object
    Dim wrdDoc As Object
    Dim myFile As String
 
    myFile = "D:\Data\User Guide.docx"
    Set wrdApp = CreateObject("Word.Application")
    wrdApp.Visible = True
    Set wrdDoc = wrdApp.Documents.Open(myFile)
 
    wrdDoc.Goto What:=wdGoToBookmark, Name:="Census"
 
    Set wrdApp = Nothing
    Set wrdDoc = Nothing
 
End Sub

Display More

I also tried (instead of the wrdDoc.Goto statement):

Code

With wrdDoc
.Selection.GoTo What:=wdGoToBookmark, Name:="Census"
End With

Oracle2054 · Oct 22nd 2010

Re: Open Word File and GoTo bookmark

You were very close the following code will work for you be sure you have Microsoft Word Library referenced. Hope this helps!

Code

Private Sub cmdGuide_Click()
 
    Dim wrdApp As Object
    Dim wrdDoc As Object
    Dim myFile As String
 
    myFile = "D:\Data\User Guide.docx"
    Set wrdApp = CreateObject("Word.Application")
    wrdApp.Visible = True
    Set wrdDoc = wrdApp.Documents.Open(myFile)
 
    wrdApp.ActiveDocument.Bookmarks("Census").Select
 
    Set wrdApp = Nothing
    Set wrdDoc = Nothing
 
End Sub

Display More

Barb-B · Oct 22nd 2010

Re: Open Word File and GoTo bookmark

This is definitely an improvement, but I should have explained my full goal a little better - I would like to show the bookmark location at the top of the screen, like the effect of manually performing a GoTo action. While your revision does get the cursor to the bookmark, it doesn't shift it up the screen. It's current orientation at screen bottom when file opens is likely to confuse my users. Is there a way to get the screen shift as well? Thanks so much, I really appreciate the help!

Barb-B · Oct 26th 2010

Re: Open Word File and GoTo bookmark

bump. Anyone?

Rob Xaos · Oct 26th 2010

Re: Open Word File and GoTo bookmark

Not an expert on Word VBA by any means but the following seemed to work for me:

Code

Selection.GoTo What:=wdGoToBookmark, Name:="Test"

Although normally I would shy away from using Selection/Select, since in this case you actually want the cursor to change positions then I think that is what is required.

Since I believe there can only be one active Selection I don't think you need to qualify it with a document (in fact I seemed to get a run-time error when I tried).

Open Word File and GoTo bookmark

Participate now!

Share