The code to save the file as a PDF is what I took from a Macro recorded of me SaveAs-ing. Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _ĬreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _īitmapMissingFonts:=True, UseISO19005_1:=False WdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _ PdfName = equipName & "_" & equipError & "_" & fileDateĪctiveDocument.ExportAsFixedFormat OutputFileName:=filePath & pdfName & ".pdf", _ĮxportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _ This is the code I have for it: Option Explicitĭim equipName As String, equipError As String, fileDate As String, pdfName As String, filePath As StringĮquipName = Replace(Left(ActiveDocument.Tables(1).Cell(1, 2).Range.Text, _ I'm trying to save a Word Document as a PDF, but I'm getting an error box
0 kommentar(er)
