نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

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

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

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

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


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

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

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

عد عدد الصور 1

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

عد عدد الصور 2

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

عد عدد الصور 3


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

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

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

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

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

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 هذا ، راجع لقطة الشاشة:

عد عدد الصور 4




أوصت كلمة أدوات الإنتاجية

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

  • يمكن إجراء العمليات المعقدة والمتكررة لمرة واحدة خلال ثوانٍ.
  • إدراج صور متعددة عبر المجلدات في مستند Word مرة واحدة.
  • دمج ودمج ملفات Word متعددة عبر مجلدات في واحد بالترتيب المطلوب.
  • قسّم المستند الحالي إلى مستندات منفصلة وفقًا للعنوان أو فاصل المقاطع أو معايير أخرى.
  • تحويل الملفات بين Doc و Docx و Docx و PDF ، ومجموعة من الأدوات للتحويلات والتحديدات الشائعة ، وما إلى ذلك ...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.