+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Doc Ve Docx Uzantılı Dosyayı Pdf Formatına Dönüştürme (/konu-doc-ve-docx-uzantili-dosyayi-pdf-formatina-donusturme.html)
Doc Ve Docx Uzantılı Dosyayı Pdf Formatına Dönüştürme - husem - 01/10/2019
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 SubCvp: Doc Ve Docx Uzantılı Dosyayı Pdf Formatına Dönüştürme - ozanakkaya - 01/10/2019
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 SubCvp: Doc Ve Docx Uzantılı Dosyayı Pdf Formatına Dönüştürme - ozanakkaya - 01/10/2019
Merhaba, önceki mesajımda belirttiğim kodun örneğe uygulanmış hali ektedir.
Cvp: Doc Ve Docx Uzantılı Dosyayı Pdf Formatına Dönüştürme - husem - 02/10/2019
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.
Cvp: Doc Ve Docx Uzantılı Dosyayı Pdf Formatına Dönüştürme - ozanakkaya - 02/10/2019
Merhaba, ekli örneği inceleyiniz.
Cvp: Doc Ve Docx Uzantılı Dosyayı Pdf Formatına Dönüştürme - husem - 02/10/2019
sn ozanakkaya, çok teşekkür ederim. denedim çalışıyor. yardımın için çok sagol.
iyi çalışmalar