DocumentBeforeClose Help

[Mrbrtsde]

Hi all,

I am trying to validate all form fields in a Word doc prior to close and message the user that these fields must be completed before the doc closes. Once they have clicked 'OK', I want the doc to stay open to allow them to update mandatory fields. This what I have so far (which doesn't work):

Private Sub DocumentBeforeClose(ByVal Doc As Document, Cancel As Boolean)
 Dim intResponse As Integer
 Dim FFld As FormField
 Set Doc = ActiveDocument
 For Each FFld In Doc.FormFields
    If Trim(FFld.Result) = "" Then
         intResponse = MsgBox("Please enter a value in each field", vbOKOnly)
         ' Cancel = True will prevent the document from closing once the sub is complete
         ' Cancel = False will close the document after sub is complete.
 Cancel = True
 End If
 Next
End Sub

Thanks for your help!