word如何给所有图片批量添加边框

视图--宏--》查看宏 --编一个宏名，把下列代码加到下面--创建--保存--》运行。。。

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