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