V***@versatel.nl
2006-04-01 18:19:35 UTC
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
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