Skip to main content

Como inserir várias imagens com o nome do arquivo em um Documento do Word?

Author: Xiaoyang Last Modified: 2025-08-06

Em um Documento do Word, você pode inserir rapidamente várias imagens de uma só vez usando a função Inserir. No entanto, pode haver momentos em que seja necessário incluir o caminho do arquivo e os nomes dos arquivos como legendas ao inserir as imagens. Isso pode ser particularmente útil para documentação, relatórios ou apresentações onde referenciar a fonte da imagem é importante.

Neste tutorial, vamos guiá-lo pelas etapas para inserir várias imagens com seus caminhos de arquivo e nomes de arquivos como legendas em um Documento do Word, ajudando você a gerenciar suas imagens de forma mais eficaz.

Inserir várias imagens com nome de arquivo usando um código VBA

Inserir várias imagens com nome de arquivo usando Kutools para Word

Inserir várias imagens com nome de arquivo usando código VBA

O seguinte código VBA ajuda você a inserir várias imagens junto com seu caminho de arquivo e nome como legendas. Por favor, siga estas etapas:

  1. Pressione Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.
  2. Clique em Inserir > Módulo, e cole o seguinte código no módulo aberto: 
    Sub PicWithCaption()
    Dim xFileDialog As FileDialog
    Dim xPath, xFile As Variant
    On Error Resume Next
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    If xFileDialog.Show = -1 Then
        xPath = xFileDialog.SelectedItems.Item(1)
        If xPath <> "" Then
            xFile = Dir(xPath & "\*.*")
            Do While xFile <> ""
                If UCase(Right(xFile, 3)) = "PNG" Or _
                    UCase(Right(xFile, 3)) = "TIF" Or _
                    UCase(Right(xFile, 3)) = "JPG" Or _
                    UCase(Right(xFile, 3)) = "GIF" Or _
                    UCase(Right(xFile, 3)) = "BMP" Then
                    With Selection
                        .InlineShapes.AddPicture xPath & "\" & xFile, False, True
                        .InsertAfter vbCrLf
                        .MoveDown wdLine
                        .Text = xPath & "\" & xFile & Chr(10)
                        .MoveDown wdLine
                    End With
                End If
                xFile = Dir()
            Loop
        End If
    End If
End Sub
  3. Pressione F5 para executar o código. Uma janela Procurar aparecerá, onde você poderá selecionar a pasta contendo as imagens.

    4. Select a folder to insert pictures from

  4. Clique em OK, e todas as imagens da pasta selecionada serão inseridas no Documento do Word, com seu caminho de arquivo e nome incluídos como legendas.

    Selected pictures are inserted into the document with filenames

Inserir várias imagens com nome de arquivo usando Kutools para Word

Usar Kutools para Word oferece uma maneira eficiente de inserir várias imagens junto com seus caminhos de arquivo e nomes em um Documento do Word. Esse recurso economiza tempo e garante precisão em comparação com adicionar detalhes de arquivos manualmente. Com o recurso Imagens, você pode realizar essa tarefa sem esforço.

Kutools para Word,equipado com IA 🤖, oferece mais de 100 recursos práticos para simplificar suas tarefas.

Após instalar Kutools para Word, siga estas etapas:

  1. Clique em Kutools > Multi-Imagem.

    Multi-Picture option on the Kutools tab on the ribbon

  2. Na caixa de diálogo que apareceu, Inserir Imagens realize as seguintes operações:
    • Clique em Adicionar Arquivos ou Adicionar Pasta para selecionar as imagens que deseja inserir.
    • Marque a opção Inserir caminho do arquivo de cada imagem como legenda na parte inferior esquerda da caixa de diálogo.
    • Clique no botão Inserir para inserir as imagens de uma só vez.

      Insert Pictures dialog box

  3. Após inserir as imagens, o caminho do arquivo e o nome de cada imagem serão adicionados como legenda.

    Selected pictures are inserted into the document with filenames

Kutools para Word é o complemento definitivo para o Word que simplifica seu trabalho e aprimora suas habilidades de processamento de documentos. Adquira agora!

Melhores Ferramentas de Produtividade para Escritório

Kutools para Word – Eleve sua experiência no Word com mais de 100 recursos incríveis!

🤖 Recursos de IA do Kutools: Assistente de IA / Assistente em Tempo Real / Super Polir (Preservar Formato) / Super Traduzir (Preservar Formato) / Redação por IA / Revisão por IA...

📘 Domínio do Documento: Dividir Páginas / Mesclar Documentos / Exportar Seleção em Diversos Formatos (PDF/TXT/DOC/HTML...) / Converter em Lote para PDF...

✏ Edição de Conteúdo: Localizar e Substituir em Lote em Múltiplos Arquivos / Redimensionar Todas as Imagens / Transpor Linhas e Colunas da Tabela / Converter Tabela para Texto...

🧹 Limpeza Sem Esforço: Livre-se de Espaços Extras / Quebras de Seção / Caixas de Texto / Hiperlinks / Para mais ferramentas de remoção, acesse o grupo Remover...

➕ Inserções Criativas: Inserir Separadores de Milhar / Caixas de Seleção / Botões de Rádio / QR Code / Código de Barras / Múltiplas Imagens / Descubra mais no grupo Inserir...

🔍 Seleções de Precisão: Selecione Páginas Específicas / Tabelas / Formas / Parágrafos de Título / Melhore a navegação com mais recursos do Selecionar ...

⭐ Aprimoramentos Estrela: Navegue para Qualquer Localização / Insira Texto Repetitivo Automaticamente / Alterne Entre Janelas de Documento /11 Ferramentas de Conversão...

🌍 Suporte a mais de40 idiomas: Use o Kutools no seu idioma preferido – compatível com Inglês, Espanhol, Alemão, Francês, Chinês e muitos outros!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Quer experimentar esses recursos? Baixe o Kutools para Word agora! 🚀
 

Melhores Ferramentas de Produtividade para Escritório

Kutools para Word – 100+ ferramentas para Word

Download Gratuito Comprar Agora Saiba Mais sobre o Kutools