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]