Collin,

I use a pair of macros in my document template.  Here is
an example.  All you really need is the last
line "ActiveDocument.Fields.Update":

Sub AutoNew()
   Dim EmpName As String
   Dim BadgeNum As String
       EmpName = InputBox("Enter employee
name", "Employee Name", "John Q. Sample")
       BadgeNum = InputBox("Enter badge number", "Badge
Number", "0000")
       ActiveDocument.CustomDocumentProperties("Employee
Name").Value = EmpName
       ActiveDocument.CustomDocumentProperties("Badge
Number").Value = BadgeNum
       ActiveDocument.Fields.Update
End Sub

Sub AutoOpen()

Dim Update As VbMsgBoxResult
Dim PolicyNum As String
Dim ClientName As String
On Error GoTo ExitSub
Update = MsgBox("Update Document Information?", vbYesNo)
If Update = vbYes Then
    EmpName = InputBox("Enter employee name", "Employee
Name", "John Q. Sample")
    BadgeNum = InputBox("Enter badge number", "Badge
Number", "0000")
    ActiveDocument.CustomDocumentProperties("Employee
Name").Value = EmpName
    ActiveDocument.CustomDocumentProperties("Badge
Number").Value = BadgeNum
    ActiveDocument.Fields.Update
End If
ExitSub:
End Sub