Note: The other languages of the website are Google-translated. Back to English

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 o nome do arquivo usando o 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:

doc inserir imagens com nome de arquivo 1

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:

doc inserir imagens com nome de arquivo 2


Insira várias imagens com o nome do arquivo usando o 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:

doc inserir imagens com nome de arquivo 3

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.

doc inserir imagens com nome de arquivo 4

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:

doc inserir imagens com nome de arquivo 5

Clique para baixar Kutools para Word e teste gratuito agora!


Ferramentas de produtividade de palavras recomendadas

 

Kutools para Word - Mais de 100 recursos avançados para Word, economize 50% do tempo

  • Operações complicadas e repetidas podem ser executadas com processamento único em segundos.
  • Insira várias imagens em pastas em um documento do Word de uma vez.
  • Mescle e combine vários arquivos do Word em pastas em um na ordem desejada.
  • Divida o documento atual em documentos separados de acordo com o título, quebra de seção ou outros critérios.
  • Converta arquivos entre Doc e Docx, Docx e PDF, coleção de ferramentas para conversões e seleção comuns, e assim por diante ...
Comentários (6)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
buenas noches amigo me ha servido mucho su información sinembargo me surge una duda cree que é possível incertar imagens em word de la misma manera pero dentro de celdas incertadas?
Este comentário foi feito pelo moderador no site
Qual linha de código você mudaria e como ter o caminho do arquivo escrito antes da imagem, também conhecido como a legenda (nome do arquivo) está acima e não abaixo.
Este comentário foi feito pelo moderador no site
Com Seleção
.Texto = xArquivo
.InlineShapes.AddPicture xPath & "\" & xFile, False, True
.Inserir após vbCrLf
.Mover para baixo wdLine

Terminar com
Este comentário foi feito pelo moderador no site
Tem que adicionar este .MoveDown wdLine após .Text=xFile
Este comentário foi feito pelo moderador no site
Uau isso é ótimo! Eu só precisava do nome do arquivo, então apaguei "xPath & "\" &" da linha .Text e funcionou perfeitamente. Obrigado por isso!
Este comentário foi feito pelo moderador no site
Ocorre um problema quando o nome do arquivo a ser adicionado excede 10.

pic1
pic10
pic11
pic12
pic2
pic3
pic4
foto5...
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos