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