Thanks Paul,
so just creating this module in normal.dotm will work, is that correct.
Code:
Private Sub fileprint()
Application.ScreenUpdating = False
Dim TOC As TableOfContents ' Table of Contents Object
Dim TOA As TableOfAuthorities ' Table of Authorities Object
Dim TOF As TableOfFigures ' Table of Figures Object
Dim Rng As Range ' Word Range Object
With ActiveDocument
' Update fields in each Story.
' Note that this may trigger the updating of ASK & FILLIN fields
For Each Rng In .StoryRanges
.Fields.Update
Next
' The following routines are necessary because the foregoing updates only page numbers
' in TOCs, TOAs and TOFs - field updating doesn't update TOC, TOA or TOF contents.
' Loop through Tables Of Contents and update
For Each TOC In .TablesOfContents
TOC.Update
Next
' Loop through Tables Of Authorities and update
For Each TOA In .TablesOfAuthorities
TOA.Update
Next
' Loop through Tables Of Figures and update
For Each TOF In .TablesOfFigures
TOF.Update
Next
End With
Application.ScreenUpdating = True
End Sub