Word 2003 FormFields

[Guest]

Hello,

Does anyone knows how to erase the value of a FormField in Word with Office
2003?

When I am using the code as membered (sending an empty string) below I get
an error and the FormField is still having it's value.

'= BEGIN CODE
Public Function WriteDocFds(iBookMrkNm, iVal) 'Office2003
On Error GoTo errHandler

Set ffield = ActiveDocument.FormFields(iBookMrkNm).TextInput

If ffield.Valid = True Then
If iValue <> "" And iValue <> " " Then
ffield.Default = iVal
Else
If iVal = "" Then ffield.Default = " " 'HERE I AM
USING SPACE TO EMPTY IT BUT SOMETIMES IT REALLY
NEEDS TO BE EMPTY
End If
End If

Exit Function

errHandler:
Select Case Err.Number
Case 438
'NOTHING
Case 4198
'NOTHING
Case 5101
'NOTHING
Case 5941
'NOTHING
Case Else
MsgBox "WriteDocuFields" & vbCrLf & Err.Description, vbCritical,
"Fout#: " & Err.Number
End Select
End Function


'= END CODE
Thanks a lot in advance!

VBA-er

 

[David]

Hello,

Maybe if you try ActiveDocument.FormFields(iBookMrkNm).Result = " " as
below it can resolve you problem.

Public Function WriteDocFds(iBookMrkNm, iVal) 'Office2003
On Error GoTo errHandler

Set ffield = ActiveDocument.FormFields(iBookMrkNm).TextInput

If ffield.Valid = True Then
If iValue <> "" And iValue <> " " Then
ffield.Default = iVal
Else
If iVal = "" Then
ActiveDocument.FormFields(iBookMrkNm).Result = " "
End If
End If