Save all docs to pdf in specified folder

loki005 · #1 10-25-2018, 11:20 AM

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.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Run macro to save multiple word docs and xml	Prateep Nath	Word VBA	1	02-05-2018 02:52 PM
Macro to save as pdf with ability to choose save as folder	rvessio	Word VBA	4	07-25-2016 12:37 PM
Import a specific range (bookmarked section) from all Word docs in a selected folder	Greengecko	Word VBA	5	06-14-2016 07:54 AM
Word always brings up 'Save As' dialogue when I try to Save - same for all Word docs	stuartb	Word	1	08-18-2014 12:26 PM
HELP: Microsoft Office won't save docs.	Pjbarasi	Word	1	01-18-2012 04:57 PM