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
My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Re: Pivot Table/Query wrote:
> 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).