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

---