首先启用开发工具并创建宏,通过编写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
微信扫一扫
支付宝扫一扫