bağ yapıştırile verileri girilen sayfaları tekseferde yazdır

[siyar0044]

arkadaşlar benim yaptığım şey bir yeni klasör içerisinde topladığım word dökümanlarını yine aynı klasör içerisinde bulunan excel sayfası aracılığı ile bağ yağıştır yöntemi ile otomatik olarak değiştiriyorum (verileri excele giriyorum sabit değişkenleri otomatik olarak değiştiriyorum) yaklaşık olarak bu word belgelerinin sayısı 15 civarında ben bunları tek seferde hepsini birden yazdıra bilirmiyim eğer oluyorsa naıl olacağı konusunda yardımcı olursanız sevinirim

 

[omerceri]

Bir şeyler yapmaya çalıştım.
Aşağıdaki kodu excele yapıştırın.
Word dosyalarının kapalı olması gerekiyor.
Sub ss()
Set fs = Application.FileSearch
With fs
.LookIn = "Dosyalarınızın bulunduğu klasörün tamyolu"
.Filename = "*.doc"
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
dosya = .FoundFiles(i)
Dim appWD As Word.Application
Set appWD = CreateObject("Word.Application")
appWD.Application.Documents.Open (dosya)
'appWD.Application.Visible = True
appWD.Application.ActiveDocument.PrintOut
appWD.Application.Quit
Set appWD = Nothing
Next i
Else
MsgBox "There were no files found."
End If
End With
Set fs = Nothing

End Sub

 

[siyar0044]

sayınömer çeri elinize sağlık ancak verdiğiniz kodu denedim çalıştıramadım bir tane commad butonu oluşturdum verdiğiniz kodu verdim ama yazıcıdan çıktı alamadım tekrar baka bilirseniz sevinirim

 

[omerceri]

Kusura bakmayın.
Not olarak yazmayı unutmuşum.
Kod sayfası açıkken yukarıdaki menülerden
Tools'a tıklayın,
çıkan seçeneklerden
References'i seçin,
yine çıkan listeden
Microsoft Word 10.0 Object Library veya Microsoft Word 11.0 Object Library'i
bulup işaretli hale getirin.

 

[siyar0044]

sayın ömer çeri gönderdiğiniz makro için teşekkür ederim.
ancak dosya bulunamadı diye hata veriyor. ne yapabiliriz acaba

 

[veyselemre]

[vb:1:2da06d7a6b]Sub deneme()
'file = C:\Documents and Settings\casper\Desktop\ihale giriş\TEKNİK PERSONEL TAAHHÜTNAME2.doc"

file = ThisWorkbook.Path & "\TEKNİK PERSONEL TAAHHÜTNAME2.doc" 'excel dosyası ve word dosyası aynı
'klasörde ise böyle kullanabilirsiniz.

If Dir(file) <> "" Then
Dim appWD As New Word.Application
appWD.Documents.Open (file)
appWD.Visible = True
'*****Bu kısımda excel dosyasındaki worde bağlantı yapılan
'bilgiler güncellenecek ve word dosyası yazdırılacak

For X = 1 To [A65536].End(3).Row ' BURDA A Sütununda değiştirilecek veriler olduğu düşünülmüştür.
Cells(1, 2) = Cells(X, 1) 'Örnek olarak word dosyasına bağ olarak yapıştırılan
'B1 hücresine A sütunundan veriler aktarılıyor

appWD.Application.ActiveDocument.PrintOut

Next X
'*************************
appWD.Application.Quit
Set appWD = Nothing
End If

End Sub[/vb:1:2da06d7a6b]

 

[tamer42]

Merhabalar;

Microsoft Word 11.0 Object Library ' i işaretli hale getirdim.
Bu kodu çalıştırmak istediğmde aşağıdaki hata mesajını veriyor.

Automation Error
Library Not Registered


Neden olur?

İyi Çalışmalar.