Microsoft Office Forums - View Single Post - [Solved] Lock All Content Controls, Except the First Instance of Each Title

gmaxey · 09-27-2018, 10:03 AM

Code:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey, http://gregmaxey.com/word_tips.html, 9/27/2018
Dim oCC As ContentControl
Dim oCol As New Collection
  For Each oCC In ActiveDocument.ContentControls
    oCC.LockContents = False
  Next oCC
  On Error Resume Next
  For Each oCC In ActiveDocument.ContentControls
    oCol.Add oCC.Title, oCC.Title
    If Err.Number = 0 Then oCC.LockContents = True
    Err.Clear
  Next oCC
lbl_Exit:
  Exit Sub
End Sub