Macro: How to get this macro to save to a specific location
Hi all! The macro below does a great job of saving a PDF (and overriding changes) to the same original location where the Word document lives, but how can I tell it to save to a specific location on my network?
The purpose of this would be to distribute the Word doc to colleagues in various departments and have them all save a PDF version of the working doc in a specific folder, each overriding a previous PDF:
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
Many thanks!
|