word打开与关闭（VB.NET）

Imports word

     打开

     Dim  mwordapp As word.Application            word 应用程序

     Dim  mobjDoc As word.Document                  word 文档

     Dim fullFileName as string                                文件路径

     mwordapp = CreateObject(word.Application)

     mobjDoc = mwordapp.Documents.Add(FullFileName)

             关闭

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

            mwordapp.Application.Quit()

            If Not mobjDoc Is Nothing Then

                垃圾回收

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

                mobjDoc = Nothing

            End If

            If Not mwordapp Is Nothing Then

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

                mwordapp = Nothing

            End If

            真正释放word进程

            GC.Collect()