VBA para aplicar estilo a todas las imágenes en Word Doc

Question

¿Es posible aplicar un estilo o al menos dar un borde delgado a todas las imágenes en un documento de Word 2013 usando VBA?

Answer 1

Lo siguiente debería funcionar,

Dim pic As InlineShape
For Each pic In ActiveDocument.InlineShapes
  pic.Borders.OutsideLineStyle = wdLineStyleSingle
  pic.Borders.OutsideLineWidth = wdLineWidth050pt
Next

Answer 2

Si desea aplicar un estilo a las imágenes, use esta macro:

Sub set_image_to_figure_style()
  Dim pic As InlineShape
  For Each pic In ActiveDocument.InlineShapes
    pic.Select
    Selection.Style = ActiveDocument.Styles("Figure")
  Next
End Sub