
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...