एक्सेल में पीडीएफ फाइलों के पेज नंबर कैसे गिनें?
यदि किसी विशिष्ट फ़ोल्डर में कई पीडीएफ फाइलें हैं, तो अब, आप इन सभी फ़ाइल नामों को एक वर्कशीट में प्रदर्शित करना चाहते हैं, और प्रत्येक फ़ाइल की पृष्ठ संख्या प्राप्त करना चाहते हैं। आप एक्सेल में इस काम को जल्दी और आसानी से कैसे निपटा सकते हैं?
वीबीए कोड के साथ वर्कशीट में एक फ़ोल्डर से पीडीएफ फाइलों की पृष्ठ संख्या की गणना करें
वीबीए कोड के साथ वर्कशीट में एक फ़ोल्डर से पीडीएफ फाइलों की पृष्ठ संख्या की गणना करें
हो सकता है कि निम्नलिखित वीबीए कोड आपको वर्कशीट में सभी पीडीएफ फ़ाइल नाम और उनके प्रत्येक पृष्ठ नंबर प्रदर्शित करने में मदद कर सके, कृपया ऐसा करें:
1. एक वर्कशीट खोलें जहां आप पीडीएफ फाइलें और पेज नंबर प्राप्त करना चाहते हैं।
2. दबाए रखें ALT + F11 कुंजियाँ, और यह खुल जाती है अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
3। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित मैक्रो को इसमें पेस्ट करें मॉड्यूल खिड़की।
वीबीए कोड: वर्कशीट में सभी पीडीएफ फ़ाइल नाम और पेज नंबर सूचीबद्ध करें:
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 इस कोड को चलाने के लिए कुंजी, और a ब्राउज विंडो खुल गई है, कृपया उस फ़ोल्डर का चयन करें जिसमें पीडीएफ फाइलें हैं जिन्हें आप सूचीबद्ध करना चाहते हैं और पेज नंबर गिनना चाहते हैं, स्क्रीनशॉट देखें:
5. और फिर, क्लिक करें OK बटन, सभी पीडीएफ फ़ाइल नाम और पेज नंबर वर्तमान वर्कशीट में सूचीबद्ध हैं, स्क्रीनशॉट देखें:
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!