user formda, comboboxdan word belgesine veri aktarmak?..

[ulucd]

Arkadaşlar sorulara yeni bir boyut getireyim. Pek alışık olmayan birşey bu... Yardım edebilecek kimse varmıdır bilmem ama çok kişiye katkısı olacağını düşünüyorum.
Mesele şu: User form üzerinde bir butonum bir de combobox' ım var. Combo içindeki bilgileri, buton yardımı ile Word belgesine aktarmak istersem, bunu nasıl yapabilirim?

 

[alpi]

'Aşağıdaki Kodu Formun Kod blümüne kopyalayın Forma bir
'commandbutton ve bir combobox yerleştirin bahsettiğiniz işlem
'gerçekleştirilecektir.

Dim dosyaword As Object
Private Sub CommandButton1_Click()
dosyaword.Selection.TypeText (ComboBox1.Text) & vbLf
End Sub

Private Sub UserForm_Initialize()
Set dosyaword = CreateObject("word.application")
dosyaword.Documents.Open ThisWorkbook.Path & "\Word.doc"
dosyaword.Visible = True
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
dosyaword.Quit
Set dosyaword = Nothing
End Sub

'Önce Excel dosyanızı kaydedip dosyanın bulunduğu yere Word adında bir
'word dosyası oluşturmayı unutmayın.