MACRO TO CLEAR A FORM

[Re: Pivot Table/Query]

I have created a form for use in my office. I would like to have a "clear"
or "reset" button at the top so that the data can be cleared from the form.
Is there an easy way (I"m assuming a macro is needed with a button).

 

[Graham Mayor]

If you save the form without the data as a template and create new documents
from it it won't need clearing. However

Sub ClearForm()
Dim oFld As FormFields
Set oFld = ActiveDocument.FormFields
For i = 1 To oFld.Count
If oFld(i).Type = wdFieldFormDropDown Then
oFld(i).Result = " "
Else
oFld(i).Result = ""
End If
Next
End Sub

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>