Word) (ContentControls 物件
ContentControl 物件的集合。 內容控制項是指文件中具有界限且可能具有標籤的區域，而且這些區域會做為特定內容類型的容器。 個別的內容控制項可能會含有內容，例如日期、清單或格式化文字的段落。
註解
您可以使用 Add 方法來建立新的內容控制項，並將它插入文件。 下列範例會建立新的下拉式清單內容控制項，並將許多項目加入至此清單。
Dim objcc As ContentControl
Dim objMap As XMLMapping
Set objcc = ActiveDocument.ContentControls.Add(wdContentControlDropdownList)
objcc.Title = "My Favorite Animal"
If objcc.ShowingPlaceholderText Then _
objcc.SetPlaceholderText , , "Select your favorite animal "
'List entries
objcc.DropdownListEntries.Add "Cat"
objcc.DropdownListEntries.Add "Dog"
objcc.DropdownListEntries.Add "Horse"
objcc.DropdownListEntries.Add "Monkey"
objcc.DropdownListEntries.Add "Snake"
objcc.DropdownListEntries.Add "Other"
請使用 Item 方法來存取集合中的特定內容控制項。 下列範例會存取使用中檔內的第三個內容控制項，如果控制項是下拉式清單或下拉式方塊，則會將第一個專案移至清單底部，並將最後一個專案移至清單頂端。
Dim objcc As ContentControl
Dim objLE1 As ContentControlListEntry
Dim objLE2 As ContentControlListEntry
Dim intCount As Integer
Set objcc = ActiveDocument.ContentControls.Item(3)
If objcc.Type = wdContentControlComboBox Or _
objcc.Type = wdContentControlDropdownList Then
'First item in the list.
Set objLE1 = objcc.DropdownListEntries.Item(1)
'Last item in the list.
Set objLE2 = objcc.DropdownListEntries.Item(objcc.DropdownListEntries.Count)
For intCount = 1 To objcc.DropdownListEntries.Count
'Move the first item down one.
objLE1.MoveDown
'Move the last item up one.
objLE2.MoveUp
Next
End If
使用個別的內容控制項使用 ContentControl 物件。 如需詳細資訊，請參閱使用內容控制項。
方法
| 名稱 |
|---|
| Add |
| 項目 |
屬性
| 名稱 |
|---|
| Application |
| 數目 |
| Creator |
| Parent |
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。