Help with Macro to Save Word File as PDF in Specific Location

gmayor · #2 06-07-2017, 10:40 PM

The following will save to the current user's desktop. Note that you should be using the document's name not the fullname, which includes the path. Where the document has not been saved, the PDF will be saved as Documentn.pdf

Code:

Sub Print1()
'
' Silent Save_to_PDF Macro
Dim strPath As String
Dim strName As String
    strPath = Environ("USERPROFILE") & "\Desktop\"
    strName = Replace(ActiveDocument.Name, ".docx", ".pdf")
    ActiveDocument.ExportAsFixedFormat _
            OutputFileName:=strPath & strName, _
            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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to check the existence of a word docx file and create a new word file with specific content.	staicumihai	Word VBA	14	11-15-2016 01:42 AM
Macro: How to get this macro to save to a specific location	LOUF	Word VBA	1	12-07-2015 06:47 PM
How do I save a Word file with a macro for distribution?	leemoreau	Word VBA	3	10-04-2013 08:06 AM
A newbie question: a must to save macro word file as .docm?	tinfanide	Word VBA	6	12-06-2011 03:02 PM
Word Macro: Save file as text with current file name	jabberwocky12	Word VBA	2	10-22-2010 12:23 PM