全部图片加边框并居中的word宏

全部图片加边框并居中的word宏
Sub 图片居中加框() ' ' Macro1 Macro ' For Each iShape In ActiveDocument.InlineShapes '遍历 iShape.Select '选定 With Selection.InlineShapes(1) With .Borders(wdBorderLeft) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth100pt .Color = wdColorAutomatic End With With .Borders(wdBorderRight) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth100pt .Color = wdColorAutom...