将docx转换为pdf

Question

从docx转换后，我需要获取PDF的文件位置

我得到了下面的代码，该代码可以转换，但是在PDF位置上没有任何信息

mydoc.ExportAsFixedFormat _
Outputfilename:=Replace(mydoc.FullName, ".docx", ".pdf"), _
ExportFormat:=wdExportFormatPDF, OpenAfterExport:=True, 
OptimizeFor:=wdExportOptimizeForPrint, _
Range:=wdExportAllDocument, Item:=wdExportDocumentContent

我希望转换后可以将PDF位置记录到单元格中。

谢谢

Answer 1

myDoc.FullName包含文件的路径，因此，当您将其设置为导出文件的输出文件名，并将扩展名从.docx替换为.pdf时，就已经设置了文件的路径。 PDF与原始文档位于同一文件夹。

使用此处的值设置单元格以及PDF的文件路径。

ThisWorkbook.Worksheets("sheetname").Range("A1").Value = Replace(myDoc.FullName, ".docx", ".pdf")

这会将工作表“ sheetname”上的单元格A1设置为pdf的文件路径。