Microsoft Office Forums - View Single Post

brent chadwick · 04-10-2021, 11:47 AM

Hey Guys, I've been using this macro for many years to protect form fields when updating them-until now. Suddenly in 365 this macro does not work. It does not select all the text in the doc, nor does it update the fields. Has there been a change in the VBA code language? Here's the macro-

Code:

Sub UpdateAllFields()
' UpdateAllFields Macro
 If ActiveDocument.ProtectionType = wdNoProtection Then
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
End If
If ActiveDocument.ProtectionType <> wdNoProtection Then
    ActiveDocument.Fields.Update
    ActiveDocument.Unprotect
   End If
End Sub

Thanks-