Enviando Info do VBA Excel para o Word

[RicCurto]

Num determinado UserForm no Excel inseri algumas informações que quero que sejam enviadas ao meu banco de dados no excel, e tambem completem um texto no word.

O Doc do Word está previamente criado e restando apenas completar com as informações do UserForm.

Alguém pode me ajudar com a construção do comando?

[RicCurto]

Postei aqui como ultima possibilidade de conseguir resolver meu problema, mas logo após consegui fazer o comando, segue a minha solução para quem mais precisar:

Private Sub CommandButton5_Click()

On Error Resume Next

Set wdApp = GetObject(, "Word.Application")

If Err.Number <> 0 Then

Set wdApp = CreateObject("Word.Application")

End If

On Error GoTo 0

Set wd = wdApp.Documents.Open("F:\4ª Seção\Autorização de Abastecimento.doc")

wdApp.Visible = True

wd.FormFields(1).Result = TextBox1.Value

wd.FormFields(2).Result = TextBox2.Value

wd.FormFields(3).Result = ComboBox1.Value

wd.FormFields(4).Result = ComboBox2.Value

wd.FormFields(5).Result = TextBox3.Value

wd.FormFields(6).Result = ComboBox3.Value

wd.FormFields(7).Result = TextBox4.Value

If OptionButton1 = True Then wd.FormFields(8).Result = "Gasolina"

If OptionButton2 = True Then wd.FormFields(8).Result = "Óleo Diesel"

wd.FormFields(9).Result = TextBox5.Value

End Sub