Word दस्तावेज़ में टेबल कैप्शन को ऊपर से नीचे या इसके विपरीत कैसे ले जाएँ?

किसी Word दस्तावेज़ में, यदि कई तालिकाएँ हैं जिनमें प्रत्येक तालिका के नीचे कैप्शन डाले गए हैं। लेकिन, कभी-कभी, आप इन कैप्शन को तालिकाओं के नीचे से ऊपर ले जाना चाह सकते हैं। आप इस कार्य को यथाशीघ्र कैसे निपटा सकते हैं?

VBA कोड के साथ वर्ड में टेबल कैप्शन को नीचे से ऊपर या इसके विपरीत ले जाएं

VBA कोड के साथ वर्ड में टेबल कैप्शन को नीचे से ऊपर या इसके विपरीत ले जाएं

सभी तालिका शीर्षकों को तालिकाओं के नीचे से ऊपर ले जाने के लिए, निम्नलिखित VBA कोड आपकी मदद करेगा, कृपया इसे इस प्रकार करें:

1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

2। क्लिक करें सम्मिलित करें > मॉड्यूल, और मॉड्यूल विंडो में निम्नलिखित मैक्रो चिपकाएँ।

किसी Word दस्तावेज़ में तालिका कैप्शन को नीचे से ऊपर ले जाएँ

Sub ReLabelDownToUpTables()
    Dim I As Long
    Dim xRngPre As Range
    Dim xRngNext As Range
    Application.ScreenUpdating = False
    With ActiveDocument
        For I = .Tables.Count To 1 Step -1
            With .Tables(I).Range
                Set xRngPre = .Characters.First.Previous.Characters.Last
                xRngPre.Select
                Set xRngNext = .Characters.Last.Next.Paragraphs.First.Range
                xRngNext.Select
                With xRngPre
                    .InsertBefore vbCr
                    .Style = xRngNext.Style
                    .Start = .End - 1
                    .End = .Start
                End With
                If Len(xRngNext.Text) > 1 Then
                    xRngNext.End = xRngNext.End - 1
                    xRngNext.Cut
                    xRngNext.Delete
                    xRngPre.Paste
                Else
                    xRngNext.Delete
                End If
            End With
        Next
    End With
    Application.ScreenUpdating = True
End Sub

3। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, और सभी तालिका कैप्शन को तालिकाओं के नीचे से ऊपर ले जाया गया है, स्क्रीनशॉट देखें:

नोट: प्रत्येक तालिका के तालिका कैप्शन को ऊपर से नीचे ले जाने के लिए, कृपया निम्नलिखित VBA कोड लागू करें:

किसी Word दस्तावेज़ में तालिका कैप्शन को ऊपर से नीचे ले जाएँ

Sub ReLabelUpToDownTables()
    Dim I As Long
    Dim xRngPre As Range
    Dim xRngNext As Range
    Application.ScreenUpdating = False
    With ActiveDocument
        For I = .Tables.Count To 1 Step -1
            With .Tables(I).Range
                Set xRngNext = .Characters.First.Previous.Paragraphs.First.Range
                xRngNext.Select
                Set xRngPre = .Characters.Last.Next
                xRngPre.End = xRngPre.End - 1
                xRngPre.Select
                With xRngPre
                    .InsertBefore vbCr
                    .Style = xRngNext.Style
                    .Start = .End - 1
                    .End = .Start
                End With
                If Len(xRngNext.Text) > 1 Then
                    xRngNext.End = xRngNext.End - 1
                    xRngNext.Cut
                    xRngNext.Delete
                    xRngPre.Paste
                Else
                    xRngNext.Delete
                End If
            End With
        Next
    End With
    Application.ScreenUpdating = True
End Sub

सर्वोत्तम कार्यालय उत्पादकता उपकरण

वर्ड के लिए कुटूल - ओवर के साथ अपने शब्द अनुभव को उन्नत करें 100 उल्लेखनीय विशेषताएं!

🤖 कुटूल्स एआई असिस्टेंट: एआई के साथ अपना लेखन बदलें - सामग्री उत्पन्न करें  /  पाठ पुनः लिखें  /  दस्तावेज़ों को सारांशित करें  /  जानकारी के लिए पूछताछ करें दस्तावेज़ पर आधारित, सभी वर्ड के भीतर

📘 दस्तावेज़ महारत: पन्ने विभाजित करें  /  दस्तावेज़ मर्ज करें  /  विभिन्न प्रारूपों में निर्यात चयन (पीडीएफ/टीएक्सटी/डीओसी/एचटीएमएल...)  /  बैच को पीडीएफ में कनवर्ट करें  /  पेजों को छवियों के रूप में निर्यात करें  /  एक साथ अनेक फ़ाइलें प्रिंट करें...

✏ सामग्री संपादन: बैच ढूंढें और बदलें अनेक फ़ाइलों में  /  सभी चित्रों का आकार बदलें  /  तालिका पंक्तियों और स्तंभों को स्थानांतरित करें  /  तालिका को पाठ में बदलें...

🧹 सहज स्वच्छ: साफ़ कर दो अतिरिक्त स्थान  /  अनुभाग टूट जाता है  /  सभी शीर्षलेख  /  पाठ बक्से  /  हाइपरलिंक  / अधिक हटाने वाले टूल के लिए, यहां जाएं समूह हटाएँ...

➕ रचनात्मक निवेशन: डालें हजार विभाजक  /  चेक बॉक्स  /  रेडियो बटन  /  क्यूआर कोड  /  बारकोड  /  विकर्ण रेखा तालिका  /  समीकरण कैप्शन  /  तस्वीर का शीर्षक  /  सारणी का शीर्षक  /  एकाधिक चित्र  / में और अधिक खोजें समूह सम्मिलित करें...

🔍 परिशुद्धता चयन: सटीक विशिष्ट पृष्ठ  /  टेबल्स  /  आकृतियाँ  /  शीर्षक पैराग्राफ  / के साथ नेविगेशन बढ़ाएँ अधिक सुविधाएँ चुनें...

⭐ स्टार संवर्द्धन: किसी भी स्थान पर नेविगेट करें  /  दोहरावदार पाठ स्वतः सम्मिलित करें  /  दस्तावेज़ विंडोज़ के बीच टॉगल करें  /  11 रूपांतरण उपकरण...

👉 क्या आप इन सुविधाओं को आज़माना चाहते हैं? वर्ड के लिए कुटूल्स एक ऑफर करता है 60- दिन का नि: शुल्क परीक्षण, बिना किसी सीमा के! 🚀

मुफ्त डाउनलोड     विस्तार में पढ़ें     अभी खरीदें