VB.NET還是比較常用的，于是我研究了一下VB.NET word查文字，在這里拿出來(lái)和大家分享一下，希望對(duì)大家有用。

VB.NET word查文字代碼：

Public Class ThisDocument  
Private MyDocMenu As Office.CommandBarButton  
Private missing = System.Reflection.Missing.Value  
'在功能區(qū)中新增菜單組  
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() + "個(gè)!", _  
"51cto信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)  
End Sub  
End Class 

以上是VB.NET word查文字的一個(gè)案例，大家可以試試。

【編輯推薦】

1. 剖析VB.NET平臺(tái)調(diào)用是如何執(zhí)行操作
2. 分享個(gè)人總結(jié)VB.NET多線程
3. 詳細(xì)說(shuō)明VB.NET變量中四點(diǎn)
4. 三類十二種VB.NET數(shù)據(jù)類型全面介紹
5. VB.NET初步知識(shí)，初學(xué)者必看