2種快速搜索特定頁數Word文檔的方法

Word解決方案 2025 年 9 月 28 日

在今天的文章中，我們想向您介紹兩種快速搜索具有特定頁數的 Word 文檔的方法。

一般情況下，一個目錄下存放著大量的文件。更重要的是，可以有各種類型的文件。那麼，如果需要搜索特定頁數的Word文檔怎麼辦？或者您碰巧忘記了文檔名稱但記住了它的總頁數。

以下解決方案將引導您搜尋具有特定頁數的目標 Word 文件。

方法 1：在窗口資源管理器中搜索

首先，點選「開始」。
然後單擊“計算機”以打開 Windows 資源管理器。或者，如果文件資源管理器圖標已經在您的任務欄上，只需單擊它。
接下來轉到磁盤和保存所有文件的特定位置。
現在右鍵單擊第一行的空白區域。
檢查“類型”和“頁面”。如果它們在那裡不可見，請單擊菜單底部的“更多”。
在打開的“選擇詳細信息”框中，選中“頁面”和“類型”框，然後單擊“確定”。
然後將光標移到“類型”列上，直到顯示下拉按鈕。點擊它。
選中“Microsoft Word 文檔”框。您可以看到只有 Word 文檔可用。然後查看“頁數”列以查找具有特定頁數的文檔。

方法2：運行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