Convert Word to PDF using VBA
Word 2007 has a new method - Document.ExportAsFixedFormat, which saves the document as PDF or XPS format
The following code will save the current document as PDF in the same path
Sub Convert_2_PDF()
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
ActiveDocument.Path & "\" & ActiveDocument.Name & ".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
Posts
consider replacing ActiveDocument.Name
ReplyDeletewith Left(ActiveDocument.Name, _
Len(ActiveDocument.Name) - 5) or Left(ActiveDocument.Name, _
Len(ActiveDocument.Name) - 4)
to remove .DOCX or .DOC from before .PDF in the output name, respectively
Thanks for sharing, very useful!
ReplyDeleteI need something for converting back to word from PDF. So far I have been using this one:
http://www.pdftodocconverterpro.com
Is there anything else that you would recommend?
Thanks Michael Kuzmin. This would be of good help
ReplyDeleteI tried pasting the vba code into a module into a word document and then running it. I get an "Can't execute code in break mode" error. Any suggestions.
ReplyDeleteIt is working now. I copied as is and here are spaces between each line and that is the reason why it was not working.
ReplyDeleteApologies Maka, the spaces were intended for brevity
ReplyDeleteExtremely sorry for the time and effort you have put on this
This works great but how do it get it to do a Save As so that I can use the doc as a template and save it as a different name. I am using a blank template and save the template as different names, want to be able to type in a name in the Save As window.
ReplyDeleteI have been looking for something like this to generate PDFs without the prompting. I stumbled across this and should be able to use it in code to generate individual PDFs from a mail merged template.
ReplyDeleteYour a saint!
Hi !
ReplyDeleteI used the routine. It works well. But my problem is the directory where to save the document. The user should be able to change it. So it would be better to use the dialog "wdDialogExportAsFixedFileFormat".
Can I preselect the path / directory and the filename for the dialog?
I used the FileSaveAs Dialog and there it was possible to use '.Name = "abc"' and so on. But the export-dialog doesn't accept it.
I haven't found an example code yet. Does anybody know how it works?
Thanks
VBAlex
Nice!! it really help me..
ReplyDeleteMay I know how to convert powerpoint into pdf?
I tried using the same method but failed to do it.
Any advise?
Thanks in advanced..