Some comments before making any attempts to change the macro:
There are some restrictions to bookmark names:
1. Bookmarks must be named uniquely, i.e. you cannot have two bookmarks with
the same name in the same document. The naming convention used in the macro
makes sure that this is fulfilled.
2. A bookmark name can consist of no more than 40 characters. The name is
not allowed to start with a number and it can contain only letters, numbers
and underscores (e.g. no spaces).
As you can imagine, this means that your headings cannot directly be used as
bookmark names. Spaces will need to be removed. If the text starts with a
number, the name will need to be changed. In addition, it will be necessary
to keep track of which names have already be used since it is not unrealistic
that the first 40 characters of two or more of the headings are identical.
Also, if you change one or more heading texts, the bookmark names will no
longer reflect the content anyway.
Maybe you want to keep the macro in the current version?
--
Regards
Lene Fredborg - Microsoft MVP (Word)
DocTools - Denmark
www.thedoctools.com
Document automation - add-ins, macros and templates for Microsoft Word
"MattyP" wrote:
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