मुख्य सामग्री पर जाएं

Word दस्तावेज़ में फ़ाइल नाम के साथ एकाधिक चित्र कैसे सम्मिलित करें?

लेखक: ज़ियाओयांग अंतिम संशोधित: 2023-01-16

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

VBA कोड का उपयोग करके फ़ाइल नाम के साथ एकाधिक चित्र सम्मिलित करें

Word के लिए Kutools का उपयोग करके फ़ाइल नाम के साथ एकाधिक चित्र सम्मिलित करें

VBA कोड का उपयोग करके फ़ाइल नाम के साथ एकाधिक चित्र सम्मिलित करें

निम्नलिखित वीबीए कोड आपको छवियाँ सम्मिलित करते समय फ़ाइल पथ और नाम को कैप्शन के रूप में सम्मिलित करने में मदद कर सकता है, कृपया ऐसा करें:

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

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

VBA कोड: फ़ाइल नाम के साथ एकाधिक चित्र सम्मिलित करें:

Sub PicWithCaption()
    Dim xFileDialog As FileDialog
    Dim xPath, xFile As Variant
    On Error Resume Next
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    If xFileDialog.Show = -1 Then
        xPath = xFileDialog.SelectedItems.Item(1)
        If xPath <> "" Then
            xFile = Dir(xPath & "\*.*")
            Do While xFile <> ""
                If UCase(Right(xFile, 3)) = "PNG" Or _
                    UCase(Right(xFile, 3)) = "TIF" Or _
                    UCase(Right(xFile, 3)) = "JPG" Or _
                    UCase(Right(xFile, 3)) = "GIF" Or _
                    UCase(Right(xFile, 3)) = "BMP" Then
                    With Selection
                        .InlineShapes.AddPicture xPath & "\" & xFile, False, True
                        .InsertAfter vbCrLf
                        .MoveDown wdLine
                        .Text = xPath & "\" & xFile & Chr(10)
                        .MoveDown wdLine
                    End With
                End If
                xFile = Dir()
            Loop
        End If
    End If
End Sub

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

दस्तावेज़ फ़ाइल नाम 1 के साथ छवियाँ सम्मिलित करें

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

दस्तावेज़ फ़ाइल नाम 2 के साथ छवियाँ सम्मिलित करें

Word के लिए Kutools का उपयोग करके फ़ाइल नाम के साथ एकाधिक चित्र सम्मिलित करें

यदि आपके पास वर्ड के लिए कुटूल, के साथ अपने छावियां सुविधा, आप तुरंत Word दस्तावेज़ में फ़ाइल पथ और नाम के साथ कई चित्र सम्मिलित कर सकते हैं।

वर्ड के लिए कुटूल : 100 से अधिक उपयोगी वर्ड ऐड-इन्स के साथ, 60 दिनों में बिना किसी सीमा के आज़माने के लिए निःशुल्क. 
डाउनलोड पर जाएं
नि:शुल्क परीक्षण 60 दिनखरीद फरोख्त
पेपैल/माईकॉमर्स

स्थापित करने के बाद वर्ड के लिए कुटूल, कृपया ऐसा करें:

1. क्लिक करें कुटूल > छावियां, स्क्रीनशॉट देखें:

दस्तावेज़ फ़ाइल नाम 3 के साथ छवियाँ सम्मिलित करें

2. बाहर निकले में चित्र सम्मिलित करें संवाद बॉक्स, कृपया नीचे दी गई कार्रवाई करें:

  • (1.) क्लिक करें फ़ाइलें जोड़ें or फ़ोल्डर जोड़ें उन छवियों का चयन करने के लिए बटन जिन्हें आप सम्मिलित करना चाहते हैं;
  • (2.) फिर जांचें प्रत्येक चित्र का फ़ाइल पथ कैप्शन के रूप में सम्मिलित करें संवाद बॉक्स के बाईं ओर नीचे विकल्प;
  • (3.) और फिर क्लिक करें सम्मिलित करें बटन.

दस्तावेज़ फ़ाइल नाम 4 के साथ छवियाँ सम्मिलित करें

3. चित्र डालने के बाद, आपको प्रत्येक चित्र का फ़ाइल पथ दिखाई देगा और नाम भी डाला गया है, स्क्रीनशॉट देखें:

दस्तावेज़ फ़ाइल नाम 5 के साथ छवियाँ सम्मिलित करें

वर्ड के लिए कुटूल्स डाउनलोड करने और अभी निःशुल्क परीक्षण करने के लिए क्लिक करें!

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

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

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

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

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

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

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

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

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

👉 क्या आप इन सुविधाओं को आज़माना चाहते हैं? वर्ड के लिए कुटूल्स एक ऑफर करता है 60- दिन का नि: शुल्क परीक्षण, बिना किसी सीमा के! 🚀
 
Comments (11)
No ratings yet. Be the first to rate!
PATAN
PATAN
This comment was minimized by the moderator on the site
VBA CODE IS VERY USEFULLY MY DATA VALIDATE IMAGES SHARING.
Reply
0
0
Rachel Jackson
Rachel Jackson
This comment was minimized by the moderator on the site
How can I decrease the overall size of the photo so there are multiple per page?
Reply
0
0
Rizza
Rizza
This comment was minimized by the moderator on the site
Is there a way to insert each picture and file name per page? Sometimes if one picture is too big the file name will then go to the next page or if picture is too small the next picture will be together in one page instead on the next page
Reply
0
0
skyyang
skyyang     Rizza
This comment was minimized by the moderator on the site
Hello, Rizza,
To insert each picture and file name per page, please apply the following vba code:
Sub PicWithCaption()
    Dim xFileDialog As FileDialog
    Dim xPath As String, xFile As String
    On Error Resume Next
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    If xFileDialog.Show = -1 Then
        xPath = xFileDialog.SelectedItems.Item(1)
        If xPath <> "" Then
            xFile = Dir(xPath & "\*.*")
            Do While xFile <> ""
                If UCase(Right(xFile, 3)) = "PNG" Or _
                    UCase(Right(xFile, 3)) = "TIF" Or _
                    UCase(Right(xFile, 3)) = "JPG" Or _
                    UCase(Right(xFile, 3)) = "GIF" Or _
                    UCase(Right(xFile, 3)) = "BMP" Then
                    
                    ' Add the picture
                    Selection.InlineShapes.AddPicture xPath & "\" & xFile, False, True
                    Selection.TypeParagraph
                    
                    ' Add the file path below the picture
                    Selection.TypeText xPath & "\" & xFile
                    Selection.TypeParagraph
                    
                    ' Move to the next page
                    Selection.InsertBreak Type:=wdPageBreak
                End If
                xFile = Dir()
            Loop
        End If
    End If
End Sub


Please have a try, hope it can help you!
Reply
Report
0
0
JM
JM
This comment was minimized by the moderator on the site
A problem occurs when the file name to be added exceeds 10.

pic1
pic10
pic11
pic12
pic2
pic3
pic4
pic5...
Reply
0
0
_adelie01
_adelie01     JM
This comment was minimized by the moderator on the site
change the file name to 01, 02, 03 and it will work
Reply
0
0
James
James
This comment was minimized by the moderator on the site
Wow this is great! I only needed the file name, so I deleted "xPath & "\" &" from the .Text line and that worked perfectly. Thanks for this!
Reply
0
0
John
John
This comment was minimized by the moderator on the site
Which line of code would you change and how to have the file path written before the picture, aka the caption (filename) is above rather than below.
Reply
0
0
elmohy
elmohy     John
This comment was minimized by the moderator on the site
With Selection
.Text = xFile
.InlineShapes.AddPicture xPath & "\" & xFile, False, True
.InsertAfter vbCrLf
.MoveDown wdLine

End With
Reply
0
0
Sylar
Sylar     elmohy
This comment was minimized by the moderator on the site
Have to add this .MoveDown wdLine after .Text=xFile
Reply
0
0
jairo aguirre
jairo aguirre
This comment was minimized by the moderator on the site
buenas noches amigo me ha servido mucho su información sinembargo me surge una duda cree que es posible incertar imagenes en word de la misma manera pero dentro de celdas incertadas?
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations