ToC: Testing for Table of Contents existence

[Paul B]

Hi,

I've got a macro that updates existing Word ToC's. I'd like to
enhance it by first testing for the existence of a ToC. If one
exists, it would be updated; if not, one would be created.

Is such a test possible?

Thanks,
Paul

 

[Jean-Guy Marcil]

Hi,

I've got a macro that updates existing Word ToC's. I'd like to
enhance it by first testing for the existence of a ToC. If one
exists, it would be updated; if not, one would be created.

Is such a test possible?

Maybe this will be useful:


Sub ManageTOC()

Dim tocMain As TableOfContents
Dim rgeTOC As Range

If ActiveDocument.TablesOfContents.Count > 0 Then
Set tocMain = ActiveDocument.TablesOfContents(1)
Set rgeTOC = tocMain.Range
Else
'Determine where to insert TOC
Set rgeTOC = ActiveDocument.Range.Paragraphs(1).Range
With rgeTOC
.Collapse wdCollapseStart
.Fields.Add rgeTOC, wdFieldEmpty, _
"TOC \o " & Chr(34) & "1-3" & Chr(34) & "\h \z \u", False
End With
Set tocMain = ActiveDocument.TablesOfContents(1)
Set rgeTOC = tocMain.Range
End If

End Sub

 

[Paul B]

Sub ManageTOC()

Dim tocMain As TableOfContents
Dim rgeTOC As Range

If ActiveDocument.TablesOfContents.Count > 0 Then
Set tocMain = ActiveDocument.TablesOfContents(1)
Set rgeTOC = tocMain.Range
Else
'Determine where to insert TOC
Set rgeTOC = ActiveDocument.Range.Paragraphs(1).Range
With rgeTOC
.Collapse wdCollapseStart
.Fields.Add rgeTOC, wdFieldEmpty, _
"TOC \o " & Chr(34) & "1-3" & Chr(34) & "\h \z \u", False
End With
Set tocMain = ActiveDocument.TablesOfContents(1)
Set rgeTOC = tocMain.Range
End If

End Sub

Fantastic! Thanks so much.

Paul