I have the following code that I recorded with the macro recorder.



I would like to save the file in this location but put use the input box to insert the file name. How do I incorporate the input box in the macro. It's been awhile for me doing this so I'm kinda rusty.

Sub Save_To()
'
' Save_To Macro
'
'
Dim Name As String

InputBox "Enter name", "file" = Name

ActiveDocument.ExportAsFixedFormat OutputFileName:= _
"P:\My Documents\Excel\Stock Information\Good Files\PDF\Name.pdf" _
, ExportFormat:=wdExportFormatPDF, OpenAfterExport:=True, OptimizeFor:= _
wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=False
ChangeFileOpenDirectory _
"P:\My Documents\Excel\Stock Information\Good Files\PDF\"
End Sub

I inserted Name in the path way but I get an error message at this point. The name of the file is showing up as Name but I would like to enter the name in the input box and transfer this into the directory.

Thank you for your help,

Michael

Is there a reason for not using SaveAs, or the FileSave dialogue? That said, you could use:

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

this isi great thank you. I just used the macro recorder but I didn't look at the code (I'm kinda on a deadline).

Thank you for cleaning it up and making it better.

Michael

Of course, you could use:
instead of the code in post #2.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

I like that , what does this statement do - with the showing of the dialog?

By the way, every time I save a file Microsoft Ege keeps popping up trying to display the PDF document (which never happens, the new tab always remains blank).

I can see the PDF in google or adobe but not Microsoft Edge.

I really don't want to see the PDF's after they're saved. Is there a way of preventing Microsoft Edge from being activated every time I save a word document to a PDF (it doesn't do anything for me)?

Thank you for your help.

Michael

Well, with the dialogue open, you can insert the filename of your choice, then click OK to save.
That's because your code (which I replicated) has:
OpenAfterExport:=True
If you set that to False, Edge won't keep popping up trying to display it. Evidently there's some communication problem with Edge if all you're getting is a blank page.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Ah, that is good to know. I'll change the code tomorrow from True to False.

Michael