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