Alt klasördeki word dosyaları pdf

[1903emre34@gmail.com]

Merhaba,

Hedef klasör seçerek, klasör içerisindeki alt dosyaların içerisinde tüm word dosyalarını otomarik PDF' ye çevirecek makro konusunda yardımcı olabilir misiniz



Aşağıdaki kod, alt klasör içerisinde yer alan word dosyaları pdf çeviriyor, dosya sayısı birden fazla olduğu için çok zaman alıyor, (her bir alt klasör içerisinde olması lazım)

Sub pdf_dosyasi_yap()

Application.ScreenUpdating = True
Application.DisplayAlerts = True

Yol = ThisWorkbook.Path

Dim fL As Object
Set fL = CreateObject("Scripting.FileSystemObject")

For Each dosya In fL.getfolder(Yol).Files

Uzanti = LCase(fL.GetExtensionName(dosya.Name))
dosya_adi = fL.GetBaseName(dosya)

If Uzanti = "doc" Or Uzanti = "docx" Then

Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Set wrdApp = CreateObject("Word.Application")
wrdApp.Documents.Open (dosya)
wrdApp.Visible = True
say = CreateObject("Scripting.FileSystemObject").getfolder(Yol).Files.Count + 1
wrdApp.ActiveDocument.ExportAsFixedFormat OutputFileName:=Yol & "\" & say & " " & dosya_adi & ".pdf", ExportFormat:=wdExportFormatPDF

wrdApp.Quit False
Set wrdApp = Nothing

End If
atla:

Next

Set fL = Nothing
MsgBox "işlem tamam"
End Sub