ContentControlListEntry オブジェクト (Word)
ContentControlListEntry オブジェクトは、ドロップダウン リストまたはコンボ ボックス コンテンツ コントロール内のリスト アイテムを表します。 ContentControlListEntry オブジェクトは、ContentControl オブジェクトの ContentControlListEntries コレクションのメンバーです。
注釈
ContentControlListEntries コレクションの Add メソッドを使用して、新しい ContentControlListEntry オブジェクトを作成します。 ContentControlListEntries コレクション内の個々のリスト アイテムにアクセスするには、Item メソッドまたは DropdownListEntries (Index) を使用します。
注:
リスト項目には一意の表示名が必要です。 既に存在するリスト項目を追加しようとして、実行時エラーを発生させます。
コード例を次に示します新しいドロップダウン リスト コンテンツ コントロールにリスト項目を追加するのには、 Add メソッドを使用して、 Item メソッドを使用してリスト内の 3 番目の項目にアクセスし、表示テキストを変更します。
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
Text プロパティを使用して、コンテンツ コントロールのリスト項目の表示テキストを設定して、 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 |
プロパティ
名前 |
---|
アプリケーション |
Creator |
インデックス |
Parent |
テキスト |
Value |
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。