Dica: outros idiomas são traduzidos pelo Google. Você pode visitar o English versão deste link.
Entrar
x
or
x
x
Registre-se
x

or

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 em linha e formas flutuantes, agora, você deseja contar o número desses elementos gráficos em todo o documento. Como você pode 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 inline e formas flutuantes com o código VBA


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

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

1. Clique Home > Encontrar > Pesquisa Avançada, veja a captura de tela:

imagens de contagem de docs 1

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

imagens de contagem de docs 2

3. E então você pode ver o número de imagens inline neste documento do Word foi exibido como a seguinte imagem mostrada:

imagens de contagem de docs 3


Conte o número de imagens inline 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 código VBA a seguir pode ajudá-lo a contar as imagens em linha e as formas flutuantes. Faça o seguinte:

1. Mantenha pressionado 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 inline 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 chave para executar este código, e uma caixa de aviso é exibida para informar quantas imagens embutidas e formas flutuantes neste documento do Word, veja a captura de tela:

imagens de contagem de docs 4




Ferramentas recomendadas de produtividade de palavras

Kutools for Word - Mais do que 100 Recursos avançados para Word, economize seu tempo 50%

  • Operações complicadas e repetidas podem ser feitas em processamento único em segundos.
  • Inserir várias imagens em pastas no documento do Word de uma só vez.
  • Mesclar e combinar vários arquivos do Word em pastas em um com o pedido desejado.
  • Divida o documento atual em documentos separados de acordo com o cabeçalho, quebra de seção ou outros critérios.
  • Converta arquivos entre Doc e Docx, Docx e PDF, coleção de ferramentas para conversões e seleção comuns e assim por diante ...
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.