انتقل إلى المحتوى الرئيسي

كيف تحسب عدد الصور في مستند Word؟

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

قم بحساب عدد الصور المضمنة باستخدام ميزة البحث والاستبدال

احسب عدد كل من الصور المضمنة والأشكال العائمة باستخدام كود VBA


قم بحساب عدد الصور المضمنة باستخدام ميزة البحث والاستبدال

بحث واستبدال يمكن أن تساعدك الميزة في Word في حساب عدد الصور المضمنة بسرعة وسهولة فقط ، يرجى القيام بما يلي:

1. انقر الرئيسية > > البحث المتقدم، انظر لقطة الشاشة:

عدد الصور doc 1

2. في بحث واستبدال مربع الحوار ، تحت علامة التبويب ، اكتب ^g في تجد ما مربع النص ، ثم اختر الوثيقة الرئيسية من تجد في القائمة المنسدلة ، انظر لقطة الشاشة:

عدد الصور doc 2

3. وبعد ذلك يمكنك رؤية عدد الصور المضمنة في مستند Word هذا الذي تم عرضه كما هو موضح في لقطة الشاشة التالية:

عدد الصور doc 3


احسب عدد كل من الصور المضمنة والأشكال العائمة باستخدام كود VBA

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

1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. ثم اضغط إدراج > وحدة، انسخ والصق الكود أدناه في الوحدة الفارغة المفتوحة ، انظر لقطة الشاشة:

كود فبا: احسب عدد الصور المضمنة والأشكال العائمة:

Sub CountImagesInDoc()
    Dim xInlines As Long
    Dim xFloaters As Long
    Dim sh As Shape
    Dim tbxs As Long
    Dim msg As String
    With ActiveDocument
        For Each sh In .Shapes
            If sh.Type = msoTextBox Then tbxs = tbxs + 1
        Next
        xInlines = .InlineShapes.Count
        xFloaters = .Shapes.Count - tbxs
    End With
    xPrompt = "Inline images:" & vbTab & xInlines & vbCr
    xPrompt = xPrompt & "Floating shapes:" & vbTab & xFloaters & vbCr
    xPrompt = xPrompt & vbTab & "Total:" & vbTab & (xInlines + xFloaters) & vbCr
    xPrompt = xPrompt & "Counts do not include headers and footers, etc."
    MsgBox xPrompt, vbInformation, "Kutools for Word"
End Sub

3. بعد لصق الرمز ، اضغط على F5 مفتاح لتشغيل هذا الرمز ، ويظهر مربع موجه لإخبارك بعدد الصور المضمنة والأشكال العائمة في مستند Word هذا ، انظر لقطة الشاشة:

عدد الصور doc 4


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

كوتولس للكلمة - ارفع تجربة كلمتك مع أكثر 100 ميزات رائعة!

تعمق في الميزات المميزة أدناه أو انقر هنا لاستكشاف القوة الكاملة لـ Kutools for Word.

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

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

🧹 تنظيف سهلاكتساح بعيدا مساحات اضافية  /  فواصل القسم  /   كل الرؤوس  /  مربعات النص  /  الارتباطات التشعبية  /  لمزيد من أدوات الإزالة، توجه إلى مجموعة الإزالة الخاصة بنا

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

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

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

قم بتحويل مهام Word الخاصة بك باستخدام Kutools. 👉 قم بالتنزيل مع نسخة تجريبية مدتها 30 يومًا الآن 🚀.

 
Comments (1)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
helpfulllll😀😁
Rated 5 out of 5
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations