Option Explicit

Sub FileSaveAs()
    On Error Resume Next
    If DataCheck = True Then GoTo lbl_Exit
    Dialogs(wdDialogFileSaveAs).Show
lbl_Exit:
    Exit Sub
End Sub

Sub FileSave()
    On Error Resume Next
    If DataCheck = True Then GoTo lbl_Exit
    ActiveDocument.Save
lbl_Exit:
    Exit Sub
End Sub

Private Function DataCheck() As Boolean
Dim oFF As FormField
    For Each oFF In ActiveDocument.FormFields
        If oFF.Type = wdFieldFormTextInput Then
            If oFF.Result = "" Then
                DataCheck = True
                MsgBox "You must complete then form before you can save it!"
                oFF.Select
                Exit For
            End If
        End If
    Next oFF
lbl_Exit:
    Exit Function
End Function