Updating Tables of Contents only

[Roderick]

This is a link from a Microsoft forum which is now closed and therefore I'm bringing it into here to continue the conversation:
https://answers.microsoft.com/en-us/...9-82d1a6faefda

I have a template with two TOCs: one does Headings 1-6 whilst the other looks at Headings 7-8; each TOC working in its own purpose.

This is TOC 1:

{ TOC \o "1-6" \z }

...and this is TOC 2:

{ TOC \o "7-8" \n \p "." \z }

What I want to do is to update just the TOCs and not all the rest of the fields in the document.

The link above provides a procedure written by Doug Robbins (thanks Doug) a couple of years back:

Dim toc As TableOfContents
Dim tof As TableOfFigures
With ActiveDocument
    .Range.Fields.Update
    For Each toc In .TablesOfContents
        toc.Update
    Next toc
    For Each tof In .TablesOfFigures
        tof.Update
    Next tof
End With 

If I insert a Heading 1 title in my document and then run this procedure it updates the TOC - but once only. If I add further Headings, say 2 and 3, and run the procedure again then nothing happens.

It goes to this line and then stops without doing anything:

toc.Update

Is there something I have to adjust to make the TOCs update themselves every time?

Thanks

Roderick

[gmaxey]

This seems to work here:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oToc As TableOfContents
  For Each oToc In ActiveDocument.TablesOfContents
    oToc.Update
  Next oToc
lbl_Exit:
  Exit Sub
End Sub

[Roderick]

Thanks, Greg, for the idea. Unfortunately, this does not work either: it always breaks off at toc.Update command line.

There must be something wrong but I cannot spot what is, in essence, a very simple command.

I've got around the problem by re-writing the field each time and that does the trick. Admittedly, there could be a better way but I cannot waste time in trying to resolve the problem if this solution does the trick.

This is the code that I use now:

40        If ActiveDocument.Bookmarks.Exists("ContentsTop") Then
50            ActiveDocument.Bookmarks("ContentsTop").Range.Select
60            With ActiveDocument
70                .TablesOfContents.Add Range:=Selection.Range, RightAlignPageNumbers:= _
                      True, UseHeadingStyles:=True, LowerHeadingLevel:=6, UpperHeadingLevel:=1, IncludePageNumbers:=True, _
                      UseHyperlinks:=False, HidePageNumbersInWeb:=True, UseOutlineLevels:=False
80                .TablesOfContents(1).TabLeader = wdTabLeaderDots
90                .TablesOfContents.Format = wdIndexIndent
100           End With
110       End If

Every time I add a Heading 1-6 it calls this procedure and updates the TOC.

Thanks

Roderick