Doc Ve Docx Uzantılı Dosyayı Pdf Formatına Dönüştürme

01/10/2019, 22:27

husem

merhaba kolay gelsin.
Doc Ve Docx  Uzantılı Dosyayı accessde buton ile Pdf Formatına nasıl dönüştürebilirim acaba.
aşağıdaki kod ile yapmaya çalıştığımda pdfCreator ekranını açıyor. bu ekranı açmadan dönüştürmesini istiyorum.

Private Sub pdfyap_Click()
Dim WordApp As Word.Application
Dim AYol As String
AYol = "D:\Çubuk.doc"
Application.FollowHyperlink AYol, , False
On Error Resume Next
Set WordApp = GetObject(, "Word.Application")
On Error GoTo ErrHandler
WordApp.Documents.Open (AYol)
WordApp.Visible = False
WordApp.WindowState = wdWindowStateMaximize
ActivePrinter = "PDFCreator"
Word.Application.PrintOut FileName:=AYol
Set WordApp = Nothing
Exit Sub
ErrHandler:
Set WordApp = Nothing
End Sub



01/10/2019, 23:06

ozanakkaya

Aşağıdaki kodu dener misiniz?



Sub SaveAsPDF()

    Dim strFileName As String
    Dim WordApp As Word.Application

    strpath = "F:\PDF Files\"
    strFileName = "test.docx"


    Set WordApp = CreateObject("Word.Application")
    WordApp.Documents.Open strpath & strFileName
           
'  remove .doc or .docx from filename
    If UCase(Right(ActiveDocument.name, 1)) = "X" Then
'      .docx
        strFileName = Left(ActiveDocument.name, Len(ActiveDocument.name) - 5)
    Else
'      .doc
        strFileName = Left(ActiveDocument.name, Len(ActiveDocument.name) - 4)
    End If

'  write the PDF file
    WordApp.ActiveDocument.ExportAsFixedFormat _
            OutputFileName:=ActiveDocument.Path & "\" & strFileName & ".pdf", _
            ExportFormat:=wdExportFormatPDF, _
            OpenAfterExport:=False, _
            OptimizeFor:=wdExportOptimizeForPrint, _
            Range:=wdExportAllDocument, _
            Item:=wdExportDocumentContent, _
            IncludeDocProps:=True, KeepIRM:=True, _
            CreateBookmarks:=wdExportCreateNoBookmarks, _
            DocStructureTags:=True, _
            BitmapMissingFonts:=True, _
            UseISO19005_1:=False

    WordApp.Quit
    Set WordApp = Nothing

'  all done
    MsgBox "PDF complete"

End Sub
01/10/2019, 23:36

ozanakkaya

Merhaba, önceki mesajımda belirttiğim kodun örneğe uygulanmış hali ektedir.
02/10/2019, 00:15

husem

ilk denememizde bu kod ile pdf formatına dönüştürüyor. fakat başka bir dosyayı da pdf formatına dönüştürmek istendiğinde yapmıyor.
dönüştürülmek istenen doc uzantılı dosyayı açıp kapatmak gerekiyor. çünkü doc uzantılı dosyanın adı da değiştirilemiyor. dosyanın açık  olduğunu söylüyor.
02/10/2019, 17:27

ozanakkaya

Merhaba, ekli örneği inceleyiniz.
02/10/2019, 21:45

husem

sn ozanakkaya, çok teşekkür ederim. denedim çalışıyor. yardımın için çok sagol.
iyi çalışmalar