[MattyP]

Hello -
A few days ago, I posted a question to see if it were possible (and what the
code might be) to create a macro that would autmatically add Bookmarks to a
Word document, based on text style (in this case, Heading 1's). I got a
great reply (credit to the original responder !), but later realized it would
definitely be helpful if I could tweak it a bit more.

The macro code originally provided is below. After running it, any text
strings formatted as Heading 1 are automatically identified as Bookmarks
(which is great). The catch is, these are named as "Bookmark 1", "Bookmark
2", etc., rather than the being named the same as the actual text string
itself. So, the million dollar question is this --- is there any way to
modify the macro code below (or create a new one) that automatically
generates Bookmarks based on text style (i.e., Heading 1), and also names
them the same as the text string ? Any guidance would be most appreciated !

- Matt

Here's the macro code I originally received (which works absolutely great,
but does name the Bookmarks "generically" --- 1,2,3, etc.)..........

------------------------------------------
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 3/8/2009 by MattyP
'
Selection.HomeKey wdStory
Selection.Find.Style = ActiveDocument.Styles("Heading 1")
Dim frange As Range
Dim i As Long
i = 1
With Selection.Find
Do While .Execute(FindText:="", Forward:=True, _
MatchWildcards:=False, Wrap:=wdFindStop, MatchCase:=False) = True
Set frange = Selection.Range
ActiveDocument.Bookmarks.Add "Bookmark" & i, frange
i = i + 1
Selection.Collapse wdCollapseEnd
Loop
End With

End Sub