vb 版 word.bll

vb 版 word.bll 引用包，Imports Word Sub ShowWord() Dim mWordapp As Word.Application 'word 应用程序 Dim mobjDoc As Word.Document 'word 文档 Dim fullFileName As String = "images/wodr.doc" '文件路径 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() End Sub