¿Cómo insertar varias imágenes con nombre de archivo en un documento de Word?

En un documento de Word, puede insertar rápidamente varias imágenes a la vez mediante la función Insertar. Pero, a veces, debe insertar la ruta del archivo y los nombres como título al insertar las imágenes. ¿Cómo podría lidiar con esta tarea en un archivo de Word?

Inserte varias imágenes con nombre de archivo usando el código VBA

Inserte varias imágenes con nombre de archivo usando Kutools para Word

Inserte varias imágenes con nombre de archivo usando el código VBA

El siguiente código VBA puede ayudarlo a insertar la ruta del archivo y el nombre como título al insertar las imágenes, haga lo siguiente:

1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Y luego, haga clic en recuadro > Módulo, copie y pegue el código siguiente en el módulo en blanco abierto:

Código VBA: inserte varias imágenes con el nombre de archivo:

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. Entonces presione F5 para ejecutar este código, se muestra una ventana de exploración, seleccione la carpeta que contiene las imágenes que desea insertar, vea la captura de pantalla:

4. Luego haga clic OK , todas las imágenes en la carpeta seleccionada se han insertado en el documento de Word, y la ruta del archivo y el nombre se insertan como título, mira la captura de pantalla:

Inserte varias imágenes con nombre de archivo usando Kutools para Word

Si tiene Kutools for Word, Con su Imágenes función, puede insertar rápidamente varias imágenes con la ruta del archivo y el nombre en el documento de Word inmediatamente.

Después de instalar Kutools for Word, haz lo siguiente:

1. Presione Kutools > Imágenes, ver captura de pantalla:

2. En el estalló Insertar imágenes cuadro de diálogo, realice las siguientes operaciones:

• (1.) Haga clic en agregar archivos or Agregar carpeta botón para seleccionar las imágenes que desea insertar;
• (2.) Luego verifique Inserte la ruta del archivo de cada imagen como título opción en la parte inferior izquierda del cuadro de diálogo;
• (3.) Y luego haga clic en recuadro

3. Después de insertar las imágenes, verá que la ruta del archivo de cada imagen y el nombre también se insertan, vea la captura de pantalla:

¡Haga clic para descargar Kutools para Word y una prueba gratuita ahora!

---

Herramientas de productividad de palabras recomendadas

 

Kutools para Word: más de 100 funciones avanzadas para Word, ahorre su 50% de tiempo

• Las operaciones complicadas y repetidas se pueden realizar un solo procesamiento en segundos.
• Inserte varias imágenes en carpetas en un documento de Word a la vez.
• Fusiona y combina varios archivos de Word en carpetas en uno con el orden que desees.
• Divida el documento actual en documentos separados según el encabezado, el salto de sección u otros criterios.
• Convierta archivos entre Doc y Docx, Docx y PDF, colección de herramientas para conversiones y selección comunes, etc.

Leer más Descargar Ahora Comprar