Birden fazla word belgesinin çıktısını alma

[redevil84]

Kolay gelsin..

Elimde bir dosya üzerinde farklı farklı kaydedilmiş cok sayıda word belgesi mevcut. Hepsinin çıktısını almam gerekiyor. Fakat takdir edersiniz teker teker hepsinin çıktısını almak uzun ve çok zahmetli bir iş. Eminim word bu konuda da bizlere bi klaylık sağlamıştır..Yardımcı olabilirseniz sevinirim..

Sitede arama yaptım ama konuyla herhangibir veriye rastlamadım..

Herkese iyi forumlar..

 

[leumruk]

Merhaba,
Tüm word belgelerinizi açmadan seçin. Sağ tıklayın ve yazdır komutunu çalıştırın.

 

[redevil84]

@leumruk

Dediğiniz yolu denedim. Maalesef sağ tıklayınca öyle bir seçenek çıkmıyor. Excelde çıkıyor ama wordde öyle bir secenek yok..

 

[leumruk]

@leumruk

Dediğiniz yolu denedim. Maalesef sağ tıklayınca öyle bir seçenek çıkmıyor. Excelde çıkıyor ama wordde öyle bir secenek yok..

Merhaba,
Denemiş çıktı almış ve sonrasında önermiştim; ama yok diyorsanız yoktur.

 

[redevil84]

Merhaba,
Denemiş çıktı almış ve sonrasında önermiştim; ama yok diyorsanız yoktur.

Şİmdi yine denedim. 10-15 kadar belgede uygulayınca dediğiniz gibi işe yarıyor. Ancak daha fazla belgede deneyince olmadı..İlginiz için teşekkürler

 

[tukayf]

takip ediyorum.

evet belli bi sayıda word belgesi yazdırılabiliyor. Bunun sebebini bende çözemedim. Özelikle farklı sürümlerde ki belgelerde daha çok sorun çıkıyor çözümünü bulamadım. konuyu yakından takip edeceğim.

 

[leumruk]

Bir excel dosyasına makro yazarak çözülebilir. İlk fırsatta bir kodlama hazırlayıp ekleyeceğim.

 

[leumruk]

Merhaba,
Ekteki excel dosyasını kullanarak belirttiğiniz adresteki word dosyalarını yazdırabilirsiniz.

Sub yazdir()
Set shl = CreateObject("Shell.Application")
Set kls = shl.BrowseForFolder(0, "Lütfen bir klasör seçiniz!", 0)
If kls Is Nothing Then
Exit Sub
Else
yol = kls.self.Path
End If
Dosya = Dir$(yol & "\*.doc*", vbHidden + vbSystem)
If Dosya <> "" Then
Set wd = CreateObject("word.Application")
wd.Visible = True
End If
Do While Dosya <> ""
wd.documents.Open yol & "\" & Dosya
wd.activedocument.PrintOut
wd.activedocument.Close
Dosya = Dir()
If Dosya = "" Then wd.Application.Quit
Loop
MsgBox "İşlem tamam.", vbInformation, "l e u m r u k"
End Sub