在word中怎么才能同时搜索多个关键字？

狐狸河

假如在一个长文档中，查找“精益生产”，“消防”，“生产规模”三个关键字，这些关键字又不能相隔太远，要全部出现在连续的300个字符的文字内，并且不一定按顺序出现。例如在下面的一段话中：
-----------------------------------------------------------
主要设计原则
1、推行精益生产理念作为设计出发点，合理组织车间物流系统，以“降低生产成本，提高产品质量”为中心任务，做到在制品最少、物流成本最低，实现企业利润的最大化。
2、工艺方案的制定和设备选型力求与产品技术要求相适应，与生产规模相协调，针对产品工艺特点、技术要求，新增设备力求高起点、高水平、高质量；加强工序间检测和最终检测，有效控制产品质量。
3、主体厂房采用钢结构，以缩短施工周期，确保在较短的时间内完成建设。同时考虑工厂将来的发展性、适用性。
4、按照环境保护、劳动安全卫生和消防要求，对废气、废水、噪音等污染源及危害劳动安全卫生的不利因素，遵照“三同时”的原则，采取相应的治理措施，以符合国家和地方的有关法规。
-------------------------------------------------------------
我发现查找功能不具备这样的功能，请教如何实现？
word版本:2010

pipiludaxian

要是一项功能啥都能实现 大家还编什么程

提提苏

建议分开查找并使用阅读突出显示。
三个可以一起查找，要加[]，问题是可能不是词组，而是单个的字。

nkgsm

勾选通配符，查找输入以下内容，可以查找楼主的连续字符
(精益生产)*(生产规模)

狐狸河

好象没什么人注意到我的问题，想了一上午，我自己写了段程序草稿出来，基本能达到所需功能，但程序效率太低，一个千页文档要花5分钟以上才能执行完程序，不具有实用价值，请有心人指教下。程序代码如下：

1. 
   
2. Public Sub mySearch()
   
3. ScreenUpdating = False
   
4. Dim findString As String
   
5. findString = InputBox("输入要查找的内容", "包括", "")
   
6. '-------------
   
7. '抽取查找内容的单字给数组
   
8. Dim myArray() As String
   
9. Dim cou As Long
   
10. Dim findStringLen As Long
    
11. findStringLen = Len(findString)
    
12. ReDim myArray(1 To findStringLen)
    
13. For cou = 1 To findStringLen Step 1
    
14.     myArray(cou) = Mid(findString, cou, 1)
    
15. Next cou
    
16. '------------------------------
    
17. Dim carCout As Long
    
18. carCout = ActiveDocument.Characters.count '文档所含字数
    
19. '-----------------------------
    
20. cou = 0
    
21. Dim carStart As Long
    
22. Dim carEnd As Long
    
23. carStart = 0
    
24. carEnd = 0
    
25. Dim myRange As Range
    
26. Dim myString As String
    
27. Dim logic1 As Boolean
    
28. Dim logic2 As Boolean
    
29. logic1 = True
    
30. logic2 = True
    
31. Do While carEnd < carCout
    
32.     carEnd = carStart + 100
    
33.     Set myRange = ActiveDocument.Range(Start:=carStart, End:=carEnd)
    
34.     myString = myRange.text
    
35.     'Debug.Print myString
    
36.          For cou = 1 To findStringLen Step 1
    
37.            If InStr(1, myString, myArray(cou), 1) > 0 Then
    
38.                logic1 = True
    
39.            Else
    
40.                logic1 = False
    
41.            End If
    
42.            logic1 = logic1 And logic2
    
43.            logic2 = logic1
    
44.            Debug.Print logic1
    
45.         Next cou
    
46.     If logic1 = True Then myRange.HighlightColorIndex = wdYellow
    
47.     carStart = carStart + 1
    
48.     logic1 = True
    
49.     logic2 = True
    
50. Loop
    
51. ScreenUpdating = True
    
52. End Sub
    

复制代码

yangro

感谢分享了

jaffedream

nkgsm 发表于 2015-3-11 10:32
勾选通配符，查找输入以下内容，可以查找楼主的连续字符
(精益生产)*(生产规模)

这个应该是选中了从精益生产到生产规模的连续文字，而不是这两个词。

duquancai

Sub shishi()
    Dim p As Range, a, s As Range
    a = Array("精益生产", "消防", "生产规模")
    Set p = ActiveDocument.Range(0, 300)
    For i = 0 To UBound(a)
        Set s = p.Duplicate
        Do While s.Find.Execute(a(i))
            If Not s.InRange(p) Then Exit Do
            s.HighlightColorIndex = 6
            s.Collapse 0
        Loop
    Next
End Sub

duquancai

Sub W_正则()
    Dim p As Range, mt, reg As Object
    Set reg = CreateObject("vbscript.regexp")
    reg.Global = True
    reg.Pattern = "生产规模|精益生产|消防"
    Set p = ActiveDocument.Range(0, 300)
    For Each mt In reg.Execute(p.Text)
        m = mt.FirstIndex: n = mt.Length
        With ActiveDocument.Range(p.Start + m, p.Start + m + n)
            .HighlightColorIndex = 6
        End With
    Next
End Sub

duquancai

查找“精益生产”，“消防”，“生产规模”三个关键字，这些关键字又不能相隔太远，要全部出现在连续的300个字符的文字内，并且不一定按顺序出现。
这句话存在严重逻辑错误！有n种情况（区域重叠查找 是实现不了的）
第一种情况：   “1、推行精益生产理念作为设计出发点，合理组织车间物流系统，以“降低生产成本，提高产品质量”为中心任务，做到在制品最少、物流成本最低，实现企业利润的最大化。
2、工艺方案的制定和设备选型力求与产品技术要求相适应，与生产规模相协调，针对产品工艺特点、技术要求，新增设备力求高起点、高水平、高质量；加强工序间检测和最终检测，有效控制产品质量。
3、主体厂房采用钢结构，以缩短施工周期，确保在较短的时间内完成建设。同时考虑工厂将来的发展性、适用性。
4、按照环境保护、劳动安全卫生和消防”   这在239字符
第二种情况：   “、推行精益生产理念作为设计出发点，合理组织车间物流系统，以“降低生产成本，提高产品质量”为中心任务，做到在制品最少、物流成本最低，实现企业利润的最大化。
2、工艺方案的制定和设备选型力求与产品技术要求相适应，与生产规模相协调，针对产品工艺特点、技术要求，新增设备力求高起点、高水平、高质量；加强工序间检测和最终检测，有效控制产品质量。
3、主体厂房采用钢结构，以缩短施工周期，确保在较短的时间内完成建设。同时考虑工厂将来的发展性、适用性。
4、按照环境保护、劳动安全卫生和消防”   这在238字符
第三种情况：   “推行精益生产理念作为设计出发点，合理组织车间物流系统，以“降低生产成本，提高产品质量”为中心任务，做到在制品最少、物流成本最低，实现企业利润的最大化。
2、工艺方案的制定和设备选型力求与产品技术要求相适应，与生产规模相协调，针对产品工艺特点、技术要求，新增设备力求高起点、高水平、高质量；加强工序间检测和最终检测，有效控制产品质量。
3、主体厂房采用钢结构，以缩短施工周期，确保在较短的时间内完成建设。同时考虑工厂将来的发展性、适用性。
4、按照环境保护、劳动安全卫生和消防”   这在237字符
第四种情况：   “行精益生产理念作为设计出发点，合理组织车间物流系统，以“降低生产成本，提高产品质量”为中心任务，做到在制品最少、物流成本最低，实现企业利润的最大化。
2、工艺方案的制定和设备选型力求与产品技术要求相适应，与生产规模相协调，针对产品工艺特点、技术要求，新增设备力求高起点、高水平、高质量；加强工序间检测和最终检测，有效控制产品质量。
3、主体厂房采用钢结构，以缩短施工周期，确保在较短的时间内完成建设。同时考虑工厂将来的发展性、适用性。
4、按照环境保护、劳动安全卫生和消防”   这在236字符
第五种情况：   “精益生产理念作为设计出发点，合理组织车间物流系统，以“降低生产成本，提高产品质量”为中心任务，做到在制品最少、物流成本最低，实现企业利润的最大化。
2、工艺方案的制定和设备选型力求与产品技术要求相适应，与生产规模相协调，针对产品工艺特点、技术要求，新增设备力求高起点、高水平、高质量；加强工序间检测和最终检测，有效控制产品质量。
3、主体厂房采用钢结构，以缩短施工周期，确保在较短的时间内完成建设。同时考虑工厂将来的发展性、适用性。
4、按照环境保护、劳动安全卫生和消防”   这在235字符
第六种情况：   “精益生产理念作为设计出发点，合理组织车间物流系统，以“降低生产成本，提高产品质量”为中心任务，做到在制品最少、物流成本最低，实现企业利润的最大化。
2、工艺方案的制定和设备选型力求与产品技术要求相适应，与生产规模相协调，针对产品工艺特点、技术要求，新增设备力求高起点、高水平、高质量；加强工序间检测和最终检测，有效控制产品质量。
3、主体厂房采用钢结构，以缩短施工周期，确保在较短的时间内完成建设。同时考虑工厂将来的发展性、适用性。
4、按照环境保护、劳动安全卫生和消防要”   这在236字符
第七种情况：   “精益生产理念作为设计出发点，合理组织车间物流系统，以“降低生产成本，提高产品质量”为中心任务，做到在制品最少、物流成本最低，实现企业利润的最大化。
2、工艺方案的制定和设备选型力求与产品技术要求相适应，与生产规模相协调，针对产品工艺特点、技术要求，新增设备力求高起点、高水平、高质量；加强工序间检测和最终检测，有效控制产品质量。
3、主体厂房采用钢结构，以缩短施工周期，确保在较短的时间内完成建设。同时考虑工厂将来的发展性、适用性。
4、按照环境保护、劳动安全卫生和消防要求”   这在3237字符
第八种情况：   “精益生产理念作为设计出发点，合理组织车间物流系统，以“降低生产成本，提高产品质量”为中心任务，做到在制品最少、物流成本最低，实现企业利润的最大化。
2、工艺方案的制定和设备选型力求与产品技术要求相适应，与生产规模相协调，针对产品工艺特点、技术要求，新增设备力求高起点、高水平、高质量；加强工序间检测和最终检测，有效控制产品质量。
3、主体厂房采用钢结构，以缩短施工周期，确保在较短的时间内完成建设。同时考虑工厂将来的发展性、适用性。
4、按照环境保护、劳动安全卫生和消防要求，”   这在238字符
第九种情况：   “行精益生产理念作为设计出发点，合理组织车间物流系统，以“降低生产成本，提高产品质量”为中心任务，做到在制品最少、物流成本最低，实现企业利润的最大化。
2、工艺方案的制定和设备选型力求与产品技术要求相适应，与生产规模相协调，针对产品工艺特点、技术要求，新增设备力求高起点、高水平、高质量；加强工序间检测和最终检测，有效控制产品质量。
3、主体厂房采用钢结构，以缩短施工周期，确保在较短的时间内完成建设。同时考虑工厂将来的发展性、适用性。
4、按照环境保护、劳动安全卫生和消防要求，对”   这在239字符
第十种情况：   “精益生产理念作为设计出发点，合理组织车间物流系统，以“降低生产成本，提高产品质量”为中心任务，做到在制品最少、物流成本最低，实现企业利润的最大化。
2、工艺方案的制定和设备选型力求与产品技术要求相适应，与生产规模相协调，针对产品工艺特点、技术要求，新增设备力求高起点、高水平、高质量；加强工序间检测和最终检测，有效控制产品质量。
3、主体厂房采用钢结构，以缩短施工周期，确保在较短的时间内完成建设。同时考虑工厂将来的发展性、适用性。
4、按照环境保护、劳动安全卫生和消防要求，对废”   这在240字符
。。。。。。。。。
第二十种情况：   “精益生产理念作为设计出发点，合理组织车间物流系统，以“降低生产成本，提高产品质量”为中心任务，做到在制品最少、物流成本最低，实现企业利润的最大化。
2、工艺方案的制定和设备选型力求与产品技术要求相适应，与生产规模相协调，针对产品工艺特点、技术要求，新增设备力求高起点、高水平、高质量；加强工序间检测和最终检测，有效控制产品质量。
3、主体厂房采用钢结构，以缩短施工周期，确保在较短的时间内完成建设。同时考虑工厂将来的发展性、适用性。
4、按照环境保护、劳动安全卫生和消防要求，对废气、废水、噪音等污染”   这在300字符