查找替换词汇时，如何让查到的词汇所在的行全部用红色显示？

ylaxsm · 发表于 2012-2-18 14:23

如图，文章中我查找替换“地球”这个词，希望凡是包含有这个词所在的行全部红色显示？如何操作

怎样查找替换.rar (4.36 KB, 下载次数: 15)

413191246se · 发表于 2012-2-18 16:31

本帖最后由 413191246se 于 2012-2-19 15:31 编辑

请参照4楼代码

bxlzbtpap · 发表于 2012-2-19 07:02

干净利索。羡慕中。
偶笨，做不出。

sqhsqhli · 发表于 2012-2-19 15:14

二楼代码若关键词在结尾会循环不止
Sub 查找关键词_整行红色()
Dim i As String
i = InputBox("请输入关键词：", "查找关键词", "广泛")
Selection.HomeKey wdStory
With Selection.Find
.ClearFormatting
Do While .Execute(findtext:=i)
.Parent.Bookmarks("\line").Range.Font.Color = wdColorRed
Loop
End With
End Sub

413191246se · 发表于 2012-2-19 15:30

厉害！真厉害！我在DEMO后加入关键词，一试果然循环不止！老弟太厉害了！真是人外有人，山外有山，天外有天！你的编码风格比较像 sylun 大侠了！
——偶是佩服得五体投地啊！代码写得真好！就是看不懂！.parent 那行代码，真的看不懂，还有书签！不知道是干什么的。另外，.clearformatting这名代码到底有没有用呢？我觉得似乎无用似的。

darkbluecs · 发表于 2017-9-1 23:19

sqhsqhli 发表于 2012-2-19 15:14
二楼代码若关键词在结尾会循环不止
Sub 查找关键词_整行红色()
Dim i As String

超赞，感谢！

		自动登录	找回密码
密码			免费注册

[求助] 查找替换词汇时，如何让查到的词汇所在的行全部用红色显示？