Как да преброя броя на изображенията в документ на Word?

Автор: Xiaoyang Последна промяна: 2018-08-31

Ако във вашия документ на Word има множество графики, които съдържат както вградени изображения, така и плаващи фигури, сега искате да преброите броя на тези графики в целия документ, как можете да получите броя на изображенията бързо и правилно?

Пребройте броя на вградените изображения с функцията за намиране и замяна

Пребройте броя както на вградените изображения, така и на плаващите фигури с VBA код

Пребройте броя на вградените изображения с функцията за намиране и замяна

- Търсене и заместване функцията в Word може да ви помогне да преброите броя на вградените картини само бързо и лесно, моля, направете следното:

1. Щракнете Начало > Какво > Разширено търсене, вижте екранна снимка:

doc брой изображения 1

2. В Търсене и заместване диалогов прозорец, под Какво раздел, въведете ^g в Намерете това, текстово поле и след това изберете Основен документ от Намери в падащ списък, вижте екранната снимка:

doc брой изображения 2

3. След това можете да видите, че броят на вградените изображения в този документ на Word е показан като следната екранна снимка:

doc брой изображения 3

Пребройте броя както на вградените изображения, така и на плаващите фигури с VBA код

Горният метод може да преброи само броя на вградените изображения, ако има някои плаващи фигури в документа, те няма да бъдат отчетени. Следният VBA код може да ви помогне да преброите както вградените изображения, така и плаващите фигури, моля, направете следното:

1. Задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.

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, вижте екранната снимка:

doc брой изображения 4