KutoolsforOffice — Una solución, cinco potentes herramientas.Lograr más con menos esfuerzo.Venta de marzo: 20 % de descuento

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

AutorXiaoyang Fecha de modificación

En un documento de Word, puede insertar rápidamente varias imágenes a la vez mediante la función Insertar. Sin embargo, puede haber ocasiones en las que necesite incluir la Ruta de archivo y los nombres de archivo como leyendas al insertar las imágenes. Esto resulta especialmente útil en documentación, informes o presentaciones en los que es importante hacer referencia al origen de la imagen.

En este tutorial, le guiaremos paso a paso para insertar varias imágenes en un documento de Word, incluyendo su ruta de archivo y los nombres de archivo como leyendas, lo que le permitirá gestionar sus imágenes de forma más eficaz.

Insertar varias imágenes con el nombre del archivo mediante código VBA

Insertar varias imágenes con el nombre del archivo mediante Kutools para Word

Insertar varias imágenes con el nombre del archivo mediante código VBA

El siguiente código VBA le permite insertar varias imágenes, incluyendo su ruta de archivo y su nombre como leyendas. Siga estos pasos:

  1. Mantenga pulsadas las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
  2. Haga clic en Insertar>Móduloy pegue el siguiente código en el módulo abierto: 
    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. Pulse F5 para ejecutar el código. Aparecerá una ventana de Examinar donde podrá seleccionar la carpeta que contiene las imágenes.

    4. Seleccione una carpeta de la que insertar imágenes

  4. Haga clic en Aceptary todas las imágenes de la carpeta seleccionada se insertarán en el documento de Word, incluyendo su Ruta de archivo y su nombre como leyendas.

    Las imágenes seleccionadas se insertan en el documento con sus nombres de archivo

Insertar varias imágenes con el nombre del archivo mediante Kutools para Word

Usar Kutools para Word ofrece una forma eficaz de insertar varias imágenes junto con su ruta de archivo y sus nombres en un documento de Word. Esta función ahorra tiempo y garantiza mayor precisión en comparación con la introducción manual de los detalles del archivo. Gracias a su función de Imágenes, podrá realizar esta tarea sin esfuerzo.

Kutools para Word

Kutools para Word le ayuda a gestionar las tareas diarias con documentos más rápido gracias a herramientas prácticas integradas directamente en Microsoft Word: sin programación ni configuración compleja.

  • Redacción, corrección, traducción y resumen con IA
  • Buscar y reemplazar en lote en todos los documentos
  • Combina y divide documentos de Word fácilmente
  • Conversión masiva entre Word y PDF
DescargarMás información

Tras instalar Kutools para Word, siga estos pasos:

  1. Haga clic en Kutools>Varias imágenes.

    Opción Multi-imagen en la pestaña de Kutools en la cinta de opciones

  2. En el cuadro de diálogo emergente Insertar imágenes, realice las siguientes operaciones:
    • Haga clic en Agregar Archivos o en Agregar Carpeta para seleccionar las imágenes que desea insertar.
    • Marque la opción Insertar la ruta del archivo de cada imagen como leyenda en la parte inferior izquierda del cuadro de diálogo.
    • Haga clic en el botón Insertarpara insertar las imágenes de una sola vez.

      Cuadro de diálogo Insertar imágenes

  3. Tras insertar las imágenes, la ruta del archivo y el nombre de cada una se añadirán como leyenda.

    Las imágenes seleccionadas se insertan en el documento con sus nombres de archivo

¿Busca una forma más rápida de gestionar tareas similares en Word? Pruebe Kutools para Word y simplifique su trabajo diario.

DescargarMás información

Las mejores herramientas de productividad para Office

Kutools para Word- Potencie su experiencia en Word con más de 100funciones extraordinarias

🤖Funcionalidades de KUTOOLS AI: Asistente de IA / Asistente en Tiempo Real / Super Pulir (conservar formato) / Super Traducir (conservar formato) / Redacción con IA / Revisión con IA…

📘Dominio del documento: Dividir páginas, combinar documentos, exportar selecciones en varios formatos (PDF, TXT, DOC, HTML…) y convertir varios documentos a PDF…

✏Edición de contenidos: Buscar y reemplazar en lote en varios archivos / Redimensionar todas las imágenes / Transponer filas y columnas de la tabla / Convertir tabla a texto...

🧹Limpieza sin esfuerzo: Elimine rápidamente espacios adicionales, saltos de sección, cuadros de texto e hipervínculos. Para más herramientas de eliminación, vaya al grupo Eliminar…

➕Inserciones creativas: Inserte separadores de miles, casillas de verificación, botones de opción, códigos QR, códigos de barras o varias imágenes. ¡Descubra más en el grupo Insertar…

🔍Selecciones precisas: Localice exactamente páginas específicas, tablas, formas o párrafos de encabezado. Mejore la navegación con más funciones de selecciónfeatures ......

⭐Mejoras destacadas: Navega a cualquier ubicación / Inserta automáticamente texto repetitivo / Alterna entre documentos de Windows / 11 …herramientas de conversión…

🌍Compatible con 40+ idiomas: Use Kutools en su idioma preferido – compatible con inglés, español, alemán, francés, chino y 40+ más idiomas

Kutools for Word pestañas en la cinta de opciones
 
 

Office Tab- Aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en ventanas nuevas.
  • ¡Aumente su productividad en un 50 % y ahorre cientos de clics de ratón cada día!

✨ Kutools for Office – ¡Una instalación, cinco herramientas potentes!

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

📦 Obtenga las 5 herramientas en un único conjunto | 🔗 Integración perfecta con Microsoft Office | ⚡ Ahorrar tiempo y aumente su productividad al instante

Las mejores herramientas de productividad para Office

Kutools para Word- Herramientas 100+ para Word

Descarga gratuitaComprar ahoraMás información sobre Kutools