माइक्रोसॉफ्ट वर्ड में टिप्पणियों को फ़ुटनोट या एंडनोट में कैसे बदलें?

लेखक: सिलुविया अंतिम संशोधित: 2018-09-06

मान लीजिए कि आपके वर्ड दस्तावेज़ में कई टिप्पणियाँ हैं, तो आप इन सभी टिप्पणियों को एक ही समय में फ़ुटनोट या एंडनोट में कैसे बदल सकते हैं? यह आलेख इसे प्राप्त करने के लिए VBA विधियाँ प्रदान करता है।

VBA कोड के साथ टिप्पणियों को फ़ुटनोट या एंडनोट में बदलें

VBA कोड के साथ टिप्पणियों को फ़ुटनोट या एंडनोट में बदलें

नीचे दिए गए VBA कोड आपको वर्तमान दस्तावेज़ की सभी टिप्पणियों को फ़ुटनोट या एंडनोट में शीघ्रता से बदलने में मदद कर सकते हैं। कृपया निम्नानुसार करें.

1. वह दस्तावेज़ खोलें जिसमें टिप्पणियाँ हैं जिन्हें आप फ़ुटनोट या एंडनोट में बदल देंगे, दबाएँ ऑल्ट + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

2। में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की, क्लिक करें सम्मिलित करें > मॉड्यूल। फिर नीचे दिए गए VBA कोड को मॉड्यूल विंडो में कॉपी करें।

वीबीए कोड: टिप्पणियों को फ़ुटनोट में बदलें:

Sub ConvertCommentsToFootnotes()
    Dim xComm As Comment
    Dim xCommRange As Range
    Dim xDoc As Document
    Application.ScreenUpdating = False
    Set xDoc = ActiveDocument
    For Each xComm In xDoc.Comments
        Set xCommRange = xComm.Range
        xDoc.Footnotes.Add xComm.Scope, , xCommRange.Text
        xComm.Delete
    Next
    Application.ScreenUpdating = True
End Sub

वीबीए कोड: टिप्पणियों को एंडनोट्स में बदलें:

Sub ConvertCommentsToEndnotes()
    Dim xComm As Comment
    Dim xCommRange As Range
    Dim xDoc As Document
    Application.ScreenUpdating = False
    Set xDoc = ActiveDocument
    For Each xComm In xDoc.Comments
        Set xCommRange = xComm.Range
        xDoc.Endnotes.Add xComm.Scope, , xCommRange.Text
        xComm.Delete
    Next
    Application.ScreenUpdating = True
End Sub

3। दबाएं F5 कोड चलाने की कुंजी.

फिर वर्तमान दस्तावेज़ की सभी टिप्पणियाँ आपके द्वारा लागू किए गए वीबीए कोड के आधार पर तुरंत फ़ुटनोट या एंडनोट में परिवर्तित हो जाती हैं।