Microsoft Office Forums - View Single Post - How to create a special TOC in word document?

gmaxey · 04-27-2015, 06:22 AM

You could create a style say called "SpecTOC" and apply it to you separator phrases. Then run:

Code:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oRng As Word.Range
  Set oRng = ActiveDocument.Range
  oRng.Collapse
  
  With ActiveDocument
    .TablesOfContents.Add Range:=oRng, RightAlignPageNumbers:= _
      True, UseHeadingStyles:=False, IncludePageNumbers:=True, AddedStyles _
      :="SpecTOC,1", UseHyperlinks:=True, HidePageNumbersInWeb:=True, _
      UseOutlineLevels:=False
    .TablesOfContents(1).TabLeader = wdTabLeaderDots
    .TablesOfContents.Format = wdIndexIndent
  End With
End Sub