在 Word 文档的一部分中查找和替换文本的 4 种有用方法

在本文档中，我们很高兴向您展示 4 种有用的方法来查找和替换 Word 文档的一部分中的文本。

通常，我们在Word中进行“查找和替换”时，效果是全局的。 因此，今天我们想为您提供在文档的一部分中查找和替换文本的方法，例如在选择、单个页面或特定部分中。

方法 1：在选择中使用“查找和替换”功能

1. 首先，选择 tar获取文本。
2. 其次，按“Ctrl+H”打开“查找和替换”框。
3. 接下来在“查找内容”文本框中输入查找文本，在“替换为”框中输入替换文本。
4. 然后单击“全部替换”按钮。
5. 将弹出一个框，询问您是否要继续搜索文档的其余部分。 确保单击“否”。

方法 2：运行 VBA 代码以查找和替换所选内容中的文本

1. 首先，选择文档内容的范围。
2. 接下来按“Alt+F11”触发VBA编辑器。
3. 然后点击“普通”，点击“插入”。
4. 在菜单上选择“模块”。
5. 现在双击打开模块。
6. 将以下代码复制并粘贴到那里：

Sub FindAndReplaceInSelection()
  Dim strFindText As String
  Dim strReplaceText As String
 
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")

  With Selection.Find
    .Text = strFindText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub

7. 接下来点击“F5”。
8. 会弹出两个输入框。 在两个框中分别输入查找和替换文本。
9. 单击“确定”继续。

您将获得与方法 1 完全相同的效果。

方法 3：运行 Word 宏来查找和替换指定页面上的文本

以下宏使您能够查找和替换特定页面上的文本。

1. 首先，按照方法 2 中的步骤安装并运行宏。
2. 然后用这个替换那个宏：

Sub FindAndReplaceInSpecificPage()
  Dim strFindText As String
  Dim strReplaceText As String
  Dim strPageNum As String
  Dim nPageNum As Integer
 
  strPageNum = InputBox("Enter a page number: ")
  nPageNum = Int(strPageNum)
 
  Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=nPageNum
  ActiveDocument.Bookmarks("\page").Range.Select
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")

  With Selection.Find
    .Text = strFindText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub

3. 运行这些代码后，会出现3个输入框。 在第一个框中输入页码，在第二个框中输入查找文本，在第三个框中键入替换文本。
4. 请记住单击“确定”继续。

方法 4：运行 Word 宏来查找和替换节中的文本

1. 同样，按照方法2的相同步骤安装并运行宏。
2. 只有这次改用这个宏：

Sub FindAndReplaceInSection()
  Dim strFindText As String
  Dim strReplaceText As String
  Dim strSectionNum As String
  Dim nSectionNum As Integer
 
  strSectionNum = InputBox("Enter a section number: ")
  nSectionNum = Int(strSectionNum)
 
  Selection.GoTo What:=wdGoToSection, Which:=wdGoToFirst, Count:=1, Name:=nSectionNum
  ActiveDocument.Sections(nSectionNum).Range.Select
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")

  With Selection.Find
    .Text = strFindText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub

3. 请记住在第一个框中输入节号。 并在下面两个框中输入查找和替换文本。
4. 不过，单击“确定”继续。

应对文字问题

您的文档中可能会出现多种问题。 有些很容易处理，而有些则更严重，这可能会导致 词腐败. 在这种情况下，您必须尽快获得修复工具以挽救您的数据。

作者简介：

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