Como aplicar bordes a todas las imágenes automáticamente

A veces cuando trabajamos con texto e imágenes y queremos aplicar el mismo formato a dichas imágenes, nos encontramos con que hemos de hacerlo con cada imagen individualmente. Esto supone que si hemos insertado treinta imágenes, hemos de realizar la misma acción treinta veces. Para evitar esto podemos programar el siguiente código que permitirá distinguir entre texto e imagen, seleccionando cada imagen y aplicándole el formato que deseemos.

En el siguiente ejemplo que vamos a mostrar vamos a aplicar a nuestras imágenes un borde de 3 puntos, con estilo cuadro y color lavanda.

• Abrimos el editor VBA (alt+F11)
• Insertamos un módulo desde menú Insertar – Módulo

• Hacemos doble clic sobre Módulo1
• Insertamos el siguiente código:

Sub imgbrds()
Dim img As InlineShape
For Each img In ActiveDocument.InlineShapes
img.Select
With img.Borders(wdBorderLeft)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth300pt
.Color = wdColorLavender
End With
With img.Borders(wdBorderRight)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth300pt
.Color = wdColorLavender
End With
With img.Borders(wdBorderTop)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth300pt
.Color = wdColorLavender
End With
With img.Borders(wdBorderBottom)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth300pt
.Color = wdColorLavender
End With
Next img
End Sub

Este código selecciona cada imagen y aplica un borde de estilo continuo de 3 puntos de color lavanda.

Redactado en: Macros Word