Kısa Açıklama
Alt klasördeki word dosyaları pdf isimli başlıkta, ilgili işlemlere dair detaylar yer almaktadır.- Excel Versiyonu
- Excel 2016
- Excel Sürümü
- 64 Bit
- Excel Dili
- Türkçe
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
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