Visual Basic

Imports Word = Microsoft.Office.Interop.Word
Imports Office = Microsoft.Office.Core

Partial Class _Default
    Inherits System.Web.UI.Page

    Private objMisc As New Miscellaneous
    Private WordApp As New Word.ApplicationClass()

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
      

    End Sub

    Protected Sub btnSave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSave.Click
        'objMisc.InsertCV("E:\CVParser\CVParser\Files\" & OFDCV.FileName)

        ' set the file name from the open file dialog
        Dim aDoc As Word.Document
        Dim fileName As Object = OFDCV.PostedFile.FileName
        Dim [readOnly] As Object = False
        Dim isVisible As Object = True
        Dim fileToOpen As Object = DirectCast("c:\sample.doc", Object)
        ' Here is the way to handle parameters you don't care about in .NET
        Dim missing As Object = System.Reflection.Missing.Value
        ' Make word visible, so you can see what's happening
        WordApp.Visible = False
        ' Open the document that was chosen by the dialog
        aDoc = WordApp.Documents.Open(fileName, missing, [readOnly], missing, missing, missing, missing, missing, missing, missing, missing, isVisible) ' Activate the document so it shows up in front aDoc.Activate();

        txtResult.Text = aDoc.Content.Text

        aDoc.Close(missing, missing, missing)
        WordApp.Quit(missing, missing, missing)

    End Sub

End Class