Putting a bookmark on a REF field in the selection

b0x4it · #1 05-25-2011, 09:06 AM

I am trying to find a REF field in the selected text and adding a bookmark to it using this code:

Code:

Sub AddBookmark()
    Dim oStoryRng As Range
    Dim oFld As Field
    For Each oFld In Selection.Fields
        If oFld.Type = wdFieldRef Then
            ActiveDocument.Bookmarks.Add Range:=oFld, Name:="test"
            oFld.Update
        End If
    Next oFld
End Sub

But when I select the text that includes the field and then run this code, nothing happens and no bookmark is added. Would you please let me know what is wrong with this code?

macropod · #2 05-25-2011, 11:52 PM

Hi b0x4it,

Why would you want to bookmark a cross-reference field? surely you could simply insert another cross-reference wherever else you need one (eg via Insert\Cross-reference or by copying & pasting the existing one)

b0x4it · #3 05-25-2011, 11:58 PM

That's right. But I am trying to learn how I can put a bookmark on a field that is in the current line, table or paragraph. This is just a sample, I want to learn how I can do that using VBA. In fact it would be SEQ instead of REF, but doesn't matter and I can simply change the working code to put bookmark on whatever field I want. any idea?

macropod · #4 05-26-2011, 12:51 AM

Try:

Code:

Sub AddBookmark()
Dim oFld As Field, Rng As Range
For Each oFld In Selection.Fields
  If oFld.Type = wdFieldRef Then
    Set Rng = oFld.Result
    Rng.End = Rng.End + 1
    ActiveDocument.Bookmarks.Add Range:=Rng, Name:="test"
    Exit For
  End If
Next oFld
Set Rng = Nothing
End Sub

Note the 'Exit For'. This serves two purposes, it:
1. avoids needlessly checking any subsequent fields; and
2. prevents any attempt to re-use the bookmark - only one instance of a given bookmark can exist.

b0x4it · #5 05-26-2011, 01:14 AM

Hi Paul,

It works perfectly. I think the problem with my code was "Set Rng = oFld.Result"

Thank you.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Highlight and put bookmark on the closest field to the cursor	b0x4it	Word VBA	11	05-19-2011 11:15 PM
Question about putting editable inscriptions over a picture in RTF	62mkv	Drawing and Graphics	4	03-20-2011 10:32 PM
Form Field - Drop down selection causing auto text	chesspupil	Word VBA	7	05-09-2010 05:43 AM
Putting periods/dots around the letter A	ph3iron	Word	0	03-27-2010 06:11 AM
Read Receipt option on even after putting it off	ran_sushmi	Outlook	0	04-17-2009 06:31 AM