Como inserir várias imagens com nome de arquivo no documento do Word?
No documento do Word, você pode inserir rapidamente várias imagens de uma vez usando a função Inserir. Mas, às vezes, você precisa inserir o caminho e os nomes do arquivo como legenda ao inserir as imagens. Como você lidaria com esta tarefa em arquivo Word?
Insira várias imagens com o nome do arquivo usando o código VBA
Insira várias imagens com nome de arquivo usando Kutools for Word
Insira várias imagens com o nome do arquivo usando o código VBA
O código VBA a seguir pode ajudá-lo a inserir o caminho e o nome do arquivo como legenda ao inserir as imagens, faça o seguinte:
1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. E então, clique inserção > Módulo, copie e cole o código abaixo no módulo em branco aberto:
Código VBA: insira várias imagens com o nome do arquivo:
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. Então aperte F5 para executar este código, uma janela de navegação é exibida, selecione a pasta que contém as imagens que deseja inserir, consulte a imagem:
4. Então clique OK botão, todas as imagens na pasta selecionada foram inseridas no documento do Word, e o caminho e o nome do arquivo são inseridos como legenda, veja a captura de tela:
Insira várias imagens com nome de arquivo usando Kutools for Word
Se você tem Kutools for Word, Com o seu Imagens recurso, você pode inserir rapidamente várias imagens com o caminho e nome do arquivo no documento do Word imediatamente.
Kutools for Word : com mais de 100 suplementos úteis do Word, grátis para testar sem limitação em 60 dias. |
Depois de instalar Kutools for Word, por favor, faça o seguinte:
1. Clique Kutools > Imagens, veja a captura de tela:
2. No estalou para fora Inserir imagens caixa de diálogo, faça as operações abaixo:
- (1.) Clique Adicionar arquivos or adicionar pasta botão para selecionar as imagens que deseja inserir;
- (2.) Em seguida, verifique Insira o caminho do arquivo de cada imagem como legenda opção na parte inferior esquerda da caixa de diálogo;
- (3.) Em seguida, clique em inserção botão.
3. Depois de inserir as imagens, você verá que o caminho do arquivo de cada imagem e o nome também foram inseridos, veja a captura de tela:
Clique para baixar o Kutools for Word e testar gratuitamente agora!
Melhores ferramentas de produtividade de escritório
Kutools for Word - Eleve sua experiência com palavras com mais 100 Recursos notáveis!
🤖 Assistente de IA do Kutools: Transforme sua escrita com IA - Gerar conteúdo / Reescrever texto / Resumir documentos / Pergunte para obter informações com base no documento, tudo dentro do Word
📘 Domínio de documentos: Páginas divididas / Mesclar Documentos / Seleção de exportação em vários formatos (PDF/TXT/DOC/HTML...) / Conversão em lote para PDF / Exportar páginas como imagens / Imprima vários arquivos de uma vez...
✏ Edição de conteúdo: Localização e substituição em lote em vários arquivos / Redimensionar todas as imagens / Transpor linhas e colunas da tabela / Converter tabela em texto...
🧹 Limpeza sem esforço: Varrer Espaços extras / Quebras de seção / Todos os cabeçalhos / Caixas de Texto / hiperlinks / Para mais ferramentas de remoção, acesse nosso Remover Grupo...
➕ Inserções criativas: Inserir Mil Separadores / Caixas de seleção / botões de rádio / QR Code / Código de barras / Tabela de linhas diagonais / Legenda da equação / Legenda da Imagem / Legenda da Tabela / Várias fotos / Descubra mais no Inserir Grupo...
🔍 Seleções de precisão: Identificar páginas específicas / tabelas / formas / parágrafos de título / Melhore a navegação com mais Selecione recursos...
⭐ Aprimoramentos de estrelas: Navegue rapidamente para qualquer local / inserir automaticamente texto repetitivo / alternar perfeitamente entre janelas de documentos / 11 ferramentas de conversão...