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