TextInput オブジェクト (Word)
1 つのテキスト ボックス フォーム フィールドを表します。
FormField オブジェクトを取得するには、FormFields (Index) を使用します。ここで、Index はテキスト フォーム フィールドまたはインデックス番号に関連付けられたブックマーク名です。 TextInput オブジェクトを取得するには、FormField オブジェクトで TextInput プロパティを使用します。 次の使用例は、作業中の文書の "Text1" という名前のテキスト ボックス フォーム フィールドの内容を削除します。
ActiveDocument.FormFields("Text1").TextInput.Clear
インデックス番号は、 FormFields コレクション内のフォーム フィールドの位置を表します。 次の使用例は、作業中の文書の最初のフォーム フィールドの種類を調べます。 フォーム フィールドがテキスト ボックス フォーム フィールドである場合、フィールドの値として "Mission Critical" を設定します。
If ActiveDocument.FormFields(1).Type = wdFieldFormTextInput Then
ActiveDocument.FormFields(1).Result = "Mission Critical"
End If
次の使用例は、文書の ffield が有効なテキスト ボックス フォーム フィールドを表すかどうかを調べてから、既定の文字列を設定します。
Set ffield = ActiveDocument.FormFields(1).TextInput
If ffield.Valid = True Then
ffield.Default = "Type your name here"
Else
MsgBox "First field is not a text box"
End If
テキスト フォーム フィールドを追加するには、FormFields オブジェクトで Add メソッドを使用します。 次の使用例は、作業中の文書の先頭にテキスト ボックス フォーム フィールドを追加し、フォーム フィールドの名前を "FirstName" に設定します。
Set ffield = ActiveDocument.FormFields.Add( _
Range:=ActiveDocument.Range(Start:=0, End:=0), _
Type:=wdFieldFormTextInput)
ffield.Name = "FirstName"
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。