ContentControls.Add メソッド (Word)
作業中の文書に指定した種類の新しいコンテンツ コントロールを追加し、新しいコンテンツ コントロールを表す ContentControl オブジェクトを取得します。
構文
式。追加 (型、 範囲)
式ContentControls オブジェクトを返す式。
パラメーター
名前 | 必須 / オプション | データ型 | 説明 |
---|---|---|---|
Type | 省略可能 | WdContentControlType | 作業中の文書に挿入するコンテンツ コントロールの種類を指定します。 省略した場合は、リッチ テキスト コンテンツ コントロールが挿入されます。 |
Range | 省略可能 | バリアント型 (Variant) | 作業中の文書内でコンテンツ コントロールを配置する場所を指定します。 省略した場合は、カーソル位置にコンテンツ コントロールが配置されるか、または現在の選択範囲が置き換えられます。 |
戻り値
ContentControl
注釈
コンテンツ コントロールをネストできるのは、リッチ テキスト コンテンツ コントロール、文書パーツ ギャラリー コンテンツ コントロール、およびグループ コンテンツ コントロールのみです。 カーソルまたは現在の選択範囲が異なる種類のコンテンツ コントロール内にある場合、このメソッドはエラーを発生させます。 この場合、カーソルを移動するか、Range パラメーターを使用して、文書内の位置を指定できます。
例
次の例は、新しいドロップダウン リスト コンテンツ コントロールを作成し、リストに項目を追加します。
Dim objCC As ContentControl
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"
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。