Como contar o número de imagens em um documento do Word?

Se houver vários gráficos em seu documento do Word que contenham imagens embutidas e formas flutuantes, agora, você deseja contar o número desses gráficos em todo o documento, como poderia obter o número de imagens de forma rápida e correta?

Conte o número de imagens embutidas com o recurso Localizar e Substituir

Conte o número de imagens embutidas e formas flutuantes com o código VBA

Conte o número de imagens embutidas com o recurso Localizar e Substituir

A Localizar e substituir recurso no Word pode ajudá-lo a contar o número de imagens embutidas apenas de forma rápida e fácil, faça o seguinte:

1. Clique INÍCIO > Encontre > Pesquisa Avançada, veja a captura de tela:

imagens de contagem de documentos 1

2. No Localizar e substituir caixa de diálogo, sob o Encontre guia, digite o ^g no Encontre o que caixa de texto e, em seguida, escolha Documento principal do Encontre em lista suspensa, veja a captura de tela:

imagens de contagem de documentos 2

3. E então você pode ver que o número de imagens embutidas neste documento do Word foi exibido conforme a seguinte captura de tela:

imagens de contagem de documentos 3

Conte o número de imagens embutidas e formas flutuantes com o código VBA

O método acima só pode contar o número de imagens embutidas, se houver algumas formas flutuantes no documento, elas não serão contadas. O seguinte código VBA pode ajudá-lo a contar as imagens embutidas e as formas flutuantes, faça o seguinte:

1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. Então clique inserção > Módulo, copie e cole o código abaixo no módulo em branco aberto, veja a captura de tela:

Código VBA: conte o número de imagens embutidas e formas flutuantes:

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. Depois de colar o código, pressione F5 para executar este código, e uma caixa de prompt é exibida para informar quantas imagens embutidas e formas flutuantes neste documento do Word, consulte a captura de tela:

imagens de contagem de documentos 4