Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Sub ClearAllFormFields_A()
Dim oFF As FormField
For Each oFF In ActiveDocument.FormFields
[COLOR=red] ' if checkbox make it unchecked[/color red]
If oFF.Type = wdFieldFormCheckBox Then
oFF.Result = False
End If
[COLOR=red] ' if textbox make it empty[/color red]
If oFF.Type = wdFieldFormTextInput Then
oFF.Result = ""
End If
Next
End Sub
[COLOR=red]OR..........[/color red]
Sub ClearAllFormFields_B()
Dim oFF As FormField
For Each oFF In ActiveDocument.FormFields
Select Case oFF.Type
Case 71 [COLOR=red]' this is wdFieldFormCheckBox[/color red]
oFF.Result = False
Case 70 [COLOR=red] ' this is wdFieldFormTextInput[/color red]
oFF.Result = ""
End Select
Next
End Sub