VBA применить стиль ко всем изображениям в Word DOC

Question

Можно ли применить стиль или, по крайней мере, дать тонкую границу на все изображения в документе Word 2013, используя VBA?

Answer 1

Следующее должно работать,

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

.

Answer 2

Если вы хотите применить стиль к изображениям, используйте этот макрос:

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

.