VB.NET word查文字案例解析

VB.NET还是比较常用的，于是我研究了一下VB.NET word查文字，在这里拿出来和大家分享一下，希望对大家有用。

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 
MyCountMyCount = 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() + "个!", _  
"51cto信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)  
End Sub  
End Class 

以上是VB.NET word查文字的一个案例，大家可以试试。

【编辑推荐】

1. 剖析VB.NET平台调用是如何执行操作
2. 分享个人总结VB.NET多线程
3. 详细说明VB.NET变量中四点
4. 三类十二种VB.NET数据类型全面介绍
5. VB.NET初步知识，初学者必看