Como inserir várias imagens com o nome do arquivo em um Documento do Word?
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:
- Pressione Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.
- 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
- Pressione F5 para executar o código. Uma janela Procurar aparecerá, onde você poderá selecionar a pasta contendo as imagens.
- 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.
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.
Após instalar Kutools para Word, siga estas etapas:
- Clique em Kutools > Multi-Imagem.
- 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.
- Após inserir as imagens, o caminho do arquivo e o nome de cada imagem serão adicionados como legenda.
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...

Melhores Ferramentas de Produtividade para Office
Kutools para Word – 100+ Ferramentas para Word
- 🤖 Recursos de IA do Kutools: Assistente de IA / Assistente em Tempo Real / Super Polir / Super Traduzir / Redação por IA / Revisão por IA
- 📘 Domínio de Documentos: Dividir Páginas / Mesclar Documentos / Converter em Lote para PDF
- ✏ Edição de Conteúdo: Localizar e Substituir em Lote / Redimensionar Todas as Imagens
- 🧹 Limpeza Sem Esforço: Remover Espaços Extras / Remover Quebras de Seção
- ➕ Inserções Criativas: Inserir Separadores de Milhar / Inserir Caixas de Seleção / Criar QR Codes