(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
Count
Creator
Parent

另請參閱

Word 物件模型參考資料

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應