Byadmin
在本文档中，我们很高兴向您展示 4 种有用的方法来查找和替换 Word 文档的一部分中的文本。
通常，我们在Word中进行“查找和替换”时，效果是全局的。 因此，今天我们想为您提供在文档的一部分中查找和替换文本的方法，例如在选择、单个页面或特定部分中。
方法 1：在选择中使用“查找和替换”功能
首先，选择 tar获取文本。
其次，按“Ctrl+H”打开“查找和替换”框。
接下来在“查找内容”文本框中输入查找文本，在“替换为”框中输入替换文本。
然后单击“全部替换”按钮。
将弹出一个框，询问您是否要继续搜索文档的其余部分。 确保单击“否”。
方法 2：运行 VBA 代码以查找和替换所选内容中的文本
首先，选择文档内容的范围。
接下来按“Alt+F11”触发VBA编辑器。
然后点击“普通”，点击“插入”。
在菜单上选择“模块”。
现在双击打开模块。
将以下代码复制并粘贴到那里：
Sub FindAndReplaceInSelection() Dim strFindText As String Dim strReplaceText As String strFindText = InputBox("在此处输入查找文本:") strReplaceText = InputBox("在此处输入替换文本:") 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
接下来点击“F5”。
会弹出两个输入框。 在两个框中分别输入查找和替换文本。
单击“确定”继续。
您将获得与方法 1 完全相同的效果。
方法 3：运行 Word 宏来查找和替换指定页面上的文本
以下宏使您能够查找和替换特定页面上的文本。
首先，按照方法 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 什么：=wdGoToPage，哪个：=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 以选择结束子
运行这些代码后，会出现3个输入框。 在第一个框中输入页码，在第二个框中输入查找文本，在第三个框中键入替换文本。
请记住单击“确定”继续。
方法 4：运行 Word 宏来查找和替换节中的文本
同样，按照方法2的相同步骤安装并运行宏。
只有这次改用这个宏：
Sub FindAndReplaceInSection() Dim strFindText As String Dim strReplaceText As String Dim strSectionNum As String Dim nSectionNum As Integer strSectionNum = InputBox("输入节号：") 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 结束子
请记住在第一个框中输入节号。 并在下面两个框中输入查找和替换文本。
不过，单击“确定”继续。
应对文字问题
您的文档中可能会出现多种问题。 有些很容易处理，而有些则更严重，这可能会导致 词腐败. 在这种情况下，您必须尽快获得修复工具以挽救您的数据。
作者简介：
Vera Chen 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 Excel修复 和 pdf 修复软件产品。 欲了解更多信息，请访问 datanumen.com