如何删除Word文档中不包含特定文本的段落

留下评论 Word文档恢复，词的解决方案 2017年7月25日

在本文中，我们将提供删除Word文档中不包含特定文本的段落的方法。

在上一篇文章中，我们展示了查找或删除包含特定文本的段落的方法。有关详细解释，请点击此处链接:如何在Word文档中快速查找或删除包含特定文本的段落

这一次，我们将为您提供查找具有特定文本的段落的方法，并为您提供删除不包含这些文本的其他段落的选项。类似地，该任务的解决方案是使用宏。

删除不包含特定文本的段落

首先，单击功能区中的“开发人员”选项卡。
然后点击“Visual Basic”，在Word中触发VBA编辑器。Click "Visual Basic"" src="data:image/svg+xml,%3Csvg%20xmlns='http://www.w3.org/2000/svg'%20viewBox='0%200%20679%20120'%3E%3C/svg%3E" alt="点击“开发人员”->点击“Visual Basic”" width="679" height="120" data-lazy-srcset="//www.circareview.com/blogs/wp-content/uploads/2017/07/Click-Developer-then-Click-Visual-Basic.jpg 679w, //www.circareview.com/blogs/wp-content/uploads/2017/07/Click-Developer-then-Click-Visual-Basic-300x53.jpg 300w, //www.circareview.com/blogs/wp-content/uploads/2017/07/Click-Developer-then-Click-Visual-Basic-500x88.jpg 500w" data-lazy-sizes="(max-width: 679px) 100vw, 679px" data-lazy-src="//www.circareview.com/blogs/wp-content/uploads/2017/07/Click-Developer-then-Click-Visual-Basic.jpg">
或者，如果“开发人员”选项卡尚未激活，您可以按“Alt+ F11”代替。
接下来在编辑器中，单击左侧栏中的“Normal”项目。
然后在菜单栏上点击“插入”。
在“插入”下拉菜单中选择“模块”。Click "Insert"->Click "Module"" src="data:image/svg+xml,%3Csvg%20xmlns='http://www.w3.org/2000/svg'%20viewBox='0%200%20266%20185'%3E%3C/svg%3E" alt="点击“正常”->点击“插入”->点击“模块”" width="266" height="185" data-lazy-src="//www.circareview.com/blogs/wp-content/uploads/2017/07/Click-Normal-then-Click-Insert-then-Click-Module-28.jpg">
现在双击新模块打开它，并粘贴下面的宏:

Sub delete段落notcontainingspecifictexts () Dim strFindTexts As String Dim nSplitItem As Long Dim strButtonValue As String Dim objPara As段落Dim objDoc As Document strFindTexts = InputBox("输入要在这里找到的文本，并使用逗号分隔它们:"，"文本要找到")nSplitItem = UBound(Split(strFindTexts， "，")) With Selection . homekey Unit:=wdStory '逐个查找输入的文本。对于nSplitItem = 0到nSplitItem With Selection。查找. clearformatting . text = Split(strFindTexts， "，")(nSplitItem) .替换。文本= "" . forward = True . wrap = wdFindContinue . format = False . matchwholeword = False . matchcase = False . matchsoundslike = False . matchwildcards = False . matchallwordforms = False . execute End With Do While . find。Found = True’将选择范围扩展到整个段落。选择。展开单元:= wd段落选择。范围。highlightcolorindex = wdyyellow .折叠wdCollapseEnd .查找。执行循环下一个结束与strButtonValue = MsgBox("Are you sure to delete all段落没有指定的文本和删除高光?"，vbYesNo)如果strButtonValue = vbYes Then For Each objPara In ActiveDocument. "段落如果objPara. range . highlightcolorindex = wdNoHighlight则objPara. range . delete结束如果Next objPara ActiveDocument.Range.HighlightColorIndex = wdNoHighlight结束如果Set objDoc = Nothing结束Sub . Sub . highlight