Skip to main content

Kutools for Office — مجموعة واحدة. خمسة أدوات. أنجز المزيد.

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

Author Xiaoyang Last modified

في مستند 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 لـ Word - ارتقِ بتجربتك في Word مع أكثر من 100 ميزة رائعة!

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

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

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

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

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

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

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

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

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

✨ Kutools لـ Office – تثبيت واحد، خمس أدوات قوية!

يشمل Office Tab Pro · Kutools لـ Excel · أدوات Kutools لـ Outlook · Kutools لـ Word · Kutools لـ PowerPoint

📦 احصل على جميع الأدوات الخمسة في مجموعة واحدة | 🔗 تكامل سلس مع Microsoft Office | ⚡ وفر وقتك وزد إنتاجيتك فوراً

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

Kutools لـ Word - 100+ أدوات لـ Word

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