Insert variable in path name

[bearcublandon]

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

[macropod]

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

Dim StrNm As String
StrNm = InputBox("PDF File Name")
StrNm = "P:\My Documents\Excel\Stock Information\Good Files\PDF\" & StrNm & ".pdf"
ActiveDocument.ExportAsFixedFormat OutputFileName:=StrNm, _
  ExportFormat:=wdExportFormatPDF, OpenAfterExport:=True, _
  OptimizeFor:=wdExportOptimizeForPrint, Range:=wdExportAllDocument, _
  Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
  CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
  BitmapMissingFonts:=True, UseISO19005_1:=False

[bearcublandon]

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

[macropod]

Of course, you could use:

With Application.Dialogs(wdDialogFileSaveAs)
  .Format = wdFormatPDF
  .Show
End With

instead of the code in post #2.

[bearcublandon]

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

[macropod]

Originally Posted by bearcublandon

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

Well, with the dialogue open, you can insert the filename of your choice, then click OK to save.

Originally Posted by bearcublandon

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).

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.

[bearcublandon]

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

Michael