次の方法で共有


ContentControls オブジェクト (Word)

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 メソッドを使用します。 次の使用例は、作業中の文書の 3 番目のコンテンツ コントロールにアクセスし、コントロールがドロップダウン リストまたはコンボ ボックスの場合は、最初の項目をリストの一番下に移動し、最後の項目をリストの先頭に移動します。

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
アイテム

プロパティ

名前
アプリケーション
Count
Creator
Parent

関連項目

Word オブジェクト モデル リファレンス

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。