If Table of Contents Exists Then?

[Bez]

Hi all,

Is there anyway that I could macro if a table of contents exists then do x?

The example is that a document can contain Clauses and Schedules which are both table of contents in their own right. One will always exist where as the other may not. I have a macro which deletes both of them but if one doesn't exist it errors.

Any help would be greatly appreciated.

Thanks

[gmaxey]

Have you tried simply handling the error.

On Error Resume Next
IDontExist.Delete 'Will raise error since that which does not exist cannot be deleted.
On Error GoTo 0

[macropod]

You could use:

Dim TOC As TableOfContents
For Each TOC In ActiveDocument.TablesOfContents
  TOC.Delete
Next

[Bez]

Thanks both,

I've used your solution macropod. Legend!

Thanks