By fields, I will assume you mean formfields. Formfield dropdowns by design can't be empty. They have to contain one of the list items that you define.
E.g., you might define "Choose Letter" as the first entry then A, B, C, D etc.
Sub ValidateFFs()
Dim oFF As FormField
For Each oFF In ActiveDocument.FormFields
Select Case oFF.Name
Case "Dropdown1"
If oFF.Result = "Choose Letter" Then
oFF.Range.Select
MsgBox "This field must have a valid selection"
Exit For
End If
Case "Text1"
'Your code for validating the Text1 field.
End Select
Next oFF
End Sub
|