特定のページ数のWord文書を検索する2つの簡単な方法

ワードソリューション 2025 年 9 月 28 日
今すぐ共有：

今日の記事では、特定のページ数のWord文書を検索する2つの簡単な方法を紹介します。

通常、XNUMXつのディレクトリに多数のファイルが保存されます。 さらに、さまざまな種類のファイルが存在する可能性があります。 では、特定のページ数のWord文書を検索する必要がある場合はどうでしょうか。 または、ドキュメント名を忘れたが、その合計ページ数を覚えている場合もあります。特定のページ数のWord文書を検索する

以下のソリューションを利用すれば、特定のページ数のWord文書を検索できます。

方法1：ウィンドウエクスプローラーで検索する

  1. まず、「開始」をクリックしてください。
  2. 次に、「コンピューター」をクリックして、Windowsエクスプローラーを開きます。 または、ファイルエクスプローラーアイコンが既にタスクバーにある場合は、クリックするだけです。「スタート」をクリックし、「コンピューター」をクリックします。
  3. 次に、ディスクと、すべてのファイルを保存する特定の場所に移動します。
  4. 次に、最初の行の空のスペースを右クリックします。
  5. 「タイプ」と「ページ」を確認してください。 そこに表示されていない場合は、メニューの下部にある[その他]をクリックします。最初の行の空の場所を右クリック->「タイプ」と「ページ」をチェック
  6. [詳細を選択]ボックスを開き、[ページ]ボックスと[タイプ]ボックスをオンにして、[OK]をクリックします。チェックボックス-> [OK]をクリックします
  7. 次に、ドロップダウンボタンが表示されるまで、[タイプ]列にカーソルを移動します。 クリックして。
  8. 「MicrosoftWord文書」ボックスをチェックします。 利用可能なのはWord文書のみです。 次に、「ページ」列を参照して、特定のページ数のドキュメントを見つけます。「MicrosoftWord文書」ボックスにチェックを入れます

方法2：Wordマクロを実行する

  1. まず最初に、「Alt + F11」を押して、WordでVBAエディターを起動してください。
  2. 次に、「通常」をクリックし、ツールバーの「挿入」をクリックします。
  3. 「モジュール」を選択して、新しいモジュールを作成します。「通常」をクリック->「挿入」をクリック->「モジュール」をクリック
  4. 次に、ダブルクリックして右側のコーディングスペースを開きます。
  5. 次のマクロをそこに貼り付けます。
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
  1. 次に「実行」ボタンをクリックするか、「F5」を押します。コードの貼り付け-> [実行]をクリックします
  2. これで、プロンプトを表示する入力ボックスがあります。 テキストボックスにフォルダアドレスを入力し、文字列の最後に「\」を追加することを忘れないでください。
  3. 「OK」をクリックして次のステップに進みます。フォルダアドレスを入力->「OK」をクリック
  4. 2番目のボックスのテキストボックスに数字を入力してください。この数字は、対象文書の総ページ数を示します。同様に、「OK」をクリックしてください。テキストボックスに数値を入力-> [OK]をクリックします

Wordで文書が開かれ、その文書には対象文書の完全な名前が表示されます。

言葉の崩壊の窮状に対処する

一般的に、Wordは日常業務を処理するための強力なツールです。 しかし、時々、問題や困難な問題が発生する可能性があります。 そして時々、状況はあなたが最終的になることができる少し厳しいです 破損した単語。 このようなシナリオでは、作業を取得するために高度な修復ツールが必要になります。

著者紹介：

Vera Chenは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 xls修復 (NAIST) と pdf ソフトウェア製品を修理します。 詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com

今すぐ共有：

コメントは締め切りました。