Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        DocToHtml("C:\WordApplication\document\Test.doc", "C:\WordApplication\document\a.html")
    End Sub


    Private Sub DocToHtml(ByVal docPath As String, ByVal htmlPath As String)


        Dim app As New Application()

        app.Visible = False

        Dim o As Object = Missing.Value

        Dim docFile As Object = docPath

        Dim doc As _Document = app.Documents.Open(docFile, o, o, o, o, o, _
        o, o, o, o, o, o, _
        o, o, o, o)

        Dim fileName As Object = htmlPath

        Dim format As Object = 8
        'Html 

        doc.SaveAs(fileName, format, o, o, o, o, _
        o, o, o, o, o, o, _
        o, o, o, o)

        Dim t As Object = True

        app.Quit(t, o, o)
    End Sub