word怎样替换删除不包含关键字的段落，求一个正则表达式，感谢了！

函数小白菜

我需要从word文档中提取保留包含关键字的段落，保留的关键字在整个文中不会混乱，具有唯一标识性，比如：“万象1”、“万象3”、“总厂”等，不含关键字的要怎样全部删除？全网都搜完了没找到答案，求大佬帮忙解决！

ggmmlol

复制到EXCEL里为一列比如A列，并把关键字单列出来比如C列。然后，可以用Filter函数一次筛选出来；如果是低版本，没有Filter函数，那就用高级筛选功能，也能够批量处理。

函数小白菜

ggmmlol 发表于 2024-7-1 23:29
复制到EXCEL里为一列比如A列，并把关键字单列出来比如C列。然后，可以用Filter函数一次筛选出来；如果是低 ...

感谢，我试了一下，但是Excel做出来会打乱word文档的格式，请问有一劳永逸的方法吗？直接在word文档里面操作。

过客fppt

用文本通配符，查找出所有关键字的段落，复制后粘贴到另一个文档中

zds0616

不用那么麻烦，直接批量选择，就可以复制你需要的内容了。

批量选择内容

https://www.douyin.com/video/7298214528829984034

函数小白菜

过客fppt 发表于 2024-7-2 09:30
用文本通配符，查找出所有关键字的段落，复制后粘贴到另一个文档中

感谢帮忙，我试试去

函数小白菜

zds0616 发表于 2024-7-2 10:40
不用那么麻烦，直接批量选择，就可以复制你需要的内容了。

批量选择内容

这个我看了，好像要安装什么公文助理助手，那个我没有

zds0616

函数小白菜 发表于 2024-7-2 14:11
这个我看了，好像要安装什么公文助理助手，那个我没有

装个插件很麻烦？又没什么门槛。

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim n&, Par As Paragraph, regEx As Object
   
    Application.ScreenUpdating = False
   
    Set regEx = CreateObject("VBScript.RegExp")
    regEx.Pattern = "万象1|万象3|总厂"
   
    With ActiveDocument
        .DeleteAllEditableRanges wdEditorEveryone
        For Each Par In .Paragraphs
            If regEx.test(Par.Range.Text) Then
                Par.Range.Editors.Add wdEditorEveryone
                n = n + 1
            End If
        Next
        .SelectAllEditableRanges wdEditorEveryone
        .DeleteAllEditableRanges wdEditorEveryone
        If n Then Selection.Range.Delete
    End With
   
    Application.ScreenUpdating = True
    Beep
End Sub

batmanbbs

gwjkkkkk 发表于 2024-7-2 21:13
Option Explicit
Sub TEST1()
    Dim n&, Par As Paragraph, regEx As Object

老师，写反了吧，楼主要删除不包含关键词的段落