Save PDF to different location based on choice user

[SjoisW]

I'm trying to build a macro that saves a word document to a pdf file, based on the choice of a user.

I have two questions:

1) is there a way to replace the inputbox by a dropdown menu where the user selects option 1 or 2?
2) the MsgBox doesn't give the location where the file is saved. What am I doing wrong?

Thank you for your help.

This is what I have:

Please Login or Register  to view this content.

[macropod]

1. Not unless you employ a userform.
2. OutputFileName is a property of ExportAsFixedFormat, not a variable. Thus it's not available outside that method. Try:

Please Login or Register  to view this content.

[SjoisW]

That works like a charm, thank you!

I changed it a bit to have a default value and a messagebox when not value 1 or 2 is chosen. Now, the While Wend is missing, I would like to return to the inputbox when the wrong value is typed.

[CODE][/Sub SaveAsPDF()
Dim StrName As String, sPrompt As String, Rsp As Variant

StrName = Split(ActiveDocument.Name, ".doc")(0) & ".pdf" 'huidige naam

sPrompt = "Waar moet het bestand opgeslagen worden?" _
& vbCr & "1. S:\ALGEMEEN\BRIEF" _
& vbCr & "2. S:\ALGEMEEN\MAILING"
Rsp = InputBox(sPrompt, "Keuzemenu", 1)

Select Case Rsp
Case 1: StrName = "T:\Joyce\1\" & StrName
Case 2: StrName = "T:\Joyce\2\" & StrName
Case Else: MsgBox "Kies 1 of 2"
Exit Sub
End Select

ActiveDocument.ExportAsFixedFormat OutputFileName:=StrName, _
ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, _
OptimizeFor:=wdExportOptimizeForPrint, Range:=wdExportAllDocument, _
From:=1, To:=1, Item:=wdExportDocumentContent, IncludeDocProps:=True, _
KeepIRM:=True, CreateBookmarks:=wdExportCreateNoBookmarks, _
DocStructureTags:=True, BitmapMissingFonts:=True, UseISO19005_1:=False
MsgBox "PDF opgeslagen in: " & StrName
End Sub

CODE]

[macropod]

You could reimplement the loop with:

Please Login or Register  to view this content.

In which case you also don't need:
Case Else: MsgBox "Kies 1 of 2"
The whole point of not having the loop, though, is so the user can exit the sub if they change their mind.