Content Controls

ContentControls.Count

Sub CC_COUNT()
MsgBox (ActiveDocument.ContentControls.Count)
End Sub

Set Text

ActiveDocument.ContentControls.Item(ccIndex).Value = "Hello World"

Get Text

'Used to access Content ControlsPrivate Const oTitle = "observationTitle"
'VariablesDim formDoc As DocumentSet formDoc = ActiveDocumentDim cc As ContentControlsDim ccText As String
'Accessing Content ControlSet cc = formDoc.SelectContentControlsByTag(oTitle)ccText = cc(1).Range.Text

Set All Placeholder Texts

Private Const PLACEHOLDER_TEXT As String = " "
Sub set_CC_Placeholder_Text()
'Set all wdContentControlText placeholder text
Dim myDoc As DocumentDim CCs As ContentControlsDim cc As ContentControl
Set myDoc = ActiveDocumentSet CCs = myDoc.ContentControls
For Each cc In CCs If (cc.Type = wdContentControlText) Then cc.SetPlaceholderText Text:=PLACEHOLDER_TEXT End IfNextEnd Sub

Clear All Text

Sub clear_CC_Text()
'Set all wdContentControlText text to " "
Dim myDoc As DocumentDim CCs As ContentControlsDim cc As ContentControl
Set myDoc = ActiveDocumentSet CCs = myDoc.ContentControls
For Each cc In CCs If (cc.Type = wdContentControlText And cc.LockContents = False) Then cc.Range.Text = " " End IfNextEnd Sub

Page updated

Google Sites

Report abuse