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

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

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

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