View Single Post
 
Old 12-07-2015, 04:50 PM
LOUF LOUF is offline Windows 7 64bit Office 2013
Novice
 
Join Date: Dec 2015
Location: California
Posts: 1
LOUF is on a distinguished road
Default 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!
Reply With Quote