How to: Insert a Content Control into a Building Block
Building blocks and content controls are extremely flexible. You can create building blocks that contain content controls, or you can create content controls that use building blocks to present rich content selections to the user. This topic shows how to insert a content control into a building block, which users can then insert into their documents.
The objects used in this sample are:
The following code inserts a content control into the active document, and then adds the content control to the collection of building blocks in the template attached to the active document.
Sub InsertContentControlIntoBuildingBlock() Dim objCC As ContentControl Dim objBB As BuildingBlock Dim objTemplate As Template Dim objRange As Range Set objTemplate = ActiveDocument.AttachedTemplate Set objCC = ActiveDocument.Range.ContentControls _ .Add(wdContentControlComboBox) objCC.DropdownListEntries.Add "Outstanding" objCC.DropdownListEntries.Add "Good" objCC.DropdownListEntries.Add "Fair" Set objRange = ActiveDocument.Range Set objBB = objTemplate.BuildingBlockEntries.Add("OGF Rating Scale", _ wdTypeCustom1, "Ratings", objRange) End Sub