İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Excel-də Pdf fayllarının səhifə nömrələrini necə saymaq olar?

Müəyyən bir qovluğa birdən çox Pdf fayl varsa, indi bir iş formasında bütün bu fayl adlarını göstərmək və hər bir faylın səhifə nömrələrini almaq istəyir. Excel-də bu işlə tez və asanlıqla necə məşğul ola bilərsiniz?

VBA kodu ilə iş yerindəki bir qovluqdan Pdf fayllarının səhifə nömrələrini hesablayın


VBA kodu ilə iş yerindəki bir qovluqdan Pdf fayllarının səhifə nömrələrini hesablayın

Aşağıdakı VBA kodu, bir Pdf faylı adını və hər bir səhifə nömrəsini bir iş yerində göstərməyə kömək edə bilər, xahiş edirik bunu edin:

1. Pdf faylları və səhifə nömrələrini almaq istədiyiniz bir iş kitabçasını açın.

2. Basıb saxlayın ALT + F11 düymələri və açar Proqramlar üçün Microsoft Visual Basic pəncərə.

3. Basın Taxmaq > Modules, və aşağıdakı makroyu yapışdırın Modules Pəncərə.

VBA kodu: Bütün Pdf fayl adlarını və iş nömrələrində səhifə nömrələrini qeyd edin:

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. Kodu yapıştırdıktan sonra basın F5 bu kodu çalıştırmak üçün açar, və a İnsanlar Pəncərəni açdığınız zaman, səhifə siyahılarını siyahıya salmaq və hesablamaq istədiyiniz pdf faylları olan qovluğu seçin, ekran bax:

doc count pdf pages 1

5. Və sonra basın OK düyməsini, bütün Pdf faylı adları və səhifə nömrələri mövcud iş siyahısına daxil edilir, ekran görünüşünə baxın:

doc count pdf pages 2



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

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!