Putting a bookmark on a REF field in the selection

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.

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