在今天的文章中，我们想向您介绍两种快速搜索具有特定页数的 Word 文档的方法。
一般情况下，一个目录下存放着大量的文件。 更重要的是，可以有各种类型的文件。 那么，如果需要搜索特定页数的Word文档怎么办？ 或者您碰巧忘记了文档名称但记住了它的总页数。
以下解决方案将引导您搜索具有特定页数的目标 Word 文档。
方法 1：在窗口资源管理器中搜索
- 首先，点击“开始”。
- 然后单击“计算机”以打开 Windows 资源管理器。 或者，如果文件资源管理器图标已经在您的任务栏上，只需单击它。
- 接下来转到磁盘和保存所有文件的特定位置。
- 现在右键单击第一行的空白区域。
- 检查“类型”和“页面”。 如果它们在那里不可见，请单击菜单底部的“更多”。
- 在打开的“选择详细信息”框中，选中“页面”和“类型”框，然后单击“确定”。
- 然后将光标移到“类型”列上，直到显示下拉按钮。 点击它。
- 选中“Microsoft Word 文档”复选框。 您可以看到只有 Word 文档可用。 然后查看“页数”列以查找具有特定页数的文档。
方法二：运行Word宏
- 首先，按下“Alt+F11”键即可在 Word 中打开 VBA 编辑器。
- 接下来单击“正常”，然后单击工具栏上的“插入”。
- 选择“模块”创建一个新的。
- 然后双击打开右侧的编码空间。
- 将以下宏粘贴到那里：
Sub FindWordDocumentWithSpecificPageNumber()
Dim lPageNumber As Long
Dim lSpecificPageNumber As Long
Dim strDocList As String
Dim strDocName As String
Dim objWordApplication As New Word.Application
Dim strFile As String
Dim strFolder As String
strFolder = InputBox("Enter the folder address", "Folder Address", "For example:E:\test word\test\")
lSpecificPageNumber = InputBox("Enter the page number you want to search", "Specific Page Number", "For example:1")
strFile = Dir(strFolder & "*.doc*", vbNormal)
While strFile <> ""
With objWordApplication
.Documents.Open (strFolder & strFile)
lPageNumber = .ActiveDocument.ComputeStatistics(wdStatisticPages)
If lPageNumber = lSpecificPageNumber Then
strDocName = .ActiveDocument.FullName
strDocList = strDocList & strDocName & vbCr
End If
.ActiveDocument.Close
End With
strFile = Dir()
wend
Set objWordApplication = Nothing
If strDocList <> "" Then
Documents.Add Template:="Normal"
ActiveDocument.Range.Text = strDocList
Else
MsgBox ("There is no match document.")
End If
End Sub
- 接下来单击“运行”按钮或按“F5”。
- 现在有一个输入框提示了起来。 在文本框中输入文件夹地址，不要忘记在字符串末尾添加“\”。
- 单击“确定”进入下一步。
- 在第二个框中，于文本框中输入一个数字。该数字表示目标文档的总页数。同样，单击“确定”。
Word 中会打开一个文档，文档中会显示目标文档的全名。
解决世界崩溃的困境
通常，Word 是处理日常工作的强大工具。 然而，问题和困难的问题时不时会发生。 有时，情况有点严重，你最终可能会遇到 损坏的词. 在这种情况下，您将需要一个高级修复工具来检索您的工作。
作者简介：
Vera Chen 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 xls修复 和 pdf 修复软件产品。 欲了解更多信息，请访问 datanumen.com