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

¿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:

doc insertar imágenes con nombre de archivo 1

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:

doc insertar imágenes con nombre de archivo 2


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.

Kutools for Word : con más de 100 prácticos complementos de Word, prueba gratuita y sin límite en 60 días. 

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

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

doc insertar imágenes con nombre de archivo 3

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

doc insertar imágenes con nombre de archivo 4

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:

doc insertar imágenes con nombre de archivo 5

¡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.
Comentarios (7)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
noches amigo me ha servido mucha su buena informacion sinembargo me surge una duda cree que es posible incertar imagenes en word de la misma manera pero dentro de celdas incertadas?
Este comentario fue minimizado por el moderador en el sitio
Qué línea de código cambiaría y cómo escribir la ruta del archivo antes de la imagen, es decir, el título (nombre del archivo) está arriba en lugar de debajo.
Este comentario fue minimizado por el moderador en el sitio
Con selección
.Texto = xArchivo
.InlineShapes.AddPicture xPath & "\" & xFile, Falso, Verdadero
.Insertar después de vbCrLf
.MoveDown wdLine

End With
Este comentario fue minimizado por el moderador en el sitio
Tiene que agregar este .MoveDown wdLine después de .Text=xFile
Este comentario fue minimizado por el moderador en el sitio
¡Wow esto es genial! Solo necesitaba el nombre del archivo, así que eliminé "xPath & "\" &" de la línea .Text y funcionó perfectamente. ¡Gracias por esto!
Este comentario fue minimizado por el moderador en el sitio
Se produce un problema cuando el nombre del archivo que se agregará supera los 10.

pic1
pic10
pic11
pic12
pic2
pic3
pic4
foto5...
Este comentario fue minimizado por el moderador en el sitio
cambie el nombre del archivo a 01, 02, 03 y funcionará
No hay comentarios publicados aquí todavía

Siganos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL