Word 07 macro to save Doc as PDF - TechRepublic
General discussion
February 24, 2010 at 02:47 PM
tobnull

Word 07 macro to save Doc as PDF

by tobnull . Updated 16 years, 4 months ago

I have this macro written in Word 07:

Sub Convert_2_PDF()

ActiveDocument.ExportAsFixedFormat OutputFileName:= _
ActiveDocument.Path & “\” & Left(ActiveDocument.Name, _
Len(ActiveDocument.Name) – 5) & “.pdf”, ExportFormat:= _
wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
wdExportOptimizeForPrint, Range:=wdExportAllDocument, _
Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=False

End Sub

It works fine except that I want it to prompt me to Save As. Currnetly it saves the Template under the same name as a .pdf file, but I want it to give me the Save As window so I can give it a different name.
Any suggestions?

This discussion is locked

All Comments