word批量给图片加淡蓝色边框

Sub Macro1()

Dim n '
On Error Resume Next ' 忽略错误
For n = 1 To 10

ActiveDocument.InlineShapes(n).Line.Visible = msoTrue
ActiveDocument.InlineShapes(n).Line.Weight = 1
ActiveDocument.InlineShapes(n).Line.ForeColor.RGB = RGB(0, 0, 255)

Next n
自问自答，有需要的可参考