Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
?
Solved

Runtime error 5678 Word cannot find the requested bookmark

Posted on 2008-06-24
2
Medium Priority
?
1,629 Views
Last Modified: 2010-04-21
Hi,
I have a Macro that is finding a value of a bookmark in the body of a document and I am then changing another value of a bookmark in the header accordingly.
This works fine while destination bookmark is in the body of the document but has the above error if I move the destination bookmark to the header.
Using a recorded macro has the same problem.
It seems even though you are in the header when you run the macro it reverts to only looking at the body.

Can anyone explain why this is? and or give me a solution to the problem.
I see this is close, but having an input box isn't what I have and I don't know the piece I need to add to my code to make it work...

http://www.experts-exchange.com/Software/Office_Productivity/Office_Suites/MS_Office/Word/Q_22960647.html

Thanks Tony
Dim lngValue As Long
 
'Selection.GoTo What:=wdGoToBookmark, Name:="RM0TotalInclGST"
    Selection.GoTo What:=wdGoToBookmark, Name:="RM0TotalInclGST"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
Selection.MoveRight Unit:=wdCharacter, Count:=2, Extend:=wdExtend
lngValue = Selection.Text
 
Selection.GoTo What:=wdGoToBookmark, Name:="INVOICETYPE"
 
If Val(lngValue) < 0 Then
Selection.Text = "CREDIT NOTE"
 
Else
Selection.Text = "TAX INVOICE"
End If
 
End Sub

Open in new window

0
Comment
Question by:Tony303
[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
2 Comments
 
LVL 23

Accepted Solution

by:
irudyk earned 2000 total points
ID: 21929295
Try the following revised code:
Dim lngValue As Long
 
'Selection.GoTo What:=wdGoToBookmark, Name:="RM0TotalInclGST"
    Selection.GoTo What:=wdGoToBookmark, Name:="RM0TotalInclGST"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
Selection.MoveRight Unit:=wdCharacter, Count:=2, Extend:=wdExtend
lngValue = Selection.Text
 
'Selection.GoTo What:=wdGoToBookmark, Name:="INVOICETYPE"
ActiveDocument.Bookmarks("INVOICETYPE").Select
 
If Val(lngValue) < 0 Then
Selection.Text = "CREDIT NOTE"
 
Else
Selection.Text = "TAX INVOICE"
End If
 
ActiveWindow.ActivePane.Close
 
End Sub

Open in new window

0
 
LVL 12

Author Closing Comment

by:Tony303
ID: 31470457
Hi,
Sorry for the long wait on this one, I guess my spam mail trapped the solution.
Anyway, great thanks, I see the secret is the
ActiveDocument.Bookmarks("INVOICETYPE").Select
and
ActiveWindow.ActivePane.Close

Thanks again

Tony
0

Featured Post

Free Tool: IP Lookup

Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.

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

This is written from a 'VBA for MS Word' perspective, but I am sure it applies to most other MS Office components where VBA is used.  One thing that really bugs me is slow code, ESPECIALLY when it's mine!  In programming there are so many ways to…
This article shows how to get a list of available printers for display in a drop-down list, and then to use the selected printer to print an Access report or a Word document filled with Access data, using different syntax as needed for working with …
This video walks the viewer through the process of creating a watermark for their document, customizing it, and saving it for viewing/printing needs.
This video shows the viewer how to set up and create Footnotes in their document. Click on the References tab: Select "Insert Footnote": Type in desired text:

722 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