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

word批量给word中的图片加边框

工具/原料

word2010

方法/步骤

打开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

执行宏命令

最终效果

注意事项

想要边框更粗的话可以使用如下代码Sub Example() Dim oInlineShape As InlineShape Application.ScreenUpdating = False For Each oInlineShape In ActiveDocument.InlineShapes With oInlineShape.Borders .OutsideLineStyle = wdLineStyleThinThickSmallGap .OutsideColorIndex = wdColorAutomatic .OutsideLineWidth = wdLineWidth300pt End With Next Application.ScreenUpdating = True End Sub