Hello,

I´m looking for a macro to save the file as PDF in default folder.

I was able to save as pdf but not insert and work the default folder in the VBA.



Thanks

What is the code you're using?

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

Sub Save_to_PDF()
'
' Save_to_PDF Macro
'
'
With Dialogs(wdDialogFileSaveAs)
.Format = wdFormatPDF
.Show
End With
End Sub

I don´t know how to add a default path

You might try inserting:
.Name = Options.DefaultFilePath(wdDocumentsPath) & "\" & ActiveDocument.Name
before:
.Format = wdFormatPDF

In some Word versions, at least, wdDocumentsPath is unstable and returns whatever the current path is rather than the default path.

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

I want to setup the the defaul path

In that case replace:
Options.DefaultFilePath(wdDocumentsPath)
with whatever your ''default' path is. I'd have thought that was pretty obvious.

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

Sorry, maybe my english is not. Well, honestly is not good.

I recorded a video

https://www.screencast.com/t/Q3t7PhHv7

The problem is how to set a default folder to save the file.

If you want to set a default save path, you could use:
Options.DefaultFilePath(wdDocumentsPath) = "C:\"
replacing "C:\" with whatever your preferred path is. You don't need the 'SaveAs' dialogue for that.

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

It works. Thanks a lot.