两种快速查找或删除单词中包含特定文本的句子的方法

Word文档恢复, 词解法 2022 年 1 月 29 日

在本文中，我们将为您提供 2 种快速查找或删除 Word 中包含特定文本的句子的方法。

众所周知，我们可以使用 Word 中的“查找和替换”功能轻松找到所有出现的特定单词。 那么我们将可以毫无问题地突出显示、替换或删除它们。 如您所见， target 是一个词或短语。 但是，今天我们很高兴地告诉您查找或删除包含特定文本的句子的宏方法。查找或删除包含特定文本的句子

方法 1：查找或删除包含特定文本的句子

  1. 首先，按“Alt+F11”在 Word 中触发 VBA 编辑器。
  2. 接下来通过单击“正常”创建一个新模块。
  3. 然后单击“插入”并选择“模块”以获取新的模块。点击“普通”->点击“插入”->点击“模块”
  4. 并双击打开模块。
  5. 现在粘贴以下代码：
Sub DeleteSentencesContainingSpecificWords() Dim strTexts As String Dim strButtonValue As String strTexts = InputBox("Enter texts to be found here: ") With Selection .HomeKey Unit:=wdStory ' 查找输入的文本。 使用 Selection.Find .ClearFormatting .Text = strTexts .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False . Execute End With Do While .Find.Found = True ' 将选择范围扩大到整个句子。 Selection.Expand Unit:=wdSentence strButtonValue = MsgBox("Are you sure to delete the sentence?", vbYesNo) If strButtonValue = vbYes Then Selection.Delete End If .Collapse wdCollapseEnd .Find.Execute Loop End With End Sub 复制代码
  1. 接下来点击“运行”。粘贴代码->点击“运行”
  2. 将有一个输入框，要求您输入文本。 只需键入所有句子包含的通用文本。 单击“确定”。输入文本->单击“确定”
  3. 然后您将看到一个包含所选文本的句子，并会弹出一个消息框。 单击“是”删除该句子，单击“否”保留它。单击“是”或“否”以确认操作
  4. 确认后，选择指定文本的下一句。 还有确认框。 也就是说，宏会带您遍历整个文档，找到 tar每次都得到句子并询问您的确认。

方法 2：查找或删除包含列表中任何文本的句子

使用方法 1 中的宏，您一次只能搜索一个词或短语。 当然，您可以重复运行该宏来搜索多个单词或短语实例。 为了满足多重搜索的需要，我们将为您提供另一个宏。

  1. 先把所有 tar在新文档上获取文本。 确保每段文字占据一个段落且没有尾随空格。 关闭并保存文档。
  2. 接下来使用方法 1 中的确切步骤安装并运行宏。
  3. 然后用这个替换宏：
Sub DeleteSentencesContainingSpecificWordsOnAList() Dim objListDoc As Document, objTargetDoc 作为文档 Dim objParaRange As Range Dim objParagraph As Paragraph Dim strFileName As String, strButtonValue As String Dim dlgFile As FileDialog Set dlgFile = Application.FileDialog(msoFileDialogFilePicker) With dlgFile If .Show = -1 Then strFileName = .SelectedItems(1) Else MsgBox "没有文件已选中！请选择 tar获取文件。”Exit Sub End If End With Set objTargetDoc = ActiveDocument 设置 objListDoc = Documents.Open(strFileName) objTargetDoc.Activate For Each objParagraph In objListDoc.Paragraphs Set objParaRange = objParagraph.Range objParaRange.End = objParaRange.End - 1 With Selection .HomeKey Unit:=wdStory ' 查找 tar得到的话。 使用 Selection.Find .ClearFormatting .Text = objParaRange .MatchWholeWord = True .MatchCase = False .Execute End With ' 将选择范围扩大到整个句子。 Do While .Find.Found Selection.Expand Unit:=wdSentence strButtonValue = MsgBox("Are you sure to delete the sentence?", vbYesNo) If strButtonValue = vbYes Then Selection.Delete End If .Collapse wdCollapseEnd .Find.Execute 循环 End With下一个 objParagraph End Sub
  1. 现在“浏览”窗口将打开。 选择刚才保存的文件，点击“打开”。
  2. 下面的过程与方法一相同。

处理损坏文件的方法

丢失有价值的数据绝对是毁灭性的。 它甚至会使您的业务受到威胁。 为了避免这种挫败感，你需要掌握一个 单词修复 工具尽快。 这样的工具将帮助您赢得与文件损坏的斗争。

作者简介：

Vera Chen 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 修复Excel 和 pdf 修复软件产品。 欲了解更多信息，请访问 datanumen.com

评论被关闭。