1. vb6.0 怎样实现 word 的查找功能函数
这个不好实现。因为你用以自己的程序打不开Word文档（它的格式只有Word能打开），给Word发送信息让他查找的话，也没有那样的命令行参数。
你最好把Word文档中的内容复制到你的程序文本框（例如Text1）中，输入查找内容的文本框Text2，命名查找按钮为Command1，然后代码可以这样写：
Private Sub Command1_Click()
Dim i As Long
For i = Text1.SelStart + Text1.SelLength To Len(Text1.Text)
If Mid(Text1.Text, i + 1, Len(Text2.Text)) = Text2.Text Then
Text1.SetFocus
Text1.SelStart = i
Text1.SelLength = Len(Text2.Text)
Exit Sub
End If
Next
MsgBox "已搜索指定区域"
End Sub
'此功能是从光标处开始向下找的查找功能，找到后自动选定。
2. 如何用vb窗体界面查找并打开一个word文件，最好有vb工程实例
模糊查找？比较难哦。
打开文件倒是版简单：权
PrivateDeclare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" _
(ByVal hWnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
PrivateConst SW_SHOWNORMAL As Long = 1
PrivateConst SW_HIDE As Long = 0
'调用
Call ShellExecute(Me.hWnd, "Open", "c:\aaa.doc", vbNullString, _
vbNullString, SW_SHOWNORMAL)
3. vb获取Word书签的内容！并将其显示在label控件中！
VB中使用Label控件，如下：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = "正在进行数据处理，请稍候..."
Dim bh1 As String
Dim xm1 As String
Dim zjls1, i, jb1, sj1, bj1, kg1, hx1, nf1, yf1, ts1 As Integer
Dim hxts1, kh1 As Double
Dim SQLString, Msg As String
SQLString = "SELECT bh As 编号,xm As 姓名,date8 As 日期 From kqsj WHERE month(date8) ='" & yf & "'"
Dim UserTable1 As DataTable = DBOperation.DBOperate(SQLString, Msg)
For i = 0 To UserTable1.Rows.Count
jb1 = jb1 + UserTable1.Rows(i).Item(4)
sj1 = sj1 + UserTable1.Rows(i).Item(5)
Next
Label1.Text = "数据处理完毕！"
End Sub
为什么运行时，Label1.Text 中只有一个空框，不显示 "正在进行数据处理，请稍候..."文字，而在程序运行快结束时Label1显示 "数据处理完毕！
4. vb作业：利用文件系统控件编写一个Word文件查找显示程序，程序运行界面如图3-2 所示。跪求大神帮忙
只是忙着把妹么？这么简单的作业也放上来---几个简单的控件几个简单关联----还让我们这些网虫活不？
5. vb中如何在word书签处输入文本
将Word中的指定位置设置书签，在VB中给指定书签复制
sub Test()
DIm strfilename as string
Dim strbookmarkname as string
dim strInfo as string
strfilename="C:\test.doc"
strbookmarkname="bkmTest"
strInfo="Test Bookmark OK"
set objDoc=CreateObject("word.application")
set objDoc=objApp.documents.open(strfilename)
objDoc.Bookmarks(strbookmarkname).range.text=strInfo
objDoc.save
objDoc.close 1
objApp.quit 0
end sub
这样就可以了
6. vb 对word进行查找操作，如何对每个查到的字符串进行操作
Private Sub WWW1()
Dim sn As Variant, SS As String, I As Integer
Selection.WholeStory
SS = Selection.Text
sn = Split(SS, "*")
For I = 1 To UBound(sn)
sn(I) = Replace(sn(I), sn(I), Val(sn(I)) + 1)
SS = SS & vbCrLf & "T" & sn(I)
Next
Selection.TypeText Text:=SS
End Sub
7. 如何用VB制作一个程序，可以搜索Word中的内容
最简单的做法回答,
Dim xWorkApp As Word.Application
Set xWorkApp = New Word.Application
dim xDoc as Word.Document
set xDoc = xWorkApp.ActiveDocument
xWorkApp.Selection.selectall
With xWorkApp.Selection.Find
.Forward = True
.ClearFormatting
.MatchWholeWord = True
.MatchCase = False
.Wrap = wdFindContinue
.Execute FindText:="Microsoft"
End With
8. VB 定位word书签的问题！！！！
ActiveDocument这个对象不存在：为什么这样调用呢，从VBA例子中抄的吗，在VBA和WORD共享进程，所以有ActiveDocument这个对象。
直接用NEWDOC调用。
If NewDoc.Bookmarks.Exists("name") =.....