Option Explicit 
Private WithEvents oApp As Word.Application 

Private Sub Document_New() 
     'assign Word to the application variable
    If oApp Is Nothing Then 
        Set oApp = ThisDocument.Application 
    End If 
End Sub 

Private Sub Document_Open() 
     'assign Word to the application variable
    If oApp Is Nothing Then 
        Set oApp = ThisDocument.Application 
    End If 
End Sub 

Private Sub oApp_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean) 
    If Doc.AttachedTemplate <> ThisDocument Then Exit Sub 
     
    If Doc.FormFields("Text1").Result = "" Then 
        Cancel = True 
        MsgBox "An entry is required in the Customer Name field.", , "Error" 
        Application.OnTime When:=Now + TimeValue("00:00:01"), Name:="GoBacktoText1" 
        Exit Sub 
    End If 
     
    If Doc.FormFields("Text2").Result = "" Then 
        Cancel = True 
        MsgBox "An entry is required in the DOB field.", , "Error" 
        Application.OnTime When:=Now + TimeValue("00:00:01"), Name:="GoBacktoText2" 
        Exit Sub 
    End If 
     
    If Doc.FormFields("Text3").Result = "" Then 
        Cancel = True 
        MsgBox "An entry is required in the Work Number field.", , "Error" 
        Application.OnTime When:=Now + TimeValue("00:00:01"), Name:="GoBacktoText3" 
        Exit Sub 
    End If

End Sub 

Sub GoBacktoText1() 
    ActiveDocument.Bookmarks("Text1").Range.Fields(1). Result.Select 
End Sub 

Sub GoBacktoText2() 
    ActiveDocument.Bookmarks("Text2").Range.Fields(1). Result.Select 
End Sub 

Sub GoBacktoText3() 
    ActiveDocument.Bookmarks("Text3").Range.Fields(1). Result.Select 
End Sub