+ -
当前位置:首页 → 问答吧 → word筛选多个关键词如何做?

word筛选多个关键词如何做?

时间:2011-01-26

来源:互联网

我有一个问题:

   我要1次操作筛选word文档中的多个关键词,并且把这些关键词用颜色标出来,怎么做?请高手指点。

作者: wysn   发布时间: 2011-01-26

只能使用多次的“查找/替换”功能……也是最快捷的!!

作者: zzmxy   发布时间: 2011-01-26

word文档30万字,关键词几千个,那样太慢了。有没有用宏或vba的方式解决的可能?

作者: wysn   发布时间: 2011-01-26

VBA可以用数组,不用VBA应该只能像楼上所说多次查找了

作者: honggexjq   发布时间: 2011-01-26

代码怎么写,能教一下吗?谢谢

作者: wysn   发布时间: 2011-01-26

最好给个示例文件

作者: honggexjq   发布时间: 2011-01-26

“老套”,“李连杰”,“《新少林寺》”、“成龙”等关键词
关键词用不同的背景或字色标出,word文档在附件中,请帮忙谢谢了。请帮忙添加VBA代码,谢谢

附件

文档.rar(3.1 KB)

2011-1-26 11:19, 下载次数: 0

作者: wysn   发布时间: 2011-01-26

“老套”,“李连杰”,“《新少林寺》”、“成龙”等关键词
关键词用不同的背景或字色标出,word文档在附件中,请帮忙谢谢了。请帮忙添加VBA代码,谢谢

附件

文档.rar(3.1 KB)

2011-1-26 11:35, 下载次数: 1

作者: wysn   发布时间: 2011-01-26

试试看:
复制内容到剪贴板
代码:
Sub test()
Dim Keywd, i%
Keywd = Array("老套", "李连杰", "《新少林寺》", "成龙")
Application.ScreenUpdating = False
Options.DefaultHighlightColorIndex = wdYellow
For i = 0 To UBound(Keywd)
    With ActiveDocument.Content.Find
        .ClearFormatting
        .Text = Keywd(i)
        .MatchWildcards = False
        .Replacement.Highlight = True
        .Forward = True
        .Execute Replace:=wdReplaceAll
    End With
Next
Application.ScreenUpdating = True
End Sub

作者: honggexjq   发布时间: 2011-01-26

问题解决了,谢谢了

作者: wysn   发布时间: 2011-01-26