DropDown オブジェクト (Word)
フォームの項目の一覧を含むドロップダウン フォーム フィールドを表します。
1 つの FormField オブジェクトを返すには、FormFields (index) を使用します。index は、ドロップダウン フォーム フィールドに関連付けられたインデックス番号またはブックマーク名です。 FormField オブジェクトと共に DropDown プロパティを使用して、DropDown オブジェクトを取得します。 次の使用例は、作業中の文書で、ドロップダウン フォーム フィールドの最初の項目である "DropDown" を選択します。
ActiveDocument.FormFields("DropDown1").DropDown.Value = 1
インデックス番号は、 FormFields コレクション内のフォーム フィールドの位置を表します。 次の使用例は、作業中の文書で最初のフォーム フィールドの種類を調べます。 ドロップダウン フォーム フィールドである場合、2 番目の項目が選択されます。
If ActiveDocument.FormFields(1).Type = wdFieldFormDropDown Then
ActiveDocument.FormFields(1).DropDown.Value = 2
End If
次の使用例は、項目を追加する前に、ffield によって表されるフォーム フィールドが有効なドロップダウン フォーム フィールドであるかどうかを調べます。
Set ffield = ActiveDocument.FormFields(1).DropDown
If ffield.Valid = True Then
ffield.ListEntries.Add Name:="Hello"
Else
MsgBox "First field is not a drop down"
End If
追加 の使用 ドロップダウン フォーム フィールドを追加するのには、 FormFields コレクションを使用してメソッドです。 次の例では、作業中の文書の先頭にドロップダウン フォーム フィールドを追加し、フォーム フィールドに項目を追加します。
Set ffield = ActiveDocument.FormFields.Add( _
Range:=ActiveDocument.Range(Start:=0, End:=0), _
Type:=wdFieldFormDropDown)
With ffield
.Name = "Colors"
With .DropDown.ListEntries
.Add Name:="Blue"
.Add Name:="Green"
.Add Name:="Red"
End With
End With
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。