Word技巧：如何给所有图片快速添加边框

发布时间：2026-09-01 作者：冯刚阅读量：24

引言

在Word文档中，为所有图片添加统一边框可以提升专业性和美观度。但手动逐一设置效率低下，本文提供两种批量操作方法。

方法一：录制宏

点击“视图” > “宏” > “录制宏”。
命名宏如“AddBorder”，选择存储位置。
按Ctrl+A选中全文，按Ctrl+G打开“定位”对话框，选择“图形”。
对选中的图片设置边框（如右键“设置图片格式” > “边框”）。
停止录制宏，之后可一键执行。

方法二：使用VBA代码

按Alt+F11打开VBA编辑器，插入模块并粘贴以下代码：

Sub AddBorderToAllPictures()
    Dim shp As InlineShape
    For Each shp In ActiveDocument.InlineShapes
        If shp.Type = wdInlineShapePicture Then
            With shp.Borders
                .OutsideColor = wdColorBlack
                .OutsideLineStyle = wdLineStyleSingle
                .OutsideLineWidth = wdLineWidth050pt
            End With
        End If
    Next shp
End Sub

运行宏即可为所有内嵌图片添加黑色实线边框。若包含浮动图片，需额外处理Shapes集合。

注意事项

该操作会覆盖原有边框，请先备份文档。
若图片已被压缩，边框效果可能受影响。