Word दस्तावेज़ में एकाधिक पंक्तियों को एक पैराग्राफ में कैसे मर्ज या संयोजित करें?
यदि आपके Word दस्तावेज़ में सैकड़ों और हजारों पैराग्राफ हैं, तो इस दस्तावेज़ को प्रिंट करते समय बहुत सारे कागज़ की आवश्यकता होगी। कागजात बचाने के लिए, आप इन एकाधिक पंक्तियों को एक एकल पैराग्राफ में मिला सकते हैं। हालाँकि, आप Word दस्तावेज़ में इन सभी पंक्तियों को जल्दी और आसानी से एक पैराग्राफ में कैसे जोड़ सकते हैं?
ढूँढें और बदलें फ़ंक्शन के साथ एकाधिक पंक्तियों को एक ही पैराग्राफ में मर्ज या संयोजित करें
VBA कोड के साथ एकाधिक पंक्तियों को एक ही पैराग्राफ में मर्ज या संयोजित करें
ढूँढें और बदलें फ़ंक्शन के साथ एकाधिक पंक्तियों को एक ही पैराग्राफ में मर्ज या संयोजित करें
RSI ढूँढें और बदलें वर्ड में फ़ंक्शन आपको कई पंक्तियों को एक पैराग्राफ में मर्ज करने में मदद कर सकता है, कृपया ऐसा करें:
1. उन अनुच्छेदों का चयन करें जिन्हें आप एक अनुच्छेद में विलय करना चाहते हैं।
2. और फिर, क्लिक करें होम > खोज > उन्नत खोज जाने के लिए ढूँढें और बदलें डायलॉग बॉक्स में ढूँढें और बदलें डायलॉग बॉक्स, के अंतर्गत खोज टैब, कृपया दर्ज करें ^p में क्या पता टेक्स्ट बॉक्स, और फिर चयन करें वर्तमान चयन से विकल्प इसमे ढूंडो ड्रॉप डाउन सूची, स्क्रीनशॉट देखें:
3। तो फिर जाओ बदलें टैब, और छोड़ें साथ बदलें टेक्स्ट बॉक्स खाली, और फिर क्लिक करें सभी को बदलें बटन, स्क्रीनशॉट देखें:
4. और सभी चयनित अनुच्छेदों को एक ही अनुच्छेद में मिला दिया गया है, स्क्रीनशॉट देखें:
VBA कोड के साथ एकाधिक पंक्तियों को एक ही पैराग्राफ में मर्ज या संयोजित करें
यहां एक और उपयोगी विधि दी गई है जो वर्ड में इस काम को पूरा करने में आपकी मदद कर सकती है, कृपया निम्नलिखित चरणों का पालन करें:
1. उन पंक्तियों का चयन करें जिन्हें आप एक पैराग्राफ में मर्ज करना चाहते हैं।
2. फिर, दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
3. और फिर, क्लिक करें सम्मिलित करें > मॉड्यूल, नीचे दिए गए कोड को कॉपी करें और खुले हुए रिक्त मॉड्यूल में पेस्ट करें।
VBA कोड: एकाधिक पंक्तियों को एक एकल पैराग्राफ में मर्ज करें:
Sub CleanUpPastedText()
Dim xSelection As Selection
On Error Resume Next
Application.ScreenUpdating = False
Set xSelection = Application.Selection
If xSelection.Type <> wdSelectionIP Then
FindAndReplace xSelection
Else
If MsgBox("Do you want to merge all selected lines into one paragraph?", vbYesNo + vbInformation, "Kutools for Word") = vbNo Then Exit Sub
xSelection.WholeStory
Set xSelection = Application.Selection
xSelection.HomeKey wdStory
FindAndReplace xSelection
End If
Application.ScreenUpdating = True
Application.ScreenRefresh
MsgBox "The selected lines have been merged into one paragraph.", vbInformation, "Kutools for Word"
End Sub
Sub FindAndReplace(Sel As Selection)
With Sel.Find
.ClearFormatting
.Replacement.ClearFormatting
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
.Text = "[^s^t]{1,}^13"
.Replacement.Text = "^p"
.Execute Replace:=wdReplaceAll
.Text = "([!^13])([^13])([!^13])"
.Replacement.Text = "\1\3"
.Execute Replace:=wdReplaceAll
.Text = "[ ]{2,}"
.Replacement.Text = " "
.Execute Replace:=wdReplaceAll
.Text = "([a-z])-[ ]{1,}([a-z])"
.Replacement.Text = "\1\2"
.Execute Replace:=wdReplaceAll
.Text = "[^13]{1,}"
.Replacement.Text = "^p"
.Execute Replace:=wdReplaceAll
End With
End Sub
4. और फिर दबाएं F5 इस कोड को चलाने के लिए कुंजी, और सभी चयनित पैराग्राफ को एक पैराग्राफ में जोड़ दिया गया है जैसा कि स्क्रीनशॉट में दिखाया गया है:
सर्वोत्तम कार्यालय उत्पादकता उपकरण
वर्ड के लिए कुटूल - ओवर के साथ अपने शब्द अनुभव को उन्नत करें 100 उल्लेखनीय विशेषताएं!
🤖 कुटूल्स एआई असिस्टेंट: एआई के साथ अपना लेखन बदलें - सामग्री उत्पन्न करें / पाठ पुनः लिखें / दस्तावेज़ों को सारांशित करें / जानकारी के लिए पूछताछ करें दस्तावेज़ पर आधारित, सभी वर्ड के भीतर
📘 दस्तावेज़ महारत: पन्ने विभाजित करें / दस्तावेज़ मर्ज करें / विभिन्न प्रारूपों में निर्यात चयन (पीडीएफ/टीएक्सटी/डीओसी/एचटीएमएल...) / बैच को पीडीएफ में कनवर्ट करें / पेजों को छवियों के रूप में निर्यात करें / एक साथ अनेक फ़ाइलें प्रिंट करें...
✏ सामग्री संपादन: बैच ढूंढें और बदलें अनेक फ़ाइलों में / सभी चित्रों का आकार बदलें / तालिका पंक्तियों और स्तंभों को स्थानांतरित करें / तालिका को पाठ में बदलें...
🧹 सहज स्वच्छ: साफ़ कर दो अतिरिक्त स्थान / अनुभाग टूट जाता है / सभी शीर्षलेख / पाठ बक्से / हाइपरलिंक / अधिक हटाने वाले टूल के लिए, यहां जाएं समूह हटाएँ...
➕ रचनात्मक निवेशन: डालें हजार विभाजक / चेक बॉक्स / रेडियो बटन / क्यूआर कोड / बारकोड / विकर्ण रेखा तालिका / समीकरण कैप्शन / तस्वीर का शीर्षक / सारणी का शीर्षक / एकाधिक चित्र / में और अधिक खोजें समूह सम्मिलित करें...
🔍 परिशुद्धता चयन: सटीक विशिष्ट पृष्ठ / टेबल्स / आकृतियाँ / शीर्षक पैराग्राफ / के साथ नेविगेशन बढ़ाएँ अधिक सुविधाएँ चुनें...
⭐ स्टार संवर्द्धन: किसी भी स्थान पर नेविगेट करें / दोहरावदार पाठ स्वतः सम्मिलित करें / दस्तावेज़ विंडोज़ के बीच टॉगल करें / 11 रूपांतरण उपकरण...