Code to creating a custom TOC including too many styles

amer1749 · #1 06-30-2016, 10:24 AM

I'm trying to write code to insert a custom table of contents. The code first writes "Table of Contents" in a new paragraph and sets that paragraph to a style other than Heading 1 or Heading 2 (though it is based on Heading 1).

Then I try this:

Code:

With ActiveDocument
        .TablesOfContents.Add Range:=Selection.Range, RightAlignPageNumbers:= _
            True, UseHeadingStyles:=False, IncludePageNumbers:=True, AddedStyles _
            :="Heading 1,Heading 2", UseHyperlinks:=True, _
            HidePageNumbersInWeb:=True, UseOutlineLevels:=False
        .TablesOfContents(1).TabLeader = wdTabLeaderDots
        .TablesOfContents.Format = wdIndexIndent
End With

Despite code specifying exactly what styles to use, the resulting TOC uses Doc Title, all nine Heading N styles, and the custom TOC style -- which results in the TOC displaying an entry for itself, which is just stupid.

What am I missing?

(FWIW, if I turn on the macro recorder and insert a TOC that correctly excludes the TOC style, I get exactly what I want, and I get almost exactly the code above. The only difference is that the recorder writes

Code:

AddedStyles:="Heading 1, 1, Heading 2, 2"

. The MSDN reference for the TableOfContents.Add method does not show the levels, just a comma-delimited list of styles to include. Doesn't matter; the code fails the same way.)

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to create custom table styles?	Pey1	PowerPoint	1	05-25-2016 02:15 AM
Styles in a Custom Ribbon	inagalaxyfarfarawry	Word	5	12-15-2015 11:18 AM
Custom Bar Styles	dbsoccer	Project	7	10-31-2013 07:26 AM
creating new styles	hannu	Word	8	04-28-2013 11:23 PM
Creating Styles Template?	Stone	Word	2	09-11-2012 04:54 PM