Makro ile Word Dosyasını Kendi Mevcut İsmi ile Pdf Çevirme

[SeÖzGü]

Merhaba;

Elimde sürekli kullandıgım Word dosyasını pdf çevirme kodu mevcut fakat belirlenen dosya adı ile kaydediyor bunu mevcut ismi ile kaydedilmesi mümkün mü?

Sub Macro1()
'
' Macro1 Macro
'
'
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
"C:\Users\ask\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
ChangeFileOpenDirectory "C:\Users\deneme\Desktop\"
End Sub

 

[Haluk]

Sub Test()
    Dim myPDF As String
    myPDF = Replace(ThisDocument.FullName, "docm", "pdf")
    ActiveDocument.ExportAsFixedFormat OutputFileName:=myPDF, ExportFormat:=wdExportFormatPDF
End Sub

.

 

[SeÖzGü]

Sub Test()
    Dim myPDF As String
    myPDF = Replace(ThisDocument.FullName, "docm", "pdf")
    ActiveDocument.ExportAsFixedFormat OutputFileName:=myPDF, ExportFormat:=wdExportFormatPDF
End Sub

.

Merhaba Üstadım
kırmızı renkli kısımda hata vermektedir

Sub Test()
Dim myPDF As String
myPDF = Replace(ThisDocument.FullName, "docm", "pdf")
ActiveDocument.ExportAsFixedFormat OutputFileName:=myPDF, ExportFormat:=wdExportFormatPDF
End Sub

 

[Haluk]

Word dokümanı makro içerdiğine göre, "docm" uzantılı olarak kaydettikten sonra kodu deneyin....

.

 

[SeÖzGü]

Word dokümanı makro içerdiğine göre, "docm" uzantılı olarak kaydettikten sonra kodu deneyin....

.

yine aynı yerde 'docm' olmasına rağmen hata veriyor


Sub Test()
Dim myPDF As String
myPDF = Replace(ThisDocument.FullName, "docm", "pdf")
ActiveDocument.ExportAsFixedFormat OutputFileName:=myPDF, ExportFormat:=wdExportFormatPDF
End Sub

 

[Haluk]

Hata mesajı nedir?

.

 

[SeÖzGü]

Hata mesajı nedir?

.

Microsoft Visual Basic
Run-time error '2147467259 (8000400 5)';
We can't save this file because it's read-only.
To keep your changes, you'll need to save the document with a new name or in a different location.

 

[SeÖzGü]

Konu Gülcel Olup çok Kıymetli yardımlarınızı rica ediyorum

 

[tukayf]

Zihninize sağlık Haluk Bey. Kod bende çalışıyor. Bu kodu tüm Word dosyalarında kullanmak ve kısayol olarak klavyeden çalıştırmak istiyorum. Daha önceleri yapmıştık bu işlemi ama şu an yapamadım.

 

[tukayf]

Sn. Haluk Bey. Verdiğiniz kodu tüm Word belgelerine uyguladığımda Sn. SeÖzGü'nün belirttiği hatayı bende alıyorum.

 

[Haluk]

"Tüm Word belgeleri" derken ne demek istiyorsunuz?

.

 

[tukayf]

Hocam makro kaydet ile oluşturulmuş ve oluşturulacak tüm Word belgelerinde bu kodu kullanabilmek için verdiğiniz kodu tüm belgeler Normal.dotm olarak kaydetmeye çalışıyorum.

 

[tukayf]

Hocam makro kaydet ile oluşturulmuş ve oluşturulacak tüm Word belgelerinde bu kodu kullanabilmek için verdiğiniz kodu tüm belgeler Normal.dotm olarak kaydetmeye çalışıyorum.

 

[tukayf]

ActiveDocument.ExportAsFixedFormat OutputFileName:= _
        "C:\Users\XXX\Desktop\qpak.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
    ChangeFileOpenDirectory "C:\Users\XXXX\Desktop\"

Hocam bu koddaki kaydetme yolunu, dosyanın bulunduğu konum ve dosya adı kısmını sizin koda göre uyarlayabilir misiniz. Bu kod normal şablon olarak kaydedilebiliyor ve hata vermiyor.

 

[Haluk]

Anladım, o zaman aşağıdaki revize edilmiş kodu kullanın ..... (docx, docm .... bütün uzantılarda çalışır)

Sub Test()
    'Haluk - 06/12/2019
    'sa4truss@gmail.com
    Dim myPDF As String, FSO As Object, docExt As String
    Set FSO = CreateObject("Scripting.FileSystemObject")
    docExt = FSO.GetExtensionName(ActiveDocument.FullName)
    myPDF = Replace(ActiveDocument.FullName, docExt, "pdf")
    ActiveDocument.ExportAsFixedFormat OutputFileName:=myPDF, ExportFormat:=wdExportFormatPDF
    Set FSO = Nothing
End Sub

 

[tukayf]

Müthişsiniz hocam. Allah sizden razı olsun. Cumanız mübarek olsun.

 

[Haluk]

Eyvallah, sağolun ...

.

 

[SeÖzGü]

Eyvallah, sağolun ...

.

Çok Ama Çok Teşekkürler Haluk Bey sorunsuz çalışmaktadır