Skip to main content

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

Author: Xiaoyang Last Modified: 2025-06-04

En un documento de Word, puedes insertar rápidamente varias imágenes a la vez utilizando la función Insertar. Sin embargo, puede haber ocasiones en las que necesites incluir la ruta del archivo y los nombres de archivo como subtítulos al insertar las imágenes. Esto puede ser particularmente útil para documentación, informes o presentaciones donde es importante hacer referencia a la fuente de la imagen.

En este tutorial, te guiaremos a través de los pasos para insertar eficientemente varias imágenes junto con sus rutas de archivo y nombres de archivo como subtítulos en un documento de Word, ayudándote a gestionar tus imágenes de manera más efectiva.

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

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


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

El siguiente código VBA te ayuda a insertar varias imágenes junto con su ruta de archivo y nombre como subtítulos. Por favor, sigue estos pasos:

  1. Mantén presionado Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
  2. Haz clic en Insertar > Módulo, y pega 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. Presiona F5 para ejecutar el código. Aparecerá una ventana Examinar donde podrás seleccionar la carpeta que contiene las imágenes.
  4. Select a folder to insert pictures from

  5. Haz clic en Aceptar, y todas las imágenes de la carpeta seleccionada se insertarán en el documento de Word, con su ruta de archivo y nombre incluidos como subtítulos.

    Selected pictures are inserted into the document with filenames


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

Usar Kutools para Word proporciona una manera eficiente de insertar varias imágenes junto con sus rutas de archivo y nombres en un documento de Word. Esta característica ahorra tiempo y asegura precisión en comparación con agregar manualmente los detalles del archivo. Con su función Imágenes, puedes realizar esta tarea sin esfuerzo.

Kutools para Word,equipado con inteligencia artificial 🤖, ofrece más de 100 funciones prácticas para simplificar tus tareas.

Después de instalar Kutools para Word, sigue estos pasos:

  1. Haz clic en Kutools > Multi-Imagen.

    Multi-Picture option on the Kutools tab on the ribbon

  2. En el cuadro de diálogo emergente Insertar Imágenes realiza las siguientes operaciones:
    • Haz clic en Agregar Archivos o Agregar Carpeta para seleccionar las imágenes que deseas insertar.
    • Marca la opción Insertar ruta del archivo de cada imagen como subtítulo en la parte inferior izquierda del cuadro de diálogo.
    • Haz clic en el botón Insertar para insertar las imágenes de una vez.

      Insert Pictures dialog box

  3. Después de insertar las imágenes, la ruta del archivo y el nombre de cada imagen se añadirán como subtítulo.

    Selected pictures are inserted into the document with filenames

Kutools para Word es el complemento definitivo para Word que agiliza tu trabajo y potencia tus habilidades de procesamiento de documentos. ¡Consíguelo ahora!

Las mejores herramientas de productividad para Office

Kutools para Word - ¡Mejora tu experiencia en Word con más de 100 funciones excepcionales!

🤖 Funciones de IA de Kutools: Asistente de IA / Asistente en Tiempo Real / Super Pulir (Mantener formato) / Super Traducir (Mantener formato) / Redacción AI / Revisión con IA...

📘 Dominio de Documentos: Dividir páginas / Combinar documentos / Exportar selección en varios formatos (PDF/TXT/DOC/HTML...) / Convertir en lote a PDF...

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

🧹 Limpieza sin esfuerzo: Elimina espacios extras / saltos de sección / cuadros de texto / hipervínculos / Para más herramientas de eliminación, visita el grupo Eliminar...

Inserciones creativas: Insertar separadores de miles / Casillas de verificación / Botones de opción / Código QR / Código de Barras / Varias imágenes / Descubre más en el grupo Insertar...

🔍 Selecciones precisas: Selecciona páginas específicas / Tablas / Formas / Párrafos de Encabezado / Mejora la navegación con más funciones de Seleccionar...

Mejoras destacadas: Navega a cualquier ubicación / Inserta automáticamente texto repetitivo / Cambia entre ventanas de documentos /11 herramientas de conversión...

Kutools and Kutools Plus tabs on the Word Ribbon
👉 ¿Quieres probar estas funciones? ¡Descarga Kutools para Word ahora! 🚀
 

Las mejores herramientas de productividad para Office

Kutools para Word - ¡Más de 100 herramientas para Word!