I am trying to write a macro, which should restrict any changes to Form except allowing content control properties.

I tried this macro, it does work and allows modification only to form fields(content control properties), however takes away capabilities to insert any image or table in these content control properties.

Sub Protect_FormFields()


'
' Protect_FormFields Macro
'
'
If ActiveDocument.ProtectionType = wdNoProtection Then
ActiveDocument.Protect _
Type:=wdAllowOnlyFormFields, NoReset:=True
End If

End Sub

I need the option to add a table. If I manually select all form fields -> restrict editing -> select 'allow only this type of editing in the document' -> under exception select 'everyone' -> yes, start enforcing protection => then it works as expected ( allows only form fields editing & still can add table/image to form fields).

I am struggling to write a generic loop which should select all content control properties & then explicitly allow only selection for modification in a document

Selection.Editors.Add wdEditorEveryone

and apply below code on the rest of document.

ActiveDocument.Protect Password:="", NoReset:=False, Type:= _
wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False

I will really appreciate help/pointers to proceed

Form Fields and Content Controls are not the same thing.



First you say your want to protect everything in a form except content control properties. Tables and images "aren't" properties of a CC. They are content. I think you need to use "No Changes - Read Only" and apply the editor "Everyone the the CCs you want user's to be able to type in or add images.

__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/

Cross-posted at: ms word - VBA, Allow only Form Fields to edit in MSword - Stack Overflow
For cross-posting etiquette, please read: Excelguru Help Site - A message to forum cross posters

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Sub Protect_Form_Fields_2()
'
' Protect_Form_Fields_2 Macro
'
'
Dim i As Long
Dim startPos As Integer
Dim endPos As Integer

With ActiveDocument
For i = 1 To .ContentControls.Count
Set ContentControl = .ContentControls(i)
startPos = ContentControl.Range.Start - 1
endPos = ContentControl.Range.End + 1
Application.ActiveDocument.Range(startPos, endPos).Editors.Add WdEditorType.wdEditorEveryone

Next i
.Protect Password:="NoChange", NoReset:=False, Type:= _
wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False
End With
End Sub