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?

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