Word दस्तावेज़ में बिना एक्सटेंशन के फ़ाइल पथ और फ़ाइल नाम कैसे डालें?

लेखक: ज़ियाओयांग अंतिम संशोधित: 2018-08-31

आम तौर पर, हम फ़ाइल नाम फ़ील्ड फ़ंक्शन का उपयोग करके वर्ड दस्तावेज़ में फ़ाइल नाम या फ़ाइल पथ और नाम सम्मिलित कर सकते हैं, लेकिन, यह डाला गया फ़ाइल नाम फ़ाइल एक्सटेंशन docx या doc सहित है। आप एक्सटेंशन के बिना फ़ाइल नाम या फ़ाइल पथ और नाम कैसे सम्मिलित कर सकते हैं?

VBA कोड का उपयोग करके बिना एक्सटेंशन के फ़ाइल पथ और नाम या फ़ाइल नाम डालें

VBA कोड का उपयोग करके बिना एक्सटेंशन के फ़ाइल पथ और नाम या फ़ाइल नाम डालें

Word दस्तावेज़ में बिना एक्सटेंशन के फ़ाइल नाम सम्मिलित करने के लिए, कृपया निम्नलिखित VBA कोड लागू करें:

1. कर्सर को उस स्थान पर रखें जहां आप बिना एक्सटेंशन के फ़ाइल पथ और नाम डालना चाहते हैं।

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

3. और फिर, क्लिक करें सम्मिलित करें > मॉड्यूल, नीचे दिए गए कोड को कॉपी करें और खुले हुए रिक्त मॉड्यूल में पेस्ट करें।

VBA कोड: बिना एक्सटेंशन के फ़ाइल पथ और नाम डालें:

Sub InsertFileNameAndPath()
    Dim xPathName As String
    Dim xDotPos As Integer
    With Application.ActiveDocument
        If Len(.Path) = 0 Then .Save
        xDotPos = VBA.InStrRev(.FullName, ".")
        xPathName = VBA.Left(.FullName, xDotPos - 1)
    End With
    Application.Selection.TypeText xPathName
End Sub

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

दस्तावेज़ में एक्सटेंशन के बिना फ़ाइल नाम डालें 1

नोट: यदि आप दस्तावेज़ में बिना एक्सटेंशन के फ़ाइल नाम सम्मिलित करना चाहते हैं, तो आपको यह कोड लागू करना चाहिए:

वीबीए कोड: केवल एक्सटेंशन के बिना फ़ाइल नाम डालें:

Sub InsertFileNameOnly()
    Dim xPathName As String
    Dim xDotPos As Integer
    With Application.ActiveDocument
        If Len(.Path) = 0 Then .Save
        xDotPos = VBA.InStrRev(.Name, ".")
        xPathName = VBA.Left(.Name, xDotPos - 1)
    End With
    Application.Selection.TypeText xPathName
End Sub