Word 批量添加 圖片邊框

最近一直在寫實驗報告，報告裏的圖片動輒幾十張，如果想給所有圖片加上邊框就很費勁。
剛剛找到了一種方法，利用Word宏功能，批量添加圖片邊框。
隨手寫篇博客記一下，說不定以後還會用到

首先在Word頂部菜單欄中找到 視圖 -> 宏 -> 查看宏

在宏窗口輸入宏名，我這裏輸入了Picture，也可以些別的名字。然後點擊創建。

將初始化的代碼內容全部刪除，粘貼以下代碼：

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

點擊保存並執行，圖片即可被全部加上邊框。

圖片邊框的效果如下圖所示。