1

Topic: As it is correct from excel to save dot in pdf

Good afternoon! Here the saving macro, saves all, but only here saved pdf do not open (says that the acrobat  cannot open it). How correctly to write a saving macro to the necessary format?

Const NameFileDot = "DOC.dot"
Sub CreateDots ()
PathDot = Replace (ThisWorkbook. FullName, ThisWorkbook. Name, NameFileDot)
NewFolder = NewFolderName AND Application. PathSeparator
Filename = NewFolder AND "DOC1"
Set WD = WA.Documents. Add (PathDot): DoEvents
WD.SaveAs Filename AND ".pdf", wdFormatPDF
WD.Close False
DoEvents
End Sub

2

Re: As it is correct from excel to save dot in pdf

Ser123;
Replace wdFormatPDF on 17