Cum se numără numărul de imagini dintr-un document Word?

Dacă există mai multe elemente grafice în documentul dvs. Word care conțin atât imagini în linie, cât și forme plutitoare, acum doriți să numărați numărul acestor elemente grafice în întregul document, cum ați putea obține numărul de imagini rapid și corect?

Numărați numărul de imagini în linie cu funcția Găsiți și înlocuiți

Numărați numărul de imagini în linie și forme plutitoare cu codul VBA

Numărați numărul de imagini în linie cu funcția Găsiți și înlocuiți

Găsiți și înlocuiți funcția din Word vă poate ajuta să numărați numărul de imagini în linie numai rapid și ușor, vă rugăm să faceți următoarele:

1. Clic Acasă > Găsi > Căutare avansată, vezi captura de ecran:

imagini cu număr de documente 1

2. În Găsiți și înlocuiți caseta de dialog, sub Găsi fila, tastați ^g în Gaseste ce caseta de text, apoi alegeți Documentul principal de la Gasit in lista derulantă, vezi captura de ecran:

imagini cu număr de documente 2

3. Și apoi puteți vedea numărul de imagini în linie din acest document Word a fost afișat după cum urmează:

imagini cu număr de documente 3

Numărați numărul de imagini în linie și forme plutitoare cu codul VBA

Metoda de mai sus poate conta doar numărul de imagini în linie, dacă există unele forme plutitoare în document, acestea nu vor fi numărate. Următorul cod VBA vă poate ajuta să numărați atât imaginile în linie, cât și formele plutitoare, vă rugăm să procedați astfel:

1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Apoi apasa Insera > Module, copiați și lipiți codul de mai jos în modulul gol deschis, vedeți captura de ecran:

Cod VBA: Numărați atât imaginile în linie, cât și formele plutitoare:

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. După lipirea codului, apoi apăsați F5 tasta pentru a rula acest cod și apare o casetă de prompt pentru a vă spune câte imagini în linie și forme plutitoare din acest document Word, vedeți captura de ecran:

imagini cu număr de documente 4