首页
后端开发
VB
VB版Word操作示例代码

VB版Word操作示例代码

21 次浏览 0 条评论
rar
rar

在VB版Word.bll中，引用了Word包，代码如下：

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
rar 文件大小：134.35KB