次の方法で共有

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"

関連項目

ContentControls コレクション

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

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