1.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()

商业源码热门下载www.html.org.cn