كيفية إدراج صور متعددة باسم ملف في مستند Word؟

في مستند Word ، يمكنك إدراج صور متعددة بسرعة مرة واحدة باستخدام وظيفة "إدراج". لكن ، في بعض الأحيان ، تحتاج إلى إدراج مسار الملف والأسماء كتسمية توضيحية عند إدراج الصور. كيف يمكنك التعامل مع هذه المهمة في ملف وورد؟

قم بإدراج صور متعددة باسم ملف باستخدام التعليمات البرمجية لـ VBA

قم بإدراج صور متعددة باسم ملف باستخدام كوتولس فور وورد

قم بإدراج صور متعددة باسم ملف باستخدام التعليمات البرمجية لـ VBA

يمكن أن يساعدك رمز VBA التالي على إدراج مسار الملف واسمه كتعليق عند إدراج الصور ، يرجى القيام بذلك على النحو التالي:

1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. ثم انقر فوق إدراج > وحدة، انسخ والصق الكود أدناه في الوحدة الفارغة المفتوحة:

كود فبا: أدخل عدة صور مع اسم الملف:

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 مفتاح لتشغيل هذا الرمز ، يتم عرض نافذة تصفح ، يرجى تحديد المجلد الذي يحتوي على الصور التي تريد إدراجها ، انظر لقطة الشاشة:

4. ثم اضغط OK زر ، تم إدراج جميع الصور الموجودة في المجلد المحدد في مستند Word ، وتم إدراج مسار الملف واسمه كتسمية توضيحية جيدة ، انظر لقطة الشاشة:

قم بإدراج صور متعددة باسم ملف باستخدام كوتولس فور وورد

إذا كان لديك كوتولس للكلمة، بما لديها الصور ميزة ، يمكنك إدراج صور متعددة بسرعة مع مسار الملف واسمه في مستند Word على الفور.

بعد تثبيت كوتولس للكلمة، يرجى القيام بذلك على النحو التالي:

1. انقر كوتولس > الصور، انظر لقطة الشاشة:

2. في خرجت إدراج الصور مربع الحوار ، يرجى القيام بالعمليات التالية:

• (1.) انقر إضافة ملفات or إضافة مجلد زر لتحديد الصور التي تريد إدراجها ؛
• (2.) ثم تحقق أدخل مسار الملف لكل صورة كتعليق الخيار في الجزء السفلي الأيسر من مربع الحوار ؛
• (3.) ثم انقر فوق إدراج .

3. بعد إدراج الصور ، سترى مسار ملف كل صورة واسمها مدرجًا أيضًا ، انظر لقطة الشاشة:

انقر لتنزيل Kutools for Word والتجربة المجانية الآن!

---

أدوات إنتاجية Word الموصى بها

 

Kutools For Word - أكثر من 100 ميزة متقدمة لـ Word ، وفر وقتك بنسبة 50 ٪

• يمكن إجراء العمليات المعقدة والمتكررة لمرة واحدة في ثوانٍ.
• أدخل صورًا متعددة عبر المجلدات في مستند Word مرة واحدة.
• دمج ودمج ملفات Word المتعددة عبر المجلدات في ملف واحد بالترتيب الذي تريده.
• قسّم المستند الحالي إلى مستندات منفصلة وفقًا للعنوان أو فاصل المقطع أو معايير أخرى.
• قم بتحويل الملفات بين Doc و Docx و Docx و PDF ، ومجموعة من الأدوات للتحويلات والاختيارات الشائعة ، وما إلى ذلك ...

التفاصيل حمل التطبيق الآن شراء