笑点GIF图
1. 想用vb打开一个指定的word文档,并可以实现查找替换功能
Dim wordapp
Set wordapp = CreateObject("word.application")
With wordapp
.documents.open ("F:\1.doc")
.Visible = True
.activedocument.Content.Find.Execute FindText:=text1, ReplaceWith:=text2, Replace:=2
End With祝你成功！
2. 求一段VB(word宏)的代码,关于文件查找替换功能
先发一个替换的宏给你试试：
Sub Replace()
Dim Message, Title, Default, MyValue, NeedReplace, MyReplace
Message = "请输入文件所在目录" ' Set prompt.
Title = "InputBox Demo" ' Set title.
Default = "c:\" ' Set default.
' Display message, title, and default value.
MyValue = InputBox(Message, Title, Default)
Message = "请输入需要被替换的词" ' Set prompt.
Title = "InputBox Demo" ' Set title.
Default = "aaa" ' Set default.
' Display message, title, and default value.
NeedReplace = InputBox(Message, Title, Default)
Message = "请输入替换之后的词" ' Set prompt.
Title = "InputBox Demo" ' Set title.
Default = "xxx" ' Set default.
' Display message, title, and default value.
MyReplace = InputBox(Message, Title, Default)
Dim MyFoundFiles(10000)
Dim MyFoundCount
With Application.FileSearch
.FileName = "*.txt"
.LookIn = MyValue
.Execute
MyFoundCount = .FoundFiles.Count
For i = 1 To .FoundFiles.Count
MyFoundFiles(i) = .FoundFiles(i)
Next i
End With
For i = 1 To MyFoundCount
Documents.Open FileName:=MyFoundFiles(i)
With Selection.Find
.Text = NeedReplace
.Replacement.Text = MyReplace
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Documents(MyFoundFiles(i)).Save
ActiveWindow.Close
Next i
End Sub
3. 怎样用VB代码实现查找替换word页眉里的文字
参考这个代码替换页眉里的文字（注意这个代码只适用于奇偶页眉相同的情形）：
Sub ReplaceAllInHeader(strFind As String, strReplace As String)
Dim oStoryRange As Range
Set oStoryRange = ActiveDocument.StoryRanges(wdPrimaryHeaderStory)
oStoryRange.Find.ClearFormatting
oStoryRange.Find.Replacement.ClearFormatting
With oStoryRange.Find
.Text = strFind
.Replacement.Text = strReplace
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
oStoryRange.Find.Execute Replace:=wdReplaceAll
End Sub
如果想针对全文进行替换（包括正文、普通页眉、奇偶页眉、普通页码
、奇偶页码、脚注、尾注等等）：
Sub ReplaceAll(strFind As String, strReplace As String)
Dim oStoryRange As Range
For Each oStoryRange In ActiveDocument.StoryRanges
oStoryRange.Find.ClearFormatting
oStoryRange.Find.Replacement.ClearFormatting
With oStoryRange.Find
.Text = strFind
.Replacement.Text = strReplace
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
oStoryRange.Find.Execute Replace:=wdReplaceAll
Next
End Sub
4. 用VB实现文本查找和替换
Private Sub cmdExit_Click()
End
End Sub
Private Sub cmdFind_Click()
Dim StrCz As String, StrTh As String, I As Integer, J As Integer, K As Integer
StrCz = InputBox（"你要查找什么？"， "查找"， "上海市"）
StrTh = InputBox（"你要将查找到的字符替换成什么？"， "替换"， "南京市"）
On Error Resume Next
I = 0
Do
DoEvents
Txtpape.SetFocus
Txtpaper.SelStart = InStr(IntKs + 1, Txtpaper, StrCz) - 1
If Err = 380 Then
MsgBox "查找完毕！"， vbOKOnly， "查找完毕"
Exit Sub
End If
IntKs = Txtpaper.SelStart + Len(StrCz)
Txtpaper.SelLength = Len(StrCz)
I = I + 1
lblFinded = "已经找到" & I & "处"
K = MsgBox（"找到第" & I & "处“" & StrCz & "”，是否替换？"， vbYesNo， "找到第" & I & "处“" & StrCz & "”"）
If K = 6 Then
Clipboard.Clear
Clipboard.SetText StrTh
Txtpaper.SelText = Clipboard.GetText
J=j+1
lblReplaced="您替换了" & J & "次！"
End If
Loop
End Sub
Private Sub Form_Load()
cmdExit.Caption = "退 出"
cmdFind.Caption = "查找替换"
Txtpaper = "上海市青少年计算机应用操作竞赛是一项经上海市教委批准，由上海市青少年科技教育中心主办的加分竞赛活动？旨在培养青少年的软件操作和应用能力，适应当今社会科技、信息的飞速发展，激发青少年学生学习计算机的兴趣，早日成为二十一世e799bee5baa6e79fa5e9819331333262353939纪的全能人才。"
End Sub
更多VB代码请关注我的博客：
5. VB求解 要模仿Word字处理软件的查找替换功能编程,运行程序在查找
不知道你那些控件的名称，随便写一个程序供你参考，程序如下： Private Sub Command1_Click() Dim f$, c$, s$, jg$, p% s = "电脑硬件电脑系统" f = "电脑" c = "计算机" p = InStr(s, f) Do While p <> 0 jg = Left(s, p - 1) & c & Right(s, Len(s) - p - Len(f) + 1) s = jg p = InStr(s, f) Loop MsgBox jgEnd Sub。
6. 用VB实现文本查找和替换
Private Sub cmdExit_Click()EndEnd SubPrivate Sub cmdFind_Click()Dim StrCz As String, StrTh As String, I As Integer, J As Integer, K As IntegerStrCz = InputBox（"你要查找什么？"， "查找"， "上海市"）StrTh = InputBox（"你要将查找到的字符替换成什么？"， "替换"， "南京市"）On Error Resume NextI = 0Do DoEvents Txtpape.SetFocus Txtpaper.SelStart = InStr(IntKs + 1, Txtpaper, StrCz) - 1 If Err = 380 Then MsgBox "查找完毕！"， vbOKOnly， "查找完毕" Exit Sub End If IntKs = Txtpaper.SelStart + Len(StrCz) Txtpaper.SelLength = Len(StrCz) I = I + 1 lblFinded = "已经找到" & I & "处" K = MsgBox（"找到第" & I & "处“" & StrCz & "”，是否替换？"， vbYesNo， "找到第" & I & "处“" & StrCz & "”"） If K = 6 Then Clipboard.Clear Clipboard.SetText StrTh Txtpaper.SelText = Clipboard.GetText J=j+1 lblReplaced="您替换了" & J & "次！" End IfLoopEnd SubPrivate Sub Form_Load()cmdExit.Caption = "退 出"cmdFind.Caption = "查找替换"Txtpaper = "上海市青少年计算机应用操作竞赛是一项经上海市教委批准，由上海市青少年科技教育中心主办的加分竞赛活动？旨在培养青少年的软件操作和应用能力，适应当今社会科技、信息的飞速发展，激发青少年学生学习计算机的兴趣，早日成为二十一世纪的全能人才。
"End Sub更多VB代码请关注我的博客：。
7. 如何使用word的查找和替换功能,将文档中的所有红色的字符替换为蓝
貌似不可以。
用宏可以快速实现。同时按Alt和F11进入宏界面，点菜单插入，模块，粘贴如下代码：
Sub test()
Dim xCh As Range
For Each xCh In ThisDocument.Characters
If xCh.Font.Color = vbRed Then xCh.Font.Color = vbBlue
Next
End Sub
在此界面直接按F5运行此宏，回到Word，完成。
转载请注明出处51数据库 » Vb凋用word查找替换功能
