首先启用开发工具并创建宏，通过编写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文档怎么批量给图片添加相同边框_Word宏处理批量设置图片样式的详细内容，更多请关注创想鸟其它相关文章！
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。
如发现本站有涉嫌抄袭侵权/违法违规的内容， 请发送邮件至 chuangxiangniao@163.com 举报，一经查实，本站将立刻删除。
发布者：程序猿，转转请注明出处：https://www.chuangxiangniao.com/p/130935.html
微信扫一扫 
支付宝扫一扫 
