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

Author: Xiaoyang Last Modified: 2025-05-30

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

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

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

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

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

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

اضغط باستمرار على Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.

انقر إدراج > وحدة، والصق الكود التالي في الوحدة المفتوحة:

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

اضغط على F5 لتشغيل الكود. ستظهر نافذة استعراض حيث يمكنك تحديد المجلد الذي يحتوي على الصور.

Select a folder to insert pictures from

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

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

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

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

تحميل الآن

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

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