Imprimir
Categoría: Office

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 

 

 

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

 

 

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

 

 

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

 


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

 

 

 

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

 

Saludos Monica (Tux)

Visto: 41754