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

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

therexjones · #2 09-27-2018, 11:05 AM

I reversed the "True/False" parts and now this does exactly what I was looking for. Thank you!

Quote:

Originally Posted by gmaxey

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

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to 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