Klasör içindeki bütün excel ve word dosyalarını PDF olarak kaydetme

[sbayyigit]

Merhaba Arkadaşlar;
Bir Klasörde ve alt klasörlerinde xls,xlsx,doc ve docx uzantılı word ve excel dosyalarım var. Buralardaki dosyalarımın tamamını .PDF formatında kaydetmek istiyorum.

Bu paylaşım sitesindeki arkadaşların verdiği kodlarla Bir excel dosyasına bütün bu klasör ve alt klasördeki xls,xlsx,doc ve docx dosyalarımı listeledim. yaklaşık 200 dosya var

Sub deneme()
Set s1 = Sheets("sayfa1")
sat = s1.[a500].End(3).Row
For a = 2 To sat
Range("A" & a).Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\xxxx\Desktop\pdf formatı\" & ActiveWorkbook.Name & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
Windows("dosyalar.xls").Activate
Next a
End Sub

kodları ile xls ve xlsx dosyalarımın hepsini bir klasöre pdf formatına çevirebiliyorum. ama word dosyalarına sıra gelince sorun oluyor.

bütün bu dosyaları tek tek açmadan farklı kaydetmenin başka bir yolu var mı?