Hello,
I am trying to code a macro which could check whether a document has all needed named content controls and add missing if necessary.
Let's say, the document should contain 3 CCs named "A", "B" and "C". If it contains only "A", the macro should add "B" and "C".
My code is below. It adds all CCs if some of the 3 named CC are missing, but do not differentiate which one should be added. How to add check for missing CCs?
Code:
Sub AddMissingCCs()
Dim CCnames
Dim i As Long
Dim j As Long
Dim CCcount As Long
Dim CCtrl As ContentControl
CCnames = Array("A", "B", "C")
For i = 0 To UBound(CCnames)
For Each CCtrl In ActiveDocument.ContentControls
If (UBound(Filter(CCnames, CCtrl.Title)) = -1) Then
Selection.EndKey Unit:=wdStory
ActiveDocument.Range.InsertAfter vbCr
Selection.Range.ContentControls.Add (wdContentControlPlain)
Selection.ParentContentControl.Title = CCnames(i)
End If
Next
Next
End Sub