WindowsエクスプローラーでPDFメタデータを表示するにはどうすればよいですか？

フォルダー内の複数の PDFのページ数を表示するために、Windows Explorerの「ページ」機能とDirectory Opus 10およびFree Commander XT（そのために試してみました）の使用に失敗しました。

私のすべてのPDFは自由に編集できます。つまり、書き込み保護されていません。PDFリーダーが（正しい）ページ番号を表示できる理由がわかりませんが、ファイルエクスプローラーのどれも表示できません。（もちろん、「詳細」ビューで。）

ページ数が表示されるドキュメントは、MS Wordドキュメントのみです。

このような情報について知っているように、PDF用のシェル拡張ハンドラーをインストールする必要がありますが、ありますか？

補足説明：Windows 8でその変更はありましたか？

初期調査： Google検索は失敗しました。私が見つけたわずかに関連するSEトピックは、「複数のPDFファイルのページをカウントする方法」だけでした。

ネイティブにサポートされていないファイルタイプの場合、Windowsシェルでは、シェル機能の一部をこれらのファイルタイプに拡張するためのシェル拡張ハンドラー（プラグインの一種）が必要です。

Windows XP以前では、シェルは呼び出された列ハンドラー拡張機能を使用して、Windowsエクスプローラーの詳細ビューの列にファイルのメタデータを表示します。

Vista以降、シェルはより汎用性の高いプロパティ（またはメタデータ）ハンドラーを使用します。この拡張機能は、Windowsエクスプローラーの詳細ペインおよびファイルプロパティの詳細タブでファイルのメタデータを表示および編集したり、他の多くのファイルダイアログ（ファイル削除の確認など）でメタデータを表示するためにも使用されます。また、これらのファイルのメタデータをWindows Searchインデクサーによってインデックス付けする必要があります。インデクサーはIFilter拡張機能を使用して、ファイルのテキストコンテンツのインデックスを作成することもできます。

PDFファイルタイプはWindowsシェルによってネイティブにサポートされていないため（Windows 8.xおよびWindows 10でも変更されていません）、PDFメタデータにアクセスするにはPDFプロパティハンドラーをインストールする必要があります。

Windows ShellにPDFプロパティハンドラーを提供する商用ツールPDF-ShellToolsを開発します。

あなたはこのシェルextenion使用して、タイトル、ページなどに基づいて、フィルタのpdfファイルを並べ替えることができますデベヌを

さらに、このポータブルアプリケーションは、pdfファイルからすべてのデータを抽出し、ワークフローで使用できるタブル出力を生成します 。pdfinfogui

Windows ExplorerでPDFのページ数を表示することを求めていることは知っていますが、探しているのがPDFのリストと各ページ番号のリストである場合、Acrobat Proはそれを行います。1. [ファイル]メニューで[オーガナイザー]を選択します。2.目的のPDFがあるフォルダーに移動します。3. [並べ替え]フィールドで、[ページ数]を選択します。これにより、各PDFファイルのページ数が表示されます。まさにあなたが望むものではありません。しかし、トリックを行う必要があります。

誰もがツールを使用し、ページ数を取得してから、Excelにエクスポートしたいと考えています。Excelを使用してページカウントを行ってからシートに入れてみませんか？

見てくださいhttp://www.mrexcel.com/forum/excel-questions/347911-visual-basic-applications-page-count.html

これはコードであり、素晴らしい動作をします：

Sub Test()
    Dim MyPath As String, MyFile As String
    Dim i As Long
    MyPath = "C:\TestFolder"
    MyFile = Dir(MyPath & Application.PathSeparator & "*.pdf", vbDirectory)
    Range("A:B").ClearContents
    Range("A1") = "File Name": Range("B1") = "Pages"
    Range("A1:B1").Font.Bold = True
    i = 1
    Do While MyFile <> ""
        i = i + 1
        Cells(i, 1) = MyFile
        Cells(i, 2) = GetPageNum(MyPath & Application.PathSeparator & MyFile)
        MyFile = Dir
    Loop
    Columns("A:B").AutoFit
    MsgBox "Total of " & i - 1 & " PDF files have been found" & vbCrLf _
           & " File names and corresponding count of pages have been written on " _
           & ActiveSheet.Name, vbInformation, "Report..."
End Sub
'
Function GetPageNum(PDF_File As String)
    'Haluk 19/10/2008
    Dim FileNum As Long
    Dim strRetVal As String
    Dim RegExp
    Set RegExp = CreateObject("VBscript.RegExp")
    RegExp.Global = True
    RegExp.Pattern = "/Type\s*/Page[^s]"
    FileNum = FreeFile
    Open PDF_File For Binary As #FileNum
        strRetVal = Space(LOF(FileNum))
        Get #FileNum, , strRetVal
    Close #FileNum
    GetPageNum = RegExp.Execute(strRetVal).Count
End Function

Tracker SoftwareのPDF-XChange Viewerを使用して、目的の結果を達成することができました。Shell ExtensionやiFilterなど、いくつかの追加機能を備えたフリーウェアPDFビューアーです。

シェル拡張を登録するには、次を行う必要があります。

1. ビューアーをインストールする
2. PDFのデフォルトプログラムとして設定します（これにより、シェル拡張がアクティブになります）。
3. 以前の値にPDFファイルを開くためのデフォルトをリセットします（プログラムもそれのためのオプションを持っている）オプション

幸せな時間！

無料のユーティリティPDF Property Extension！CoolSoftによってこれらの列が提供され、ファイルプロパティダイアログに情報も表示されます。

このユーティリティは、必要に応じてかなり更新されているようで、Windows 10などをサポートしています。

「ページ」列がアクティブになっている場合、Windows 10エクスプローラーでPDFファイルのPDFページ数を表示（および並べ替え）できます。この機能が、私がインストールしたPDF-XChange Editorによって提供されているかどうかはわかりません。