İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Bir Word sənədindəki şəkil sayını necə saymaq olar?

Hər iki inline şəkli və üzən şəkilləri olan Word sənədinizdə bir neçə qrafik varsa, indi bu qrafik sayını bütün sənəddə saymaq istəyirsən, şəkillərin sayını tez və düzgün şəkildə necə əldə edə bilərsiniz?

Satırdakı şəkillərin sayını tapın və dəyişdirin

VBA kodu ilə həm inline şəkillər, həm də üzən şəkillər sayını hesablayın


Satırdakı şəkillərin sayını tapın və dəyişdirin

The Tapın və dəyişdirin Word xüsusiyyətləri, inline şəkillər sayını tez və asanlıqla saymaqda sizə kömək edə bilər, xahiş edirəm:

1. Basın ev > Tapmaq > Ətraflı axtarış, bax ekran görüntüsü:

doc count images 1

2. İçində Tapın və dəyişdirin informasiya qutusu altında Tapmaq nişanı yazın ^g daxil Nə tapın mətn qutusunu seçin və sonra seçin Əsas sənəd dən Tapın açılır siyahı, ekran görünüşünə baxın:

doc count images 2

3. Və bu Word sənədindəki inline görünüşlərin sayını aşağıdakı ekran görüntüsü kimi göstərildiyini görə bilərsiniz:

doc count images 3


VBA kodu ilə həm inline şəkillər, həm də üzən şəkillər sayını hesablayın

Yuxarıda göstərilən üsul sənəddə bəzi üzən şəkillər varsa, sayılmayan şəkillərin sayını yalnız sayır. Aşağıdakı VBA kodu həm inline şəkilləri, həm də üzən formaları saymağa kömək edə bilər, belə edin:

1. Basıb saxlayın ALT + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. Sonra basın Taxmaq > Modules, kodu aşağıda açıq modulun surətinə kopyalayın və yapışdırın, ekran görüntüsünə baxın:

VBA kodu: Hər iki inline şəkillərin və üzən şəkillərin sayını qeyd edin:

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. Kodu bağladıktan sonra basın F5 bu kodu çalıştırmak üçün bir tuşa basın və bu Word belgesinde kaç satır içi şəkillər və üzən şəkillər barədə danışmaq üçün bir istenir qutusu açılır, ekran görünüşünə baxın:

doc count images 4




Word üçün Kutools

100, 2003, 2007, 2010, 2013 və 2016 üçün 2019 Ətraflı funksiyaları

shot-kutools-700-225-kte

Daha çox xüsusiyyətlər | Pulsuz Yüklə | Yüzlərlə funksiya üçün yalnız $ 39.00

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.