VB.NET还是比较常用的，于是我研究了一下VB.NET word查文字，在这里拿出来和大家分享一下，希望对大家有用。
VB.NET word查文字代码：
1. Public Class ThisDocument 
2. Private MyDocMenu As Office.CommandBarButton 
3. Private missing = System.Reflection.Missing.Value 
4. '在功能区中新增菜单组 
5. Private Sub ThisDocument_Startup(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Startup 
6. Dim MyCommandBarPopup As Office.CommandBarPopup = Nothing
7. Dim MyCommandBarMenu As Office.CommandBar = CType( _ 
8. Application.CommandBars.ActiveMenuBar, Office.CommandBar) 
9. Dim MyControlsCount As Integer = MyCommandBarMenu.Controls.Count 
10. MyCommandBarPopup = CType(MyCommandBarMenu.Controls.Add( _ 
11. Office.MsoControlType.msoControlPopup, missing, missing, _ 
12. MyControlsCount, True), Office.CommandBarPopup) 
13. If (MyCommandBarPopup IsNot Nothing) Then 
14. MyCommandBarPopup.Caption = "文件管理"
15. MyDocMenu = CType(MyCommandBarPopup.Controls.Add( _ 
16. Office.MsoControlType.msoControlButton, missing, _ 
17. missing, missing, True), Office.CommandBarButton) 
18. MyDocMenu.Caption = "查找文字"
19. AddHandler MyDocMenu.Click, AddressOf MyDocMenuCommand_Click 
20. End If 
21. End Sub 
22. Private Sub ThisDocument_Shutdown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shutdown 
23. End Sub 
24. '查找文字 
25. Private Sub MyDocMenuCommand_Click(ByVal Ctrl As Microsoft.Office.Core.CommandBarButton, ByRef CancelDefault As Boolean) 
26. Dim MyFind As String = ""
27. Dim MyFindForm As New Form1() 
28. MyFindForm.ShowDialog() 
29. MyFind = MyFindForm.textBox1.Text 
30. If (MyFind.Length < 0) Then 
31. Return 
32. End If 
33. Dim MyCount As Integer = 0
34. Dim MyDocument As Word.Document = Me.Application.ActiveDocument 
35. Dim MyRange As Word.Range = MyDocument.Content 
36. MyRange.Find.ClearFormatting() 
37. MyRange.Find.Forward = True
38. MyRange.Find.Text = MyFind
39. MyRange.Find.Execute(missing, missing, missing, missing, missing, _ 
40. missing, missing, missing, missing, missing, _ 
41. missing, missing, missing, missing, missing) 
42. While (MyRange.Find.Found) 
43. MyRange.Bold = 1
44. MyCountMyCount = MyCount + 1 
45. MyRange.Find.Execute(missing, missing, missing, missing, _ 
46. missing, missing, missing, missing, missing, missing, _ 
47. missing, missing, missing, missing, missing) 
48. End While 
49. MessageBox.Show(MyFind + "一共找到:" + MyCount.ToString() + "个!", _ 
50. "51cto信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information) 
51. End Sub 
52. End Class
以上是VB.NET word查文字的一个案例，大家可以试试。