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

gmaxey · #6 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

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