Macro to save as pdf with ability to choose save as folder

macropod · #2 05-31-2011, 02:36 AM

Hi rvessio,

Try:

Code:

Sub SaveToPDF()
With ActiveDocument
  .ExportAsFixedFormat OutputFileName:=GetFolder & "\" & Split(.Name, ".")(0) & ".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 With
End Sub
 
Function GetFolder() As String
Dim oFolder As Object
GetFolder = ""
Set oFolder = CreateObject("Shell.Application").BrowseForFolder(0, "Choose a folder", 0)
If (Not oFolder Is Nothing) Then GetFolder = oFolder.Items.Item.Path
Set oFolder = Nothing
End Function

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to save as PDF but with a different name	shabbaranks	Word VBA	2	05-20-2011 01:02 AM
Macro to Save Help	clarkson001	Word	0	02-14-2011 06:41 AM
Does not SAVE AS to default folder	pleveque	Office	0	01-13-2011 08:34 AM
Macro Won't Save	lou0915	Word VBA	2	10-17-2009 08:13 PM
How can I save multiple email messages to a file folder? (crosspost)	tupham	Outlook	0	08-04-2008 07:56 PM