Word dosyasını PDF olarak farklı kaydet

[tamer42]

Merhabalar,
Excel ortamında bir word dosyasını açıp "PDF" olarak kaydetmek için aşağıdaki kodu oluşturdum ama hata veriyor,
hatanın nedenini bulamadım

yardımcı olabilir misiniz,
desteğiniz için şimdiden teşekkürler.

iyi çalışmalar.

Sub WordToPDF()
    Dim n As Long
    Dim strPath As String
    Dim TheFile As String
    Dim PathFile As String
    Dim NewFile As String
    Dim SaveName As String
    Dim objWord
    Dim objDoc
    Dim objSelection
    
    strPath = ThisWorkbook.Path & "\Docs\"

        TheFile = "Sablon.docx"
        PathFile = strPath & TheFile
        NewFile = "Sablon"

        Set objWord = CreateObject("Word.Application")
        Set objDoc = objWord.Documents.Open(PathFile)

        objWord.Visible = True


                SaveName = strPath & NewFile & ".pdf"

        objWord.ActiveDocument.ExportAsFixedFormat2 SaveName, wdExportFormatPDF, BitmapMissingFonts:=False
    

objWord.ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
objWord.Quit
        
End Sub

 

[ÖmerBey]

Merhaba,
ExportAsFixedFormat2 buradaki 2 fazla gibi.
Bir de Excel üzerinden çalıştırınca wdExportFormatPDF değeri boş veri döndürüyor. Word'de baktım 17'ye tekabül ediyor. Bu ifade yerine 17 yazıp deneyiniz. Ya da öncesinde değer ataması yapabilirsiniz.

 

[Korhan Ayhan]

Ofis 365 sürümünde MAKRO KAYDET ile aşağıdaki kodları elde ettim..

Option Explicit

Sub Macro1()
    ActiveDocument.ExportAsFixedFormat OutputFileName:= _
        "C:\Admin\Desktop\Deneme.pdf", _
        ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
        wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
        Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
        CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
        BitmapMissingFonts:=True, UseISO19005_1:=False
End Sub

 

[tamer42]

Merhaba,
ExportAsFixedFormat2 buradaki 2 fazla gibi.
Bir de Excel üzerinden çalıştırınca wdExportFormatPDF değeri boş veri döndürüyor. Word'de baktım 17'ye tekabül ediyor. Bu ifade yerine 17 yazıp deneyiniz. Ya da öncesinde değer ataması yapabilirsiniz.

teşekkürler Ömer Hocam