كيف يمكن حساب عدد الصفحات في ملفات PDF باستخدام Excel؟
إذا كان لديك عدة ملفات PDF في مجلد وتحتاج إلى سرد أسماءها مع عدد صفحاتها في Excel، فيمكنك فعل ذلك بسهولة باستخدام ماكرو VBA بسيط. سيأخذك هذا البرنامج التعليمي خطوة بخطوة لاستخراج أسماء ملفات PDF وعرضها جنبًا إلى جنب مع عدد صفحاتها المقابلة في ورقة عمل Excel.
عرض أسماء ملفات PDF وأرقام الصفحات في Excel باستخدام VBA
عرض أسماء ملفات PDF وأرقام الصفحات في Excel باستخدام VBA
قد يساعدك كود VBA التالي في عرض أسماء جميع ملفات PDF وأرقام صفحاتها في ورقة العمل. يرجى اتباع الخطوات التالية:
1. افتح ورقة العمل التي ترغب في الحصول فيها على أسماء ملفات PDF وأرقام الصفحات.
2. اضغط مع الاستمرار على مفتاحَي «ALT» + "F11" لفتح نافذة «Microsoft Visual Basic for Applications».
3. انقر فوق «Insert» > «Module»، ثم الصق الماكرو التالي في نافذة «Module».
كود VBA: سرد جميع أسماء ملفات PDF وأرقام الصفحات في ورقة العمل:
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. بعد لصق الكود، اضغط على مفتاح "F5" لتشغيله، وستظهر نافذة «Browse». يُرجى تحديد المجلد الذي يحتوي على ملفات PDF التي تريد سردها وحساب عدد صفحاتها. انظر لقطة الشاشة:
5. بعد ذلك، انقر على زر «OK»، وسيتم إدراج جميع أسماء ملفات PDF وأرقام صفحاتها في ورقة العمل الحالية. راجع لقطة الشاشة التالية:
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل