KutoolsforOffice — حل واحد، خمس أدوات قوية.تحقيق المزيد بجهد أقل.

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

المؤلفXiaoyangتاريخ التعديل

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

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

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

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

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

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

  1. اضغط مع الاستمرار علىAlt + F11 لفتح نافذةMicrosoft Visual Basic for Applications.
  2. انقرإدراج>وحدة البرمجة (Module)، والصق الكود التالي في وحدة البرمجة المفتوحة: 
    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. حدد مجلدًا لإدراج الصور منه

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

    تُدرج الصور المحددة في المستند مع أسماء الملفات

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

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

Kutools for Word

Kutools for Word يُمكّنك من إنجاز مهامك اليومية على المستندات بسرعة أكبر، بفضل أدواته العملية المدمجة مباشرةً في Microsoft Word—بدون الحاجة إلى برمجة أو إعدادات معقدة.

  • الكتابة بالذكاء الاصطناعي، والتنقيح، والترجمة، والتلخيص
  • البحث والاستبدال الجماعي عبر المستندات
  • دمج وتقسيم مستندات Word بسهولة
  • تحويل Word ↔ PDF دفعة واحدة
تنزيلمعرفة المزيد

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

  1. انقرKutools>صور متعددة (Multi-Picture).

    خيار صور متعددة على تبويب Kutools في الشريط

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

      مربع حوار إدراج صور

  3. بعد إدراج الصور، سيُضاف مسار الملف والاسم الخاص بكل صورة كتعليق توضيحي.

    تُدرج الصور المحددة في المستند مع أسماء الملفات

هل تبحث عن طريقة أسرع للتعامل مع المهام المتكررة في Word؟ جرّب Kutools for Word واجعل عملك اليومي أكثر سهولة!

تنزيلمعرفة المزيد

أفضل أدوات إنتاجية أوفيس

Kutools for Word – ارتقِ بتجربتك في Word مع أكثر من100 ميزة رائعة!

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

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

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

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

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

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

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

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

Kutools for Word تبويبات في الشريط
 
 

Office Tab- يجلب واجهة ذات علامات تبويب إلى أوفيس، مما يجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word وExcel وPowerPoint وPublisher وAccess وVisio وProject.
  • افتح وأنشئ مستندات متعددة في علامات تبويب جديدة ضمن نفس النافذة، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50%، ويقلل مئات نقرات الفأرة لك كل يوم!

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

يتضمنOffice Tab Pro·Kutools لـ Excel·Kutools لـ Outlook·Kutools for Word·Kutools for PowerPoint

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

أفضل أدوات إنتاجية أوفيس

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

تنزيل مجانياشترِ الآنمعرفة المزيد عن Kutools