Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment compter les numéros de page de fichiers PDF dans Excel?

S'il existe plusieurs fichiers PDF dans un dossier spécifique, vous souhaitez maintenant afficher tous ces noms de fichier dans une feuille de calcul et obtenir les numéros de page de chaque fichier. Comment pourriez-vous gérer ce travail dans Excel rapidement et facilement?

Compter les numéros de page de fichiers PDF à partir d'un dossier dans la feuille de calcul avec le code VBA


Compter les numéros de page de fichiers PDF à partir d'un dossier dans la feuille de calcul avec le code VBA

Peut être le code VBA suivant peut vous aider à afficher tous les noms de fichier Pdf et leurs numéros de chaque page dans une feuille de calcul, s'il vous plaît faites comme ceci:

1. Ouvrez une feuille de calcul où vous souhaitez obtenir les fichiers PDF et les numéros de page.

2. Maintenez le ALT + F11 clés, et il ouvre la Microsoft Visual Basic pour applications fenêtre.

3. Cliquez insérer > Moduleet collez la macro suivante dans le Module Fenêtre.

Code VBA: Liste tous les noms de fichier Pdf et les numéros de page dans la feuille de calcul:

Sub Test()
    Dim I As Long
    Dim xRg As Range
    Dim xStr As String
    Dim xFd As FileDialog
    Dim xFdItem As Variant
    Dim xFileName As String
    Dim xFileNum As Long
    Dim RegExp As Object
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    If xFd.Show = -1 Then
        xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
        xFileName = Dir(xFdItem & "*.pdf", vbDirectory)
        Set xRg = Range("A1")
        Range("A:B").ClearContents
        Range("A1:B1").Font.Bold = True
        xRg = "File Name"
        xRg.Offset(0, 1) = "Pages"
        I = 2
        xStr = ""
        Do While xFileName <> ""
            Cells(I, 1) = xFileName
            Set RegExp = CreateObject("VBscript.RegExp")
            RegExp.Global = True
            RegExp.Pattern = "/Type\s*/Page[^s]"
            xFileNum = FreeFile
            Open (xFdItem & xFileName) For Binary As #xFileNum
                xStr = Space(LOF(xFileNum))
                Get #xFileNum, , xStr
            Close #xFileNum
            Cells(I, 2) = RegExp.Execute(xStr).Count
            I = I + 1
            xFileName = Dir
        Loop
        Columns("A:B").AutoFit
    End If
End Sub

4. Après avoir collé le code, puis appuyez sur F5 clé pour exécuter ce code, et un Feuilleter fenêtre est sorti, s'il vous plaît sélectionner le dossier qui contient les fichiers Pdf que vous souhaitez répertorier et compter les numéros de page, voir capture d'écran:

Doc compte pdf pages 1

5. Et puis, cliquez OK bouton, tous les noms de fichier Pdf et numéros de page sont répertoriés dans la feuille de calcul en cours, voir capture d'écran:

Doc compte pdf pages 2



Outils de productivité recommandés

Office Tab

étoile d&#39;or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d&#39;or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d&#39;or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d&#39;écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Fawaz · 3 days ago
    Not working properly, for some pdfs, for some pdfs it shows 0 and for some incorrect page numbers
  • To post as a guest, your comment is unpublished.
    Chase C · 1 months ago
    Works great! Many thanks!