Skip to main content

Kutools para Office — Uma Suíte. Cinco Ferramentas. Aumente sua Produtividade.

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

Author Xiaoyang Last modified

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 Office

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

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

📘 Domínio de Documentos: Dividir Páginas / Mesclar Documentos / Exportar Seleção em vários formatos (PDF/TXT/DOC/HTML...) / Converter em Lote para PDF...

✏ Edição de Corpo: Localizar e Substituir em Lote em múltiplos arquivos / Redimensionar todas as Imagens / Transpor Linhas e Colunas de Tabela / Converter Tabela para Texto...

🧹 Limpeza Fácil: Elimine Espaços Extras / Quebras de Seção / Caixas de Texto / Hiperlinks / Para mais ferramentas de Remover, acesse o grupo Remover...

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

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

⭐ Melhorias Destacadas: Navegue para qualquer Intervalo / Insira Texto Repetitivo automaticamente / Alternar entre Janelas de Documento /11 ferramentas de Conversão...

🌍 Compatível com40+ Idiomas: Use Kutools no seu idioma preferido — compatível com Inglês, Espanhol, Alemão, Francês, Chinês e mais de40 outros!

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

✨ Kutools for Office – Uma Instalação, Cinco Ferramentas Poderosas!

Inclui Office Tab Pro · Kutools para Excel · Kutools para Outlook · Kutools for Word · Kutools for PowerPoint

📦 Tenha todas as5 ferramentas em uma única suíte | 🔗 Integração perfeita com o Microsoft Office | ⚡ Economize Tempo e aumente a produtividade imediatamente

Melhores Ferramentas de Produtividade para Office

Kutools for Word – 100+ ferramentas para Word

Download Gratuito Comprar Agora Saiba Mais sobre o Kutools