Question : How do you Erase or Clear all fields within the word document?

I am in the process of upgrading everyone here to office and I was very curious to where the word fields erase button went to.  I want to know the easiest way in word 2007 to clear all fields in a word document.  

Answer : How do you Erase or Clear all fields within the word document?

You can do it even quicker by just unprotecting then reprotecting with NoReset:=False - this resets all form fields - so twaeking the above code

Sub ClearFields()

Dim Doc As Document

    Set Doc = ActiveDocument
    Doc.Unprotect
    Doc.Protect Type:=wdAllowOnlyFormFields, NoReset:=False
    Set Doc = Nothing
   
End Sub