Hi guys,

My Excel workbook currently opens a Word document and passes various data from Excel to text form fields in Word.

Does anyone know how I can dynamically create these text form fields via VBA? I want to search a range and create these text form fields for each item in the range.

Thanks in advance.

Hi,

Try this code
Sub InsertFormFields()
    Dim wdApp As Word.Application
    Set wdApp = New Word.Application
    wdApp.Documents.Add
    wdApp.Visible = True
    ' Insert TextBox
    wdApp.Selection.FormFields.Add Range:=wdApp.Selection.Range, Type:= _
        wdFieldFormTextInput
    wdApp.Selection.TypeParagraph
    ' Insert CheckBox
    wdApp.Selection.FormFields.Add Range:=wdApp.Selection.Range, Type:=wdFieldFormCheckBox
    wdApp.Selection.TypeParagraph
    ' Insert DropDown
    wdApp.Selection.FormFields.Add Range:=wdApp.Selection.Range, Type:=wdFieldFormDropDown
End Sub

-vemaju