Skip to main content

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

Author: Xiaoyang Last Modified: 2025-06-04

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

  5. 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 Office

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 (Preserva Formato) / Super Traduzir (Preserva Formato) / Redação por IA / Revisão por IA...

📘 Domínio de Documentos: 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 Vários Arquivos / Redimensionar Todas as Imagens / Transpor Linhas e Colunas da Tabela / Converter Tabela para Texto...

🧹 Limpeza Sem Esforço: Elimine 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 Precisas: Identifique Páginas Específicas / Tabelas / Formas / Parágrafos de Título / Melhore a navegação com mais recursos de Selecionar...

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

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

Melhores Ferramentas de Produtividade para Office

Kutools para Word – 100+ Ferramentas para Word