Word) (ContentControlListEntry 物件

ContentControlListEntry 物件代表下拉式清單或下拉式方塊內容控制項的清單項目。 ContentControlListEntry 物件是 ContentControlListEntries 集合 ContentControl 物件的成員。

註解

使用ContentControlListEntries集合的Add方法來建立新的ContentControlListEntry物件。 使用 Item 方法或 DropdownListEntries (Index) ，其中 Index 是內容控制項清單專案的序數位置，可存取 ContentControlListEntries 集合內的個別清單專案。

注意事項

[!注意事項] 清單項目必須具有唯一的顯示名稱。 嘗試加入已存在的清單項目會導致執行階段錯誤。

下列程式碼範例會使用 Add 方法將多個清單項目新增至新的下拉式清單內容控制項，然後再使用 項目 方法來存取在清單中的第三個項目及變更顯示文字。

Dim objCC As ContentControl 
Dim objLE As ContentControlListEntry 
Dim objMap As XMLMapping 
 
Set objCC = ActiveDocument.ContentControls.Add(wdContentControlDropdownList) 
 
'List items 
objCC.DropdownListEntries.Add "Cat" 
objCC.DropdownListEntries.Add "Dog" 
objCC.DropdownListEntries.Add "Equine" 
objCC.DropdownListEntries.Add "Monkey" 
objCC.DropdownListEntries.Add "Snake" 
objCC.DropdownListEntries.Add "Other" 
 
Set objLE = objCC.DropdownListEntries.Item(3) objLE.Text = "Horse" 

使用 MoveUp 和 MoveDown 方法，即可來重新調整項目在下拉式清單中的位置。 下列程式碼範例會將第一個項目向下移動，使它成為清單中的最後一個項目，並將最後一個項目向上移動，使它成為清單中的第一個項目。

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

使用 Select 方法，即可以程式選取內容控制項清單項目。 下列程式碼範例會將下拉式清單內容控制項插入使用中文件、設定標題和預留位置文字，並將多個項目加入此清單，然後選取最後一個輸入的項目。

Dim objCC As ContentControl 
Dim objCE As ContentControlListEntry 
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" 
 
Set objCE = objCC.DropdownListEntries.Add("Other") 
objCE.Select

使用 文字 屬性可設定項目的顯示文字內容控制項清單，並使用 Value 屬性可設定以程式設計方式值您可以稍後用來處理表單。 例如，您可能會使用內容控制項的下拉式清單的產品的清單。 Text 屬性類別內含顯示名稱是使用者可以輕鬆地能辨識和瞭解、 產品的名稱。 會在 Value 屬性可能會包含產品數會對應至資料庫中的產品數字的產品。 會在 Value 屬性產品介於然後可用來查閱資料庫中的產品資訊。 此外， 會在 Value 屬性的值是如果內容控制項對應至資料儲存區內的 XML 資料傳送至自訂 XML 資料。

下列程式碼範例會根據顯示文字的內容，設定項目的值。

Dim objCc As ContentControl 
Dim objLe As ContentControlListEntry 
Dim strText As String 
Dim strChar As String 
 
Set objCc = ActiveDocument.ContentControls(3) 
 
For Each objLE In objCC.DropdownListEntries 
 If objLE.Text <> "Other" Then 
 strText = objLE.Text 
 objLE.Value = "My favorite animal is the " & strText & "." 
 End If 
Next

使用 Delete 方法，即可移除內容控制項下拉式清單或下拉式方塊中的項目。 如果下拉式清單項目的顯示文字是 "Other"，下列程式碼範例就會刪除此項目。

Dim objCC As ContentControl 
Dim objCL As ContentControlListEntry 
 
For Each objCC In ActiveDocument.ContentControls 
 If objCC.Type = wdContentControlComboBox Or _ 
 objCC.Type = wdContentControlDropdownList Then 
 For Each objCL In objCC.DropdownListEntries 
 If objCL.Text = "Other" Then objCL.Delete 
 Next 
 End If 
Next 
 

方法

名稱
Delete
MoveDown
MoveUp
Select

屬性

名稱
Application
Creator
Index
Parent
Text
Value

請參閱

Word 物件模型參考資料

支援和意見反應

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