乐博网lob.cn提示：调试环境为 vs2008 +  windows2003 / windows2008 / xp / vista

VB.Net在word中查找文字

Public Class ThisDocument
    Private MyDocMenu As Office.CommandBarButton
    Private missing = System.Reflection.Missing.Value
    '在功能区中新增菜单组
    Private Sub ThisDocument_Startup(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Startup
        Dim MyCommandBarPopup As Office.CommandBarPopup = Nothing
        Dim MyCommandBarMenu As Office.CommandBar = CType( _
            Application.CommandBars.ActiveMenuBar, Office.CommandBar)
        Dim MyControlsCount As Integer = MyCommandBarMenu.Controls.Count
        MyCommandBarPopup = CType(MyCommandBarMenu.Controls.Add( _
            Office.MsoControlType.msoControlPopup, missing, missing, _
            MyControlsCount, True), Office.CommandBarPopup)
        If (MyCommandBarPopup IsNot Nothing) Then
            MyCommandBarPopup.Caption = "文件管理"
            MyDocMenu = CType(MyCommandBarPopup.Controls.Add( _
                Office.MsoControlType.msoControlButton, missing, _
                missing, missing, True), Office.CommandBarButton)
            MyDocMenu.Caption = "查找文字"
            AddHandler MyDocMenu.Click, AddressOf MyDocMenuCommand_Click
        End If
    End Sub
    Private Sub ThisDocument_Shutdown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shutdown
    End Sub
    '查找文字
    Private Sub MyDocMenuCommand_Click(ByVal Ctrl As Microsoft.Office.Core.CommandBarButton, ByRef CancelDefault As Boolean)
        Dim MyFind As String = ""
        Dim MyFindForm As New Form1()
        MyFindForm.ShowDialog()
        MyFind = MyFindForm.textBox1.Text
        If (MyFind.Length < 0) Then
            Return
        End If
        Dim MyCount As Integer = 0
        Dim MyDocument As Word.Document = Me.Application.ActiveDocument
        Dim MyRange As Word.Range = MyDocument.Content
        MyRange.Find.ClearFormatting()
        MyRange.Find.Forward = True
        MyRange.Find.Text = MyFind
        MyRange.Find.Execute(missing, missing, missing, missing, missing, _
                             missing, missing, missing, missing, missing, _
                             missing, missing, missing, missing, missing)
        While (MyRange.Find.Found)
            MyRange.Bold = 1
            MyCount = MyCount + 1
            MyRange.Find.Execute(missing, missing, missing, missing, _
                missing, missing, missing, missing, missing, missing, _
                missing, missing, missing, missing, missing)
        End While
        MessageBox.Show(MyFind + "一共找到:" + MyCount.ToString() + "个!", _
            "乐博网信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Sub
End Class