Save Selection

macropod · #4 01-12-2011, 02:53 PM

Hi Brock,

Quote:

This creates a three level index based on the values of the three fields.

OK, but if you know the fields' bookmark names, or at least their relative position in the document, you can get the values without and Find/Replace code. For example:

Code:

Sub Demo()
Dim strTmp As String
With ActiveDocument
  strTmp = .FormFields(1).Result
  strTmp = strTmp & ":" & .FormFields(2).Result
  strTmp = strTmp & ":" & .FormFields(3).Result
  .Indexes.MarkEntry Range:=.Bookmarks("IndexThis").Range, _
    Entry:=strTmp, CrossReference:="", CrossReferenceAutoText:="", _
    BookmarkName:="", Bold:=False, Italic:=False
End With
End Sub

If you know the formfield bookmark names, you can replace the 1, 2 & 3 with those. This provides an added level of flexibility. Note too that I haven't had to select anything.

PS: When posting code, please use code tags.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Textbox updating from combobox selection	paxile2k	Word VBA	0	10-26-2010 02:30 PM
Document selection procedure	kennethc	Word	0	09-15-2010 02:56 PM
The modification is not allowed because selection is locked	aligahk06	Word	0	09-06-2010 06:28 AM
Automatic find replace after selection in dropdown	vsempoux	Word	0	10-28-2009 08:45 AM
Highlighted Selection on Action Settings	mos7sad	PowerPoint	0	10-12-2009 07:48 AM