Word批量加边框，宏一键设置样式

大家好，今天本人给大家带来文章《Word批量加图片边框，宏一键设置样式》，文中内容主要涉及到，如果你对文章方面的知识点感兴趣，那就请各位朋友继续看下去吧~希望能真正帮到你们，谢谢！

首先启用开发工具并创建宏，通过编写VBA代码遍历InlineShapes和Shapes对象，分别为嵌入式和浮动图片设置统一边框样式，实现批量自动化处理。

如果您需要在Word文档中为多张图片统一设置相同的边框样式，手动逐个调整将耗费大量时间。通过使用Word宏功能，可以自动化完成图片样式的批量设置，提升编辑效率。

本文运行环境：Dell XPS 13，Windows 11

一、启用开发工具并录制宏

通过录制宏的方式，可将对一张图片的边框设置操作自动应用到文档内所有图片。首先需确保“开发工具”选项卡已启用，以便创建和运行宏。

1、打开Word文档，点击“文件”菜单，选择“选项”。

2、在“Word选项”窗口中选择“自定义功能区”，勾选右侧“主选项卡”下的开发工具，点击“确定”。

3、切换至“开发工具”选项卡，点击“宏”，输入宏名称如“SetPictureBorder”，点击“创建”。

4、在弹出的VBA编辑器中，将光标置于Sub与End Sub之间，准备输入代码。

二、编写VBA代码设置统一边框

VBA脚本能够遍历文档中的所有图片，并为每一张应用指定的边框样式。通过设定线条颜色、宽度和样式，实现视觉一致性。

1、在VBA编辑器中输入以下代码：

For Each il In ActiveDocument.InlineShapes

With il.Borders

.OutsideLineStyle = wdLineStyleSingle

.OutsideLineWidth = wdLineWidth050pt

.Color = wdColorBlack

End With

2、关闭VBA编辑器，返回Word文档，再次点击“开发工具”→“宏”，选择“SetPictureBorder”，点击“运行”。

三、处理浮动图片（Shape对象）

部分图片以浮动形状形式插入，不属于InlineShapes集合，需单独针对Shape对象编写逻辑进行边框设置。

1、修改或新增宏，在VBA编辑器中加入对Shapes的遍历：

For Each sh In ActiveDocument.Shapes

With sh.Line

.Visible = msoTrue

.ForeColor.RGB = RGB(0, 0, 0)

.Weight = 1.5

.DashStyle = msoLineSolid

End With

2、保存并运行更新后的宏，确保所有类型图片均被覆盖。

文中关于的知识介绍，希望对你的学习有所帮助！若是受益匪浅，那就动动鼠标收藏这篇《Word批量加边框，宏一键设置样式》文章吧，也可关注golang学习网公众号了解相关技术文章。