Excel Userform ile Word'e Bilgi Aktarma

[yerbakili]

Forumda @leumruk'un diğer arkadaşlara yardım ettiği konulardan elde ettiğim kodlarla kendi yapmak istediğim çalışmayı düzenledim. Ancak nedenini bilmediğim bir şekilde hata almaktayım. Hata, object required. Kodlar aşağıdaki gibi.

Yapmak istediğim, excelden açılan bir userform ile ekrana gelen alanları doldurup Kaydet butonuna bastığımda, excel dosyam ile aynı klasörde bulunan sablon.doc isimli word dosyası açılacak ve yerimi olarak kaydettiğim yerlere, userforma girdiğim bilgiler aktarılacak. Ama şu anlık olmuyor.

ActiveDocument.Bookmarks(y_imi(x)).Range.Select

Yukarıdaki koda geldiğinde hata alıyorum.

Private Sub CommandButton1_Click()
y_imi = Array("sayi_no", "adi_soyadi", "tarih", "olay", "durumu")
Deg = Array(sayi_no.Value, adi_soyadi.Value, tarih.Value, olay.Value, durumu.Value)
yol = ThisWorkbook.Path
Set wd = CreateObject("word.Application")
wd.Visible = True
wd.Application.Documents.Open yol & "\" & "sablon.doc" 'sablon dosyasını açan komut
For x = 0 To 4
ActiveDocument.Bookmarks(y_imi(x)).Range.Select
Selection = Deg(x)
ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:=y_imi(x)
Next
Set WDDoc = wd.ActiveDocument
WDDoc.SaveAs yol & "\" & "yazdır" & ".doc" 'sablon dosyasını yazdır olarak kaydetmeye yareyen satır
End Sub

Sanırım sıkıntı "ActiveDocument" nesnesinde.

 

[leumruk]

Merhaba,
Kodu aşağıdaki şekilde kullanın.

Private Sub CommandButton1_Click()
y_imi = Array("sayi_no", "adi_soyadi", "tarih", "olay", "durumu")
Deg = Array(sayi_no.Value, adi_soyadi.Value, tarih.Value, olay.Value, durumu.Value)
yol = ThisWorkbook.Path
Set wd = CreateObject("word.Application")
wd.Visible = True
wd.Application.Documents.Open yol & "\" & "sablon.doc" 'sablon dosyasını açan komut
For x = 0 To 4
wd.ActiveDocument.Bookmarks(y_imi(x)).Range.Select
wd.Selection = Deg(x)
wd.ActiveDocument.Bookmarks.Add Range:=wd.Selection.Range, Name:=y_imi(x)
Next
Set WDDoc = wd.ActiveDocument
WDDoc.SaveAs yol & "\" & "yazdır" & ".doc" 'sablon dosyasını yazdır olarak kaydetmeye yareyen satır
End Sub

 

[yerbakili]

Merhaba,
Kodu aşağıdaki şekilde kullanın.

wd eklemesi yapmadığım için olmuş. Çok teşekkürler yardımınız için. On numara oldu sayenizde.

 

[yerbakili]

Bir şey daha sorabilir miyim?

Aktif word dosyasını Harddiskin D bölümüne farklı kaydediyorum. Farklı kaydet yaptırdığım için aktif word dosyası arkaplanda açılıyor. Bunu arkaplandan ön plana getirmem için ne yapmam gerekiyor acaba?

+

Aşağıdaki hatayı neden alıyor olabilirim?

 

[mrcylmz_61]

mustafa bey kusura bakmayın çözdüğünüz bir konu bu ama ben uygulamada sorun yaşıyorum dosyaları nereye kaydeceğiz , benim excelde 50 satır verim var bu programı ona nasıl uyarlayabilirim bu konularda yardımcı olmanız mümkün olur mu??