Well, I wasn't referring to the DM per se, just to the fact that if you use
Insert | Cross-reference or Insert | Hyperlink, you'll find the headings
already present, and the bookmarks are used by Word to generate an automatic
TOC. In the Document Map, however, you can choose how many heading levels to
view: switch to Outline view, select only Level 1, and the DM will follow
suit.
--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
http://word.mvps.org
"MattyP" wrote in message
...
I do (I'm assuming you're talking about the 'Document Map' toolbar button)
?
Only problem is, that 'catches' all the built-in heading styles (so the
list
is a bit longer and cumbersome to wade through !). Alternatively, is
there a
way to modify the Document Map feature, to only 'catch' certain built-in
heading styles (i.e., just Heading 1) ?
"Suzanne S. Barnhill" wrote:
You do know that the built-in heading styles are bookmarked automatically
by
Word?
--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
http://word.mvps.org
"MattyP" wrote in message
...
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