- Katılım
- 11 Mart 2005
- Mesajlar
- 3,201
- Excel Vers. ve Dili
- Office 2013 İngilizce
Merhaba,
Bir klasör içindeki tüm PDF dosyalarını;
Aşağıdaki kod ile Word' de pdf olarak açtıktan sonra; word dosyası olarak kayıt edebiliyoruz;
oluşan her bir word dosyasını excel dosyası olarak kaydedecek makro kodunu nasıl oluşturabiliriz?
PDF dosyası ekli görselde görüleceği üzere tablo yapısına yakın bir formatta;
teşekkürler,
iyi Çalışmalar.
Bir klasör içindeki tüm PDF dosyalarını;
Aşağıdaki kod ile Word' de pdf olarak açtıktan sonra; word dosyası olarak kayıt edebiliyoruz;
oluşan her bir word dosyasını excel dosyası olarak kaydedecek makro kodunu nasıl oluşturabiliriz?
PDF dosyası ekli görselde görüleceği üzere tablo yapısına yakın bir formatta;
teşekkürler,
iyi Çalışmalar.
Kod:
Sub PDF_To_Word()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Sayfa2")
Dim fso As New FileSystemObject
Dim i As Integer
Dim fo As Folder
Dim f As file
Dim wordApp As New Word.Application
Dim wordDoc As Word.Document
Dim objPic As InlineShape
Dim PDF_path As String
Dim Word_path As String
myPath = ThisWorkbook.Path
PDF_path = myPath & "\PDF"
Word_path = myPath & "\Word"
wordApp.Visible = True
Set fo = fso.GetFolder(PDF_path)
For Each f In fo.Files
Set wordDoc = wordApp.Documents.Open(f.Path)
For Each objPic In ActiveDocument.InlineShapes
objPic.Delete
Next objPic
wordDoc.SaveAs2 (Word_path & "\" & Replace(f.Name, ".pdf", ".doc"))
wordDoc.Close False
Next f
End Sub
