Form Fields

Number Of Form Fields

Sub numberOfFormFields()MsgBox (ActiveDocument.FormFields.Count)End Sub

Form Field Type?

If myDoc.FormFields(ffIndex).Type = wdFieldFormCheckBox Then'Checkbox End If
If myDoc.FormFields(ffIndex).Type = wdFieldFormDropDown Then'Dropdown
End IfIf myDoc.FormFields(ffIndex).Type = wdFieldFormTextInput Then'Textbox
End If

Reset Text Inputs To Default Values, Button

Private Sub btnClearForm_Click()
Dim myDoc As DocumentDim FFs As FormFieldsDim ff As FormField
Set myDoc = ActiveDocumentSet FFs = myDoc.FormFields
'Reset the form to default valuesFor Each ff In FFsff.result = ff.TextInput.DefaultNext
End Sub

Clear Text Inputs, Button

Private Sub btnClearForm_Click()
'Clears all form fields
Dim myDoc As DocumentDim FFs As FormFieldsDim ff As FormField
Set myDoc = ActiveDocumentSet FFs = myDoc.FormFields
'Clear the formFor Each ff In FFsff.result = ClearNext
End Sub

Page updated

Google Sites

Report abuse