किसी Word दस्तावेज़ को प्रत्येक 5 या n पृष्ठों पर अलग-अलग फ़ाइलों में कैसे विभाजित करें?
यदि आपके पास एक बड़ा Word दस्तावेज़ है जिसमें सैकड़ों पृष्ठ हैं, और अब, आप इस दस्तावेज़ को हर 10 या n पृष्ठों में अलग-अलग फ़ाइलों में विभाजित करना चाहेंगे। क्या पृष्ठों को एक-एक करके कॉपी और पेस्ट किए बिना इस कार्य को हल करने का कोई त्वरित और आसान तरीका है?
किसी Word दस्तावेज़ को VBA कोड के साथ प्रत्येक 10 या n पृष्ठों पर अलग-अलग फ़ाइलों में विभाजित करें
किसी Word दस्तावेज़ को VBA कोड के साथ प्रत्येक 10 या n पृष्ठों पर अलग-अलग फ़ाइलों में विभाजित करें
किसी बड़े दस्तावेज़ को प्रत्येक 10 या n पृष्ठों के आधार पर अलग-अलग फ़ाइलों में विभाजित करने के लिए, निम्नलिखित VBA कोड आपकी मदद कर सकता है, कृपया ऐसा करें:
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2. और फिर, क्लिक करें सम्मिलित करें > मॉड्यूल, खुले हुए रिक्त मॉड्यूल में नीचे दिए गए कोड को कॉपी और पेस्ट करें:
वीबीए कोड: प्रत्येक 10 या n पृष्ठों पर एक दस्तावेज़ को अलग-अलग फ़ाइलों में विभाजित करें:
Sub DocumentSplitter()
Dim xDoc As Document, xNewDoc As Document
Dim xSplit As String, xCount As Long, xLast As Long
Dim xRngSplit As Range, xDocName As String, xFileExt As String
Dim xRegEx As RegExp
Dim xPageCount As Integer
Dim xShell As Object, xFolder As Object, xFolderItem As Object
Dim xFilePath As String
On Error Resume Next
Set xDoc = Application.ActiveDocument
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseforFolder(0, "Select a Folder:", 0, 0)
If TypeName(xFolder) = "Nothing" Then Exit Sub
Set xFolderItem = xFolder.Self
xFilePath = xFolderItem.Path & "\"
Application.ScreenUpdating = False
Set xNewDoc = Documents.Add(Visible:=False)
xDoc.Content.WholeStory
xDoc.Content.Copy
xNewDoc.Content.PasteAndFormat wdFormatOriginalFormatting
With xNewDoc
xPageCount = .ActiveWindow.Panes(1).Pages.Count
L1: xSplit = InputBox("The document contains " & xPageCount & " pages." & _
vbCrLf & vbCrLf & " Please enter the page count you want to split:", "Kutools for Word", xSplit)
If Len(Trim(xSplit)) = 0 Then Exit Sub
Set xRegEx = New RegExp
With xRegEx
.MultiLine = False
.Global = True
.IgnoreCase = True
.Pattern = "[^0-9]"
End With
If xRegEx.Test(xSplit) = True Then
MsgBox "Please enter the page number:", vbInformation, "Kutools for Word"
Exit Sub
End If
If VBA.Int(xSplit) >= xPageCount Then
MsgBox "The number is greater than the document number." & vbCrLf & "Please re-enter", vbInformation, "Kutools for Word"
GoTo L1
End If
xDocName = xDoc. Name
xFileExt = VBA.Right(xDocName, Len(xDocName) - InStrRev(xDocName, ".") + 1)
xDocName = Left(xDocName, InStrRev(xDocName, ".") - 1) & "_"
xFilePath = xFilePath & xDocName
For xCount = 0 To Int(xPageCount / xSplit)
xPageCount = .ActiveWindow.Panes(1).Pages.Count
If xPageCount > xSplit Then
xLast = xSplit
Else
xLast = xPageCount
End If
Set xRngSplit = .GoTo(What:=wdGoToPage, Name:=xLast)
Set xRngSplit = xRngSplit.GoTo(What:=wdGoToBookmark, Name:="\page")
xRngSplit.Start = .Range.Start
xRngSplit.Cut
Documents.Add
Selection.Paste
ActiveDocument.SaveAs FileName:=xFilePath & xCount + 1 & xFileExt, AddToRecentFiles:=False
ActiveWindow.Close
Next xCount
Set xRngSplit = Nothing
xNewDoc.Close wdDoNotSaveChanges
Set xNewDoc = Nothing
End With
Application.ScreenUpdating = True
End Sub
3. उपरोक्त कोड को पेस्ट करने के बाद भी अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, कृपया क्लिक करें टूल्स > संदर्भ, और पॉप आउट में सन्दर्भ-परियोजना संवाद बॉक्स, जाँचें माइक्रोसॉफ्ट वीबीस्क्रिप्ट रेगुलर एक्सप्रेशंस 5.5 में विकल्प उपलब्ध संदर्भ सूची बॉक्स, स्क्रीनशॉट देखें:
4। तब दबायें OK बटन, और फिर दबाएँ F5 इस कोड को चलाने के लिए कुंजी, और a फ़ोल्डर के लिए ब्राउज़ संवाद बॉक्स प्रदर्शित होता है, कृपया एक फ़ोल्डर चुनें जहां आप विभाजित फ़ाइलें रखना चाहते हैं, स्क्रीनशॉट देखें:
5। तब दबायें OK बटन, और एक अन्य प्रॉम्प्ट बॉक्स आपको पृष्ठ संख्या संख्या दर्ज करने की याद दिलाने के लिए पॉप आउट हो जाता है जिसके आधार पर आप विभाजित करना चाहते हैं, स्क्रीनशॉट देखें:
6। और फिर क्लिक करें OK बटन, सक्रिय वर्ड दस्तावेज़ को हर 10 पृष्ठों में अलग-अलग फ़ाइलों में विभाजित किया गया है, आप परिणाम देखने के लिए निर्दिष्ट फ़ोल्डर में जा सकते हैं:
एक अद्भुत सुविधा के साथ प्रत्येक 10 या n पृष्ठों पर एक Word दस्तावेज़ को अलग-अलग फ़ाइलों में विभाजित करें
वर्ड के लिए कुटूल एक शक्तिशाली सुविधा शामिल है- विभाजित करें फ़ंक्शन, इस उपयोगिता के साथ, आप हेडिंग1, पेज ब्रेक, सेक्शन ब्रेक और पेज के आधार पर एक बड़े वर्ड दस्तावेज़ को कई अलग-अलग फाइलों में विभाजित कर सकते हैं।
सुझाव:इसे लागू करने के लिए विभाजित करें सुविधा, सबसे पहले, आपको डाउनलोड करना चाहिए वर्ड के लिए कुटूल, और फिर सुविधा को जल्दी और आसानी से लागू करें।
स्थापित करने के बाद वर्ड के लिए कुटूल, कृपया ऐसा करें:
1। क्लिक करें कुटूल्स प्लस > विभाजित करें, स्क्रीनशॉट देखें:
2. पॉप आउट डायलॉग बॉक्स में, कृपया अपनी आवश्यकतानुसार निम्नलिखित ऑपरेशन सेट करें, स्क्रीनशॉट देखें:
3. सेटिंग्स ख़त्म करने के बाद कृपया क्लिक करें OK, और पूरे दस्तावेज़ को प्रत्येक पृष्ठ के आधार पर कई फ़ाइलों में विभाजित किया जाएगा, स्क्रीनशॉट देखें:
वर्ड के लिए कुटूल्स डाउनलोड करने और अभी निःशुल्क परीक्षण करने के लिए क्लिक करें!
सर्वोत्तम कार्यालय उत्पादकता उपकरण
वर्ड के लिए कुटूल - ओवर के साथ अपने शब्द अनुभव को उन्नत करें 100 उल्लेखनीय विशेषताएं!
🤖 कुटूल्स एआई असिस्टेंट: एआई के साथ अपना लेखन बदलें - सामग्री उत्पन्न करें / पाठ पुनः लिखें / दस्तावेज़ों को सारांशित करें / जानकारी के लिए पूछताछ करें दस्तावेज़ पर आधारित, सभी वर्ड के भीतर
📘 दस्तावेज़ महारत: पन्ने विभाजित करें / दस्तावेज़ मर्ज करें / विभिन्न प्रारूपों में निर्यात चयन (पीडीएफ/टीएक्सटी/डीओसी/एचटीएमएल...) / बैच को पीडीएफ में कनवर्ट करें / पेजों को छवियों के रूप में निर्यात करें / एक साथ अनेक फ़ाइलें प्रिंट करें...
✏ सामग्री संपादन: बैच ढूंढें और बदलें अनेक फ़ाइलों में / सभी चित्रों का आकार बदलें / तालिका पंक्तियों और स्तंभों को स्थानांतरित करें / तालिका को पाठ में बदलें...
🧹 सहज स्वच्छ: साफ़ कर दो अतिरिक्त स्थान / अनुभाग टूट जाता है / सभी शीर्षलेख / पाठ बक्से / हाइपरलिंक / अधिक हटाने वाले टूल के लिए, यहां जाएं समूह हटाएँ...
➕ रचनात्मक निवेशन: डालें हजार विभाजक / चेक बॉक्स / रेडियो बटन / क्यूआर कोड / बारकोड / विकर्ण रेखा तालिका / समीकरण कैप्शन / तस्वीर का शीर्षक / सारणी का शीर्षक / एकाधिक चित्र / में और अधिक खोजें समूह सम्मिलित करें...
🔍 परिशुद्धता चयन: सटीक विशिष्ट पृष्ठ / टेबल्स / आकृतियाँ / शीर्षक पैराग्राफ / के साथ नेविगेशन बढ़ाएँ अधिक सुविधाएँ चुनें...
⭐ स्टार संवर्द्धन: किसी भी स्थान पर नेविगेट करें / दोहरावदार पाठ स्वतः सम्मिलित करें / दस्तावेज़ विंडोज़ के बीच टॉगल करें / 11 रूपांतरण उपकरण...