double spacing content of TOC

[sals]

I have the code to insert a TOC, does anyone know how tomake the
content of the TOC double space?

_______________________________________________________


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

 

[Jonathan West]

In your document or template, set the paragraph format of the TOC 1 to TOC 9
styles.

 

[sals]

I tried this ..

ActiveDocument.TablesOfContents(1).Range.ParagraphFormat.LineSpacingRule
= wdLineSpace1pt5

for 1.5 spacing

thansk John!