Word Dosyalarını Toplu PDF'ye Çevirmek

[baysevimli]

Merhaba Arkadaşlar,

İçinde bulunduğu klasördeki (Hedef klasör seçtirmeyecek) tüm word dosyalarını otomarik PDF' ye çevirecek bir makro arıyorum. Yardımcı olabilir misiniz ?

Teşekkür ederim.

 

[halit3]

Aşağıdaki linki irdeleyiniz.
http://www.excel.web.tr/f48/word-dosyalaryny-pdfye-evirme-t160201.html

 

[baysevimli]

Halit bey teşekkür ederim.

Ancak bu kodda ufak bir değişiklik rica edeceğim.

Kodda hedef klasör belirlemek istemiyorum. Ben istiyorum ki bu kodun yer aldığı excel dosyası hangi klasörde ise o klasördeki tüm dosyaları pdf ye çevirsin çünkü hedef klasör sürekli değişiyor.

 

[halit3]

kod:

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

 

[baysevimli]

Halit bey makroyu çalıştırınca"User-defined type not defined" hatası aldım.

 

[halit3]

Halit bey makroyu çalıştırınca"User-defined type not defined" hatası aldım.

referanslar
Microsoft Word 12.0 Object Library

olmalı

 

[baysevimli]

Halit bey çalıştı teşekkür ederim. Son bir problem var. Klasör masaüstümde iken makro çevirip aynı klasöre pdf leri atıyor ancak server da ki bir klasörde makro çalışıyor ama pdf leri çevirmiyor

 

[halit3]

Halit bey çalıştı teşekkür ederim. Son bir problem var. Klasör masaüstümde iken makro çevirip aynı klasöre pdf leri atıyor ancak server da ki bir klasörde makro çalışıyor ama pdf leri çevirmiyor

Bu konuda bir şey diyemiyeceğim serverdeki klasörlerle ilgili kısıtlama olabilir veya izinlerle ilgili bir şeyler olabilir

 

[RBozkurt]

kod:

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

@halit3 ustam merhaba.
Makronuz çalışıyor. Problem yok.

Excel dosyasının olduğu dizindeki word dosyalarını aynı dizine aynı isimle kaydediyor.
Bu işlemi dosyaları browse yöntemiyle seçtirerek yapabilir miyiz? Teşekkür ederim.