VBA para aplicar estilo para todas as imagens no documento do Word

Question

É possível aplicar um estilo ou, pelo menos, dar uma borda fina para todas as imagens em um documento do Word 2013 usando o VBA?

Answer 1

O seguinte deve funcionar,

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

Answer 2

Se você deseja aplicar um estilo para as imagens de usar essa 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