See the attached Word template.
For an explanation of the approach taken, see:
https://wordmvp.com/FAQs/MacrosVBA/AppClassEvents.htm
The code requires two modules:
• A standard code module containing:
Code:
Dim wdAppClass As New ThisApplication
Public Sub AutoExec()
Set wdAppClass.wdApp = Word.Application
End Sub
It doesn't matter what name you give this module. If you already have a standard code module, simply put this code at the top.
• A class module named 'ThisApplication' containing:
Code:
Public WithEvents wdApp As Word.Application
Private Sub wdApp_WindowSelectionChange(ByVal Sel As Selection)
Application.ScreenUpdating = False
If Sel.Information(wdWithInTable) <> True Then Exit Sub
If Sel.Tables(1).Range.Fields.Count > 0 Then Sel.Tables(1).Range.Fields.Update
Application.ScreenUpdating = True
End Sub
You can either add those modules and code to your own document's template, or you can attach you document to the template in the attachment.