किसी Word दस्तावेज़ में छवियों की संख्या कैसे गिनें?

लेखक: ज़ियाओयांग अंतिम संशोधित: 2018-08-31

यदि आपके वर्ड दस्तावेज़ में कई ग्राफिक्स हैं जिनमें इनलाइन छवियां और फ्लोटिंग आकार दोनों शामिल हैं, अब, आप पूरे दस्तावेज़ में इन ग्राफिक्स की संख्या की गणना करना चाहते हैं, तो आप छवियों की संख्या जल्दी और सही तरीके से कैसे प्राप्त कर सकते हैं?

ढूँढें और बदलें सुविधा के साथ इनलाइन छवियों की संख्या की गणना करें

VBA कोड के साथ इनलाइन छवियों और फ्लोटिंग आकृतियों दोनों की संख्या की गणना करें

ढूँढें और बदलें सुविधा के साथ इनलाइन छवियों की संख्या की गणना करें

RSI ढूँढें और बदलें वर्ड में मौजूद फीचर आपको इनलाइन चित्रों की संख्या को जल्दी और आसानी से गिनने में मदद कर सकता है, कृपया निम्नानुसार करें:

1। क्लिक करें होम > खोज > उन्नत खोज, स्क्रीनशॉट देखें:

दस्तावेज़ गणना छवियाँ 1

2. में ढूँढें और बदलें डायलॉग बॉक्स, के अंतर्गत खोज टैब, टाइप करें ^g में क्या पता टेक्स्ट बॉक्स, और फिर चुनें मुख्य दस्तावेज़ से इसमे ढूंडो ड्रॉप डाउन सूची, स्क्रीनशॉट देखें:

दस्तावेज़ गणना छवियाँ 2

3. और फिर आप देख सकते हैं कि इस वर्ड दस्तावेज़ में इनलाइन छवियों की संख्या निम्न स्क्रीनशॉट के अनुसार प्रदर्शित की गई है:

दस्तावेज़ गणना छवियाँ 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 इस कोड को चलाने के लिए कुंजी, और एक प्रॉम्प्ट बॉक्स पॉप आउट होता है जो आपको बताता है कि इस वर्ड दस्तावेज़ में कितनी इनलाइन छवियां और फ़्लोटिंग आकार हैं, स्क्रीनशॉट देखें:

दस्तावेज़ गणना छवियाँ 4