Dim oWordApp As New Word.Application
            Dim fileName As Object = Server.MapPath("~") & "\format\1.Doc"
            Dim [readOnly] As Object = True
                Dim isVisible As Object = True
                Dim missing As Object = System.Reflection.Missing.Value

                Dim oWordDoc As Word.Document = oWordApp.Documents.Open(fileName, missing, [readOnly], missing, missing, missing, _
                 missing, missing, missing, missing, missing, isVisible, _
                 missing, missing, missing)