Batch insert table contents for many Word documents

[Tataya]

hello,everyone

 

I just be told I need to add the table contents for the papers I finished before.  For one or two files. It's easy, just select “Insert Table of Contents" under Table of Contents . But There are more than 20 files. God, do I have to do that one by one ?  Is there any way I can try to batch  insert table contents for many Word documents??

 

Any help will be appreciated!

 

[Anghammarad]

To be honest, perhaps there is a way to script that, but you'll be done faster if you do the 20 ToCs by hand instead of waiting for a script. Just a hint. Then you are done with it.

[LogicalDrm]

The issue might be if you haven't used different styles for each title level. Word has automatic ToC maker, which works best when your titles each use own style. Which you can then quickly config.

 

20 documents doesn't sound that bad. Even if you'd need to do styles again. Try adjusting 45 images on 115 page document (my just finished Master's Thesis).

[Mercly]

For that, the most quick way may create a macro to do that. Here is a VBA macro I find, try as below:

 

Sub InsertTOCForMultiDoc()
  Dim objDoc As Document
  Dim strFile As String, strFolder As String
 
  '  Initialization
  strFolder = "C:\Users\Public\Documents\New folder\Test1\"
  strFile = Dir(strFolder & "*.docx", vbNormal)
 
  '  Precess each document in the folder.
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=strFolder & strFile)
 
    Selection.InsertBreak Type:=wdSectionBreakNextPage
    Selection.HomeKey Unit:=wdStory
    With ActiveDocument
      .TablesOfContents.Add Range:=Selection.Range, RightAlignPageNumbers:= _
        True, UseHeadingStyles:=True, UpperHeadingLevel:=1, _
        LowerHeadingLevel:=9, IncludePageNumbers:=True, AddedStyles:="", _
        UseHyperlinks:=True, HidePageNumbersInWeb:=True, UseOutlineLevels:= _
        True.TablesOfContents(1).TabLeader = wdTabLeaderDots
      .TablesOfContents.Format = wdIndexIndent
    End With
    ActiveDocument.Sections(1).PageSetup.DifferentFirstPageHeaderFooter = True
    With ActiveDocument.Sections(2)
      .Footers(wdHeaderFooterPrimary).LinkToPrevious = False
      .Footers(wdHeaderFooterPrimary).PageNumbers.RestartNumberingAtSection = True
      .Footers(wdHeaderFooterPrimary).PageNumbers.StartingNumber = 1
    End With
    ActiveDocument.TablesOfContents(1).Update
 
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
End Sub

 

And the details steps, see here

https://www.datanumen.com/blogs/3-ways-quickly-insert-table-contents-word-document/

 

Hope it works