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

كيف تحسب عدد الصور في مستند 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



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

 

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

  • يمكن إجراء العمليات المعقدة والمتكررة لمرة واحدة في ثوانٍ.
  • أدخل صورًا متعددة عبر المجلدات في مستند Word مرة واحدة.
  • دمج ودمج ملفات Word المتعددة عبر المجلدات في ملف واحد بالترتيب الذي تريده.
  • قسّم المستند الحالي إلى مستندات منفصلة وفقًا للعنوان أو فاصل المقطع أو معايير أخرى.
  • قم بتحويل الملفات بين Doc و Docx و Docx و PDF ، ومجموعة من الأدوات للتحويلات والاختيارات الشائعة ، وما إلى ذلك ...
فرز التعليقات حسب
التعليقات (0)
لا يوجد تقييم. كن أول من يقيم!
لا توجد تعليقات منشورة هنا حتى الآن

تواصل معنا

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