Lock All Content Controls, Except the First Instance of Each Title

macropod · #1 09-23-2018, 03:35 PM

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

therexjones · #2 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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Word VBA : Lock the content of a table cell	User75	Word Tables	3	06-26-2018 05:37 AM
Macro to save docx to doc that checks compatibility and converts content controls to static content.	staicumihai	Word VBA	4	10-12-2016 08:23 PM
Lock top row, so column title is always visible	Susanma	Excel	1	03-30-2015 01:50 AM
VBA for content controls	ciresuark	Word VBA	1	03-10-2015 03:14 PM
Creating a plain text content control for every instance of a word or phrase	RobsterCraw	Word VBA	16	11-20-2012 03:25 PM