Dim app As New MSWord.Application try Dim fileName = "e:\test.docx" app.Documents.Open(fileName) app.Documents(fileName).ExportAsFixedFormat("e:\test.pdf", MSWord.WdExportFormat.wdExportFormatPDF) catch ex As exception msgbox(ex.message) finally app.Quit End try