Note: The other languages of the website are Google-translated. Back to English

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

doc إدراج الصور مع اسم الملف 1

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

doc إدراج الصور مع اسم الملف 2


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

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

كوتولس للكلمة : مع أكثر من 100 وظيفة إضافية مفيدة في Word ، يمكنك تجربتها مجانًا دون قيود في أيام 60. 

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

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

doc إدراج الصور مع اسم الملف 3

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

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

doc إدراج الصور مع اسم الملف 4

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

doc إدراج الصور مع اسم الملف 5

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


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

 

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

  • يمكن إجراء العمليات المعقدة والمتكررة لمرة واحدة في ثوانٍ.
  • أدخل صورًا متعددة عبر المجلدات في مستند Word مرة واحدة.
  • دمج ودمج ملفات Word المتعددة عبر المجلدات في ملف واحد بالترتيب الذي تريده.
  • قسّم المستند الحالي إلى مستندات منفصلة وفقًا للعنوان أو فاصل المقطع أو معايير أخرى.
  • قم بتحويل الملفات بين Doc و Docx و Docx و PDF ، ومجموعة من الأدوات للتحويلات والاختيارات الشائعة ، وما إلى ذلك ...
فرز التعليقات حسب
التعليقات (7)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
buenas noches amigo me ha servido mucho su información sinembargo me Surge una duda cree que es posible incertar images en word de la misma manera pero dentro de celdas incertadas؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ما هو سطر التعليمات البرمجية الذي تريد تغييره وكيفية كتابة مسار الملف قبل الصورة ، ويعرف أيضًا باسم التسمية التوضيحية (اسم الملف) أعلاه وليس أدناه.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مع التحديد
. النص = xFile
. InlineShapes.AddPicture xPath & "\" & xFile، False، True
.InsertAfter vbCrLf
. تحريك خط wdLine

انتهت ب
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يجب أن تضيف هذا. MovDown wdLine بعد .Text = xFile
تم تصغير هذا التعليق بواسطة المشرف على الموقع
واو هذا رائع! كنت بحاجة فقط إلى اسم الملف ، لذلك قمت بحذف "xPath &" \ "&" من سطر النص. وقد نجح ذلك على أكمل وجه. شكرا على هذا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
تحدث مشكلة عندما يتجاوز اسم الملف المراد إضافته 10.

pic1
pic10
pic11
pic12
pic2
pic3
pic4
صورة 5 ...
تم تصغير هذا التعليق بواسطة المشرف على الموقع
قم بتغيير اسم الملف إلى 01 و 02 و 03 وسيعمل
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL