vb.net - vb.net打开word文档返回null

Question

我使用以下代码转换doc为pdf文件，但是在打开 doc 时它什么也不返回：

Dim wordApplication As New Microsoft.Office.Interop.Word.Application
Dim wordDocument As Microsoft.Office.Interop.Word.Document = Nothing
Dim outputFilename As String = IIf(fileout = "", System.IO.Path.ChangeExtension(filename, "pdf"), fileout)
wordDocument = wordApplication.Documents.Open(filename)
wordDocument.ExportAsFixedFormat(outputFilename, Microsoft.Office.Interop.Word.WdExportFormat.wdExportFormatPDF, False, Microsoft.Office.Interop.Word.WdExportOptimizeFor.wdExportOptimizeForOnScreen, Microsoft.Office.Interop.Word.WdExportRange.wdExportAllDocument, 0, 0, Microsoft.Office.Interop.Word.WdExportItem.wdExportDocumentContent, True, True, Microsoft.Office.Interop.Word.WdExportCreateBookmarks.wdExportCreateNoBookmarks, True, True, False)

标签： vb.net

Answer 1

您的代码中有许多未定义的变量：fileout、filename、outputFilename。这是一个工作代码

Dim wordApplication As New Microsoft.Office.Interop.Word.Application
Dim wordDocument As Microsoft.Office.Interop.Word.Document = Nothing
Dim filename As String = "yourworddocument.docx"
Dim fileout As String = "yourworddocument.pdf"
wordDocument = wordApplication.Documents.Open(filename)
wordDocument.ExportAsFixedFormat(fileout, Microsoft.Office.Interop.Word.WdExportFormat.wdExportFormatPDF, False, Microsoft.Office.Interop.Word.WdExportOptimizeFor.wdExportOptimizeForOnScreen, Microsoft.Office.Interop.Word.WdExportRange.wdExportAllDocument, 0, 0, Microsoft.Office.Interop.Word.WdExportItem.wdExportDocumentContent, True, True, Microsoft.Office.Interop.Word.WdExportCreateBookmarks.wdExportCreateNoBookmarks, True, True, False)