Maskot
06-24-2015, 12:58 AM
Hi,
I need a help with WORD FormFields. I have a document with many formfields and I need to update all fields without two of them. One formfield shows amount in words so the field with this amount earlier cant be updated.
Could you please help? Macro below with problem on red. I need a part that will update each formfield separately.
Sub sbProtectSheet1()
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True, Password:=""
ActiveDocument.Unprotect Password:=""
ActiveDocument.FormFields("qqq").Result = "XZX"
ActiveDocument.FormFields("wng").Result = "3000"
Dim dFormField As FormField
For Each dFormField In ActiveDocument.FormFields()
If dFormField.Name <> "wng" Then
dFormField.Update
End If
Next
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True, Password:=""
ActiveDocument.Unprotect Password:=""
End Sub
I need a help with WORD FormFields. I have a document with many formfields and I need to update all fields without two of them. One formfield shows amount in words so the field with this amount earlier cant be updated.
Could you please help? Macro below with problem on red. I need a part that will update each formfield separately.
Sub sbProtectSheet1()
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True, Password:=""
ActiveDocument.Unprotect Password:=""
ActiveDocument.FormFields("qqq").Result = "XZX"
ActiveDocument.FormFields("wng").Result = "3000"
Dim dFormField As FormField
For Each dFormField In ActiveDocument.FormFields()
If dFormField.Name <> "wng" Then
dFormField.Update
End If
Next
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True, Password:=""
ActiveDocument.Unprotect Password:=""
End Sub