كيف تحسب عدد الصور في مستند Word؟
إذا كانت هناك رسومات متعددة في مستند Word الخاص بك تحتوي على صور مضمنة وأشكال عائمة ، فأنت الآن تريد حساب عدد هذه الرسومات في المستند بأكمله ، كيف يمكنك الحصول على عدد الصور بسرعة وبشكل صحيح؟
قم بحساب عدد الصور المضمنة باستخدام ميزة البحث والاستبدال
احسب عدد كل من الصور المضمنة والأشكال العائمة باستخدام كود VBA
قم بحساب عدد الصور المضمنة باستخدام ميزة البحث والاستبدال
• بحث واستبدال يمكن أن تساعدك الميزة في Word في حساب عدد الصور المضمنة بسرعة وسهولة فقط ، يرجى القيام بما يلي:
1. انقر الصفحة الرئيسية > > البحث المتقدم، انظر لقطة الشاشة:
2. في بحث واستبدال مربع الحوار ، تحت علامة التبويب ، اكتب ^g في تجد ما مربع النص ، ثم اختر الوثيقة الرئيسية من تجد في القائمة المنسدلة ، انظر لقطة الشاشة:
3. وبعد ذلك يمكنك رؤية عدد الصور المضمنة في مستند Word هذا الذي تم عرضه كما هو موضح في لقطة الشاشة التالية:
احسب عدد كل من الصور المضمنة والأشكال العائمة باستخدام كود 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 هذا ، انظر لقطة الشاشة:
أفضل أدوات إنتاجية المكتب
كوتولس للكلمة - ارفع تجربة كلمتك مع أكثر 100 ميزات رائعة!
🤖 مساعد كوتولس AI: تحويل كتابتك باستخدام الذكاء الاصطناعي - توليد المحتوى / إعادة كتابة النص / تلخيص المستندات / الاستفسار عن المعلومات على أساس الوثيقة، كل ذلك داخل Word
📘 إتقان الوثيقة: تقسيم الصفحات / دمج المستندات / تصدير التحديد بتنسيقات مختلفة (PDF/TXT/DOC/HTML...) / دفعة تحويل إلى PDF / تصدير الصفحات كصور / طباعة ملفات متعددة في وقت واحد
✏ تحرير المحتويات: بحث واستبدال دفعة عبر ملفات متعددة / تغيير حجم كافة الصور / تبديل صفوف وأعمدة الجدول / تحويل الجدول إلى نص
🧹 تنظيف سهل: اكتساح بعيدا مساحات اضافية / فواصل القسم / كل الرؤوس / مربعات النص / الارتباطات التشعبية / لمزيد من أدوات الإزالة، توجه إلى موقعنا إزالة المجموعة
➕ إدراجات إبداعية: إدراج الف فاصل / مربعات الاختيار / أزرار الراديو / رمز الاستجابة السريعة / الباركود / جدول الخط القطري / شرح المعادلة / صورة توضيحية / الجدول التوضيحي / صور متعددة / اكتشف المزيد في أدخل المجموعة
🔍 التحديدات الدقيقة: يحدد بدقة صفحات محددة / الجداول / الأشكال / فقرات العناوين / تحسين التنقل باستخدام الأكثر من ذلك حدد الميزات
⭐ تحسينات النجوم: انتقل بسرعة إلى أي مكان / الإدراج التلقائي للنص المتكرر / التبديل بسلاسة بين نوافذ المستندات / 11 أدوات التحويل