The following will reset the fields
Code:
Dim oFF As FormField
For Each oFF In ActiveDocument.FormFields
If oFF.Type = wdFieldFormTextInput Then
oFF.TextInput.Clear
End If
Next oFF
Set oFF = Nothing
You don't need the DIM statement if you are adding it to the end of the original macro as it is already defined.