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

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

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

Merhaba, önceki mesajımda belirttiğim kodun örneğe uygulanmış hali ektedir.

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.

Merhaba, ekli örneği inceleyiniz.

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