How to create a special TOC in word document?

gmaxey · #2 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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How do I create an index of every word in a document?	jbengal	Word	5	11-23-2022 02:17 PM
How to Create Dynamic Paragraphs in Word Document	gt7586d	Word	3	02-19-2015 01:02 PM
Create a word document by answering questions?	mattfrack	Word	1	01-09-2015 02:25 PM
How to identify whether Word 2007 was used to create a document saved as Word 2003	noviceatwork	Word	0	03-08-2012 06:40 AM
Creating a special Document	darka5sa5sin	Word	0	02-06-2009 11:23 AM