Skip to main content

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

Author: Xiaoyang Last Modified: 2025-08-06

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

في هذا الدليل، سنرشدك خلال الخطوات لإدراج صور متعددة مع مسارات ملفاتها وأسمائها كتسميات توضيحية في مستند Word، مما يساعدك على إدارة صورك بشكل أكثر فعالية.

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

إدراج صور متعددة مع أسماء الملفات باستخدام Kutools for Word

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

الكود التالي لـ VBA يساعدك على إدراج صور متعددة مع مسار الملف والاسم كتسميات توضيحية. يرجى اتباع هذه الخطوات:

  1. اضغط باستمرار على Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.
  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. Select a folder to insert pictures from

  4. انقر فوق موافق، وسيتم إدراج جميع الصور من المجلد المحدد في مستند Word، مع تضمين مسار الملف والاسم كتسميات توضيحية.

    Selected pictures are inserted into the document with filenames

إدراج صور متعددة مع أسماء الملفات باستخدام Kutools for Word

يقدم استخدام Kutools for Word طريقة فعالة لإدراج صور متعددة مع مسارات ملفاتها وأسمائها في مستند Word. توفر هذه الميزة الوقت وتضمن الدقة مقارنةً بإضافة تفاصيل الملفات يدويًا. باستخدام ميزة الصور، يمكنك إنجاز هذه المهمة بسهولة.

Kutools for Word،المزود بذكاء اصطناعي 🤖، يقدم أكثر من 100 ميزات عملية لتبسيط مهامك.

بعد تثبيت Kutools for Word، اتبع الخطوات التالية:

  1. انقر فوق Kutools > صور متعددة.

    Multi-Picture option on the Kutools tab on the ribbon

  2. في النافذة المنبثقة إدراج الصور صندوق الحوار، قم بالعمليات التالية:
    • انقر فوق إضافة ملفات أو إضافة مجلد لتحديد الصور التي تريد إدراجها.
    • تحقق من خيار إدراج مسار الملف لكل صورة كعنوان أسفل في الزاوية اليسرى السفلى من صندوق الحوار.
    • انقر فوق زر الإدراج لإدراج الصور مرة واحدة.

      Insert Pictures dialog box

  3. بعد إدراج الصور، سيتم إضافة مسار الملف والاسم لكل صورة كعنوان أسفل.

    Selected pictures are inserted into the document with filenames

Kutools for Word هو الإضافة النهائية لبرنامج Word التي تُبسّط عملك وتعزز مهاراتك في معالجة المستندات. احصل عليه الآن!

أفضل أدوات الإنتاجية لمكتبك

Kutools for Word - ارتقِ بتجربتك في Word مع أكثر من 100 ميزة مذهلة!

🤖 ميزات الذكاء الاصطناعي في Kutools: مساعد الذكاء الاصطناعي / مساعد الوقت الحقيقي / تلميع فائق (الحفاظ على التنسيق) / ترجمة فائقة (الحفاظ على التنسيق) / إخفاء المعلومات باستخدام الذكاء الاصطناعي / التدقيق اللغوي بالذكاء الاصطناعي...

📘 إتقان المستندات: تقسيم الصفحات / دمج المستندات / تصدير التحديد بتنسيقات متعددة (PDF/TXT/DOC/HTML...) / تحويل جماعي إلى PDF...

✏ تحرير المحتوى: البحث والاستبدال الجماعي عبر ملفات متعددة / تغيير حجم جميع الصور / تحويل الجدول بين الصفوف والأعمدة / تحويل الجدول إلى نص...

🧹 تنظيف سهل: أزل المسافات الزائدة / فواصل الأقسام / مربعات النص / الروابط التشعبية / لمزيد من أدوات الإزالة، توجه إلى مجموعة إزالة...

➕ إدراجات إبداعية: إدراج فواصل الآلاف / مربعات اختيار / أزرار راديو / رمز QR / الباركود / صور متعددة / اكتشف المزيد في مجموعة إدراج...

🔍 تحديدات دقيقة: تحديد الصفحات المحددة / الجداول / الأشكال / فقرات العناوين / عزز التنقل مع المزيد من ميزات التحديد ...

⭐ تحسينات مميزة: انتقل إلى أي موقع / إدراج تلقائي للنص المتكرر / التبديل بين نوافذ المستند /11 أداة تحويل...

🌍 يدعم أكثر من40 لغة: استخدم Kutools بلغتك المفضلة – يدعم الإنجليزية، الإسبانية، الألمانية، الفرنسية، الصينية وأكثر من40 لغة أخرى!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 ترغب في تجربة هذه الميزات؟ نزّل Kutools for Word الآن! 🚀
 

أفضل أدوات الإنتاجية لمكتبك

Kutools for Word - 100+ أداة لـ Word

تنزيل مجاني اشترِ الآن تعرف أكثر على Kutools