通过执行宏命令批量给word中的图片加边框

1、打开word中的视图标签卡，选择宏，然后查看宏

2、创建宏命令，自己可以命名也可以使用系统中的名字，这个不影响最后的效果

3、粘贴如下代码：

Sub Example()

    Dim oInlineShape As InlineShape

    Application.ScreenUpdating = False

    For Each oInlineShape In ActiveDocument.InlineShapes

        With oInlineShape.Borders

            .OutsideLineStyle = wdLineStyleSingle

            .OutsideColorIndex = wdColorAutomatic

            .OutsideLineWidth = wdLineWidth050pt

        End With

    Next

    Application.ScreenUpdating = True

End Sub

4、执行宏命令

5、最终效果