Microsoft Office Forums - View Single Post - [Solved] Using combobox to pass data from an Excel spread sheet to text boxes on userform

macropod · 12-15-2015, 06:00 PM

In that case, you should be able to create a new document & populate the formfields using code like:

Code:

Dim wdApp As Object, wdDoc As Object
On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
If wdApp Is Nothing Then
  Set wdApp = CreateObject("Word.Application")
End If
On Error GoTo 0
With wdApp
  Set wdDoc = .Documents.Add("template path & name")
  With wdDoc
    .Formfields("EmployID").Result = Me.cboID.Value
    .Formfields("FName").Result = Me.txtFName.Value
    .Formfields("GName").Result = Me.txtGName.Value
    .Formfields("DOB").Result = Me.txtDOB.Value
  End With
End With

Formfields named as EmployID, FName, GName & DOB are assumed.