KutoolsforOffice — Uma solução, cinco ferramentas poderosas.Fazer mais com menos esforço.

Como inserir várias imagens num documento do Word, mantendo o nome de cada ficheiro?

AutorXiaoyang Data de Modificação

Num documento do Word, pode inserir rapidamente várias imagens de uma só vez através da função Inserir. Contudo, poderá surgir a necessidade de incluir o caminho do arquivo e os nomes dos ficheiros como legendas ao inserir as imagens — uma solução particularmente útil em documentação, relatórios ou apresentações onde seja essencial referenciar a origem de cada imagem.

Neste tutorial, vamos guiá-lo passo a passo na inserção eficiente de várias imagens no Word, incluindo automaticamente o respetivo caminho do arquivo e os nomes dos ficheiros como legendas — facilitando assim a gestão das suas imagens.

Inserir várias imagens com o nome do ficheiro utilizando um código VBA

Inserir várias imagens com o nome do ficheiro utilizando Kutools para Word

Inserir várias imagens com o nome do ficheiro utilizando código VBA

O código VBA seguinte permite-lhe inserir várias imagens, acompanhadas do respetivo caminho do ficheiro e nome como legendas. Siga estes passos:

  1. Mantenha premido Alt + F11 para abrir a janela do 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. Prima F5 para executar o código. Aparecerá uma janela Procurar onde poderá selecionar a pasta que contém as imagens.

    4. Selecione uma pasta da qual inserir imagens

  4. Clique em OK, e todas as imagens da pasta selecionada serão inseridas no documento do Word, com o respetivo Caminho do Arquivo e nome incluídos como legendas.

    As imagens selecionadas são inseridas no documento com os respetivos nomes de ficheiro

Inserir várias imagens com o nome do ficheiro utilizando Kutools para Word

Utilizar o Kutools para Word é uma forma eficiente de inserir várias imagens, juntamente com os respetivos nomes e caminhos dos ficheiros, num documento do Word. Esta funcionalidade poupa tempo e garante maior precisão em comparação com a introdução manual dos detalhes dos ficheiros. Com a sua funcionalidade Imagens, pode realizar esta tarefa sem esforço.

Kutools para Word

O Kutools para Word ajuda-o a realizar tarefas diárias com documentos de forma mais rápida, graças a ferramentas práticas integradas diretamente no Microsoft Word — sem necessidade de programação nem configuração complexa.

  • Redação, aperfeiçoamento, tradução e resumo com IA
  • Localizar e Substituir em Lote em todos os documentos
  • Combine e divida documentos do Word facilmente
  • Conversão em lote entre Word ↔ PDF
TransferirSaber mais

Após instalar Kutools para Word, siga estes passos:

  1. Clique em Kutools>Imagens Múltiplas.

    Opção Imagens Múltiplas no separador Kutools na faixa de opções

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

      Caixa de diálogo Inserir Imagens

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

    As imagens selecionadas são inseridas no documento com os respetivos nomes de ficheiro

Procura uma forma mais rápida de lidar com tarefas semelhantes no Word? Experimente o Kutools para Word e simplifique o seu trabalho diário.

TransferirSaber mais

As Melhores Ferramentas de Produtividade para o Office

Kutools para Word – Potencie a sua experiência no Word com mais de 100 funcionalidades extraordinárias!

🤖Funcionalidades do KUTOOLS AI: 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 de Documentos: Dividir Páginas / Mesclar Documentos / Exportar Seleção em Vários Formatos (PDF, TXT, DOC, HTML...) / Conversão em Lote para PDF...

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

🧹Limpeza sem Esforço: remova facilmente Espaços Extra, Quebras de Secção, Caixas de Texto e Hiperligações. Para mais ferramentas de remoção, aceda ao grupo Remover...

➕Inserções Criativas: Insira Separadores de Milhares, Caixa de Seleção, Botão de Rádio, Código QR, Código de Barras ou Múltiplas Imagens — descubra mais no grupo Inserir...

🔍Seleções Precisas: Selecione com precisão Páginas Específicas, Tabelas, Formas e Parágrafo de Título. Melhore a navegação com mais funcionalidades de seleçãofeatures ......

⭐Melhorias Estrela: Navegar para Qualquer Localização / Inserir Automaticamente Texto Repetitivo / Alternar entre Documentos do Windows / 11 Conversão Ferramentas de...

🌍Suporta mais de 40 idiomas: Utilize o Kutools na sua língua preferida – disponível em inglês, espanhol, alemão, francês, chinês e mais de 40 idiomas!

Kutools for Word separadores na faixa de opções
 
 

Office Tab– Traz a interface com separadores para o Office, tornando o seu trabalho muito mais fácil

  • Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie múltiplos documentos em novos separadores da mesma janela, em vez de em novas janelas.
  • Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato por dia!

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

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

📦 Obtenha todas as 5 ferramentas num único conjunto | 🔗 Integração perfeita com o Microsoft Office | ⚡ Economizar Tempo e potencie imediatamente a produtividade

As Melhores Ferramentas de Produtividade para o Office

Kutools para Word– Ferramentas 100+ para o Word

Transferência GratuitaComprar AgoraSaber Mais sobre o Kutools