CODEWITHSUNDEEP
vbams-word
Ezor
Ezor

Reputation: 145

How to update a Table of Tables with macro vba-Word?

I'm a beginner in word-vba macros (but I quite good for excel-vba) and I'm looking to update a "Table of Tables". I've found out how to do so for "Table of Content" and "Table of Figures" (with ActiveDocument.TablesOfContents(1).Update) but the Collection TableOfTables doesn't exist. Does someone know what I have to do?

Thanks in advance,

Upvotes: 2

Views: 3036

Answers (2)

Ezor
Ezor

Reputation: 145

Ok, thanks to @macropod I figured out how to solve my issue. The 'Table of tables' is not another table of content but another table of figures So here is my finale code :

Public Sub UpdateAllFiles()
    With ActiveDocument
        .TablesOfContents(1).Update
        .TablesOfFigures(1).Update
        .TablesOfFigures(2).Update
    End With
End Sub

Upvotes: 3

macropod
macropod

Reputation: 13490

There isn't a "Table of Tables" object or a TableOfTables collection. A "Table of Tables" is really just a kind of "Table of Contents". Indeed, so too is a "Table of Figures". If you look at the field codes underlying these, you'll see all three use a TOC field - a "Table of Tables" and a "Table of Figures" would have field codes like { TOC \h \z \c "Table" } and { TOC \h \z \c "Figure" }, respectively. So, if you want to update any of these (or any custom types you create), but not necessarily all, you can simply loop through the TableOfContents collection and check what follows the \c switch, if present. Likewise, you can loop through the TableOfContents collection and update all items in it. Hence:

Sub Demo()
Application.ScreenUpdating = False
Dim TOC As TableOfContents
For Each TOC In ActiveDocument.TablesOfContents
  TOC.Update
  'Or depending on what you want to update:
  'TOC.UpdatePageNumbers
Next
Application.ScreenUpdating = True
End Sub

A simpler way - for all fields - would be:

Sub Demo()
Application.ScreenUpdating = False
With ActiveDocument
  .Fields.Update
  .PrintPreview
  .ClosePrintPreview
End With
Application.ScreenUpdating = True
End Sub

Upvotes: 2

Related Questions