clearing Text and Check Boxes in a Word doc

[siobhanh]

Is there a way to clear all the fields in a document. Being a novice, so far i could only come up with setting each field's value individually to blank but, there are a lot of them.
Thank you.

 

[fumei]

If these are formfields:

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

Both versions do the same thing, although technically speaking, version _B is the better one. Why? Because it uses ONE Select Case instruction, as opposed to TWO If...Then instructions.


If these are ActiveX controls (from the Controls toolbar rather than the Forms toolbar), then different code is required.

"A little piece of heaven
without that awkward dying part."

advertisment for Reese's Peanut Butter Cups (a chocolate/peanut butter confection)

Gerry

 

[siobhanh]

Gerry,
I'm sorry it took me so long to thank you for your response. I got involved with something else and forgot about this.
I am back to working on it and realize that I am using the Controls toolbar. If you don't mind, could you let me know if i can still clear all fields?
Fortunately, as you may have guessed I don't have a tight deadline on this.

Thank you so much!