Hello there,
I need to be able to save all documents in a specified folder, while retaining those documents original file names.
Note: I read previously where someone was having issues with emailing the saved pdfs thereafter, but wasn't able to figure out what was done to correct that issue. As I haven't gotten to that point yet, I am not certain about the issue with emailing the pdfs after the fact, but I can say that I will need to be able to email the pdf documents after they have been saved/converted from another doc type
Code:
Code:
Sub AcceptSave()
'
' AcceptSave Macro
'
'
ActiveDocument.AcceptAllRevisions
ActiveDocument.TrackRevisions = False
Application.Run MacroName:="Silent_save_to_PDF"
ActiveDocument.Save
End Sub
Sub Silent_save_to_PDF()
'
' Silent_save_to_PDF Macro
'
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
Replace(ActiveDocument.FullName, ".docx", ".pdf"), _
ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
wdExportOptimizeForPrint, Range:=wdExportAllDocument, Item:= _
wdExportDocumentContent, IncludeDocProps:=False, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=False
End Sub
Thank you.