Microsoft Office Forums - View Single Post

Charles Kenyon · 11-06-2013, 01:00 PM

The following might work:

Code:

Sub ChangeCCToNoDelete()
    ' Macro to set all Content Controls to locked (no delete)
    ' Written by Charles Kenyon 2013-11-06
    Dim oCC As ContentControl
    For Each oCC In ActiveDocument.ContentControls
        oCC.LockContentControl = True
    Next oCC
End Sub

See Installing Macros for direction on how to use this.

I have not tested this extensively, but it seems to work.