また、フィールドのブックマークの名前を変更すると便利です(デフォルトでは「Text1」と呼ばれます)。
このような?
Sub Sample()
Dim ff As FormField
ActiveDocument.Bookmarks("Loan_Amount").Select
Set ff = ActiveDocument.FormFields.Add(FFHere, wdFieldFormTextInput)
ff.Name = "BlahBlah"
End Sub
そして、これはテキストフィールドを挿入するがそれを日付フィールドに変更する例です
Sub Sample()
Dim ff As FormField
Set ff = ActiveDocument.FormFields.Add(FFHere, wdFieldFormTextInput)
ff.Select
With Selection.FormFields(1)
'~~> Change Name Here
.Name = "BlahBlah"
'~~> Change Type here
With .TextInput
.EditType Type:=wdCurrentDateText, Default:="", Format:=""
.Width = 0
End With
End With
End Sub
あなたがそれを変えることができる他のタイプは
wdCurrentDateText
wdCalculationText
wdCurrentTimeText
wdDateText
wdNumberText
(これはあなたの質問が要求したものです)
注FFHere
:それは有効な範囲であると想定しています