1.word Open and Close (vb.net)

Word

Imports Word

' Open

Dim Mwordapp as Word.Application ' Word application

Dim Mobjdoc as Word.Document ' Word document

Dim fullfilename As String ' file path

Mwordapp = CreateObject ("Word.Application")

Mobjdoc = MWORDAPP.DOCUMENTS.ADD (fullfilename)

' Off

Dim missing as Object = System.Reflection.Missing.Value

MWordapp.Application.Quit ()

If not Mobjdoc are nothing Then

' Garbage collection

System.Runtime.InteropServices.Marshal.ReleaseComObject (Mobjdoc)

Mobjdoc = Nothing

End If

If not Mwordapp are nothing Then

System.Runtime.InteropServices.Marshal.ReleaseComObject (Mwordapp)

Mwordapp = Nothing

End If

' Really release word process

Gc. Collect ()