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

therexjones · 09-27-2018, 09:28 AM

Unfortunately, I can't seem to get this code to do anything.

Quote:

Originally Posted by macropod

It seems to me you could manage any number of such content controls via code like:

Code:

Private Sub Document_ContentControlOnExit(ByVal CCtrl As ContentControl, Cancel As Boolean)
Application.ScreenUpdating = False
Dim i As Long
With ActiveDocument.SelectContentControlsByTitle(CCtrl.Title)
  For i = 2 To .Count
    With .Item(i)
      .LockContents = False
      .Range.Text = CCtrl.Range.Text
      .LockContents = True
    End With
  Next
End With
Application.ScreenUpdating = True
End Sub