En este artículo os explicamos como insertar 100 imagenes o fotografias almacenadas en una carpeta de nuestro disco duro en un documento de Word, para ello utlizaremos como siempre una macro. Comenzemos 

•   Primero insertaremos nuestras fotografías en una carpeta en formato [.jpg o jpeg ], en este ejemplo yo las he puesto en una carpeta llamada [test] 
•   Luego insertaremos el siguiente código en un modulo nuevo de visual Basic de Word para ello:

Alt + F11 para abrir el visual Basic, una vez abierto, nos vamos a menú > insertar > Modulo y en esa ventana en blanco que se nos abre que es el editor de código, pues ahí copiamos y pegamos el siguiente código:

Sub InsertarImagenesCarpeta()

Dim ImgArray(100) As Variant
Dim x As String
Dim fotos As Long
Dim i As Integer

x = Dir("C:\test\*.jpg")

Do
fotos = fotos + 1
ImgArray(fotos) = x
x = Dir
Loop Until x = ""

Selection.EndKey Unit:=wdStory

For i = 1 To fotos
Selection.InlineShapes.AddPicture _
FileName:="C:\test\" & _
ImgArray(i), LinkToFile _
         :=False, SaveWithDocument:=True
With Selection
.InsertAfter vbCr & vbCr & "Escribe tu texto" _
& vbCr & vbCr
.EndOf Unit:=wdStory
End With

Next i

With Selection

.WholeStory
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.MoveDown Unit:=wdLine, Count:=1
End With

End Sub

•    Una vez copiado y pegado ya podemos cerrar Visual Basic, guardar nuestro documento y ejecutar la macro con Alt+ F8 o bien menú herramientas > macro > macros, seleccionamos el nombre de nuestra macro en este caso la hemos llamado:

[InsertarImagenesCarpeta ]

Y ya veremos que se nos ha insertado todas las imágenes que teníamos en nuestra carpeta y nos pone una pequeña línea de texto para que podamos ahí escribir lo que queramos :-)

Bien para una inserción de mas de 100 imágenes será necesario retocar código de la siguiente manera [para un número inferior a 100 no es necesario] y para cambiar la ruta de nuestra carpeta también retocaremos código para ello:

EJEMPLO :

Si queremos poner 150 imágenes en lugar del 100 que hay puesto variaríamos a poner 150 :

• ImgArray(150)

Aquí pondríamos la ruta de nuestra carpeta completa:

•   x = Dir("C:\Documents and Settings\Usuario\Mis documentos\Carpeta\*.jpg")

Aquí pondríamos solo la ruta de la carpeta , pero  OJO >> con la barra final invertida:

• FileName:="C:\Documents and Settings\Usuario\Mis documentos\carpeta\" _  & ImgArray(i), LinkToFile _          :=False, SaveWithDocument:=True

Y eso es todo amigos, cualquier duda que tengais sobre este articulo podeis preguntar en nuestro foro, donde gustosamente os antenderemos  :-)

Saludos Monica (Tux)

• Anterior
• Siguiente