给大家演示一下word如何给多张图片批量添加边框
方法
打开一个新建的word,点击插入
进入插入后,选择图片
把图片都插入到文档后,选择开发工具
然后选择开发工具里的JS宏
J来自S宏打开后,在宏名输入栏中输入picture,随后点击创建
紧接着打开宏代码对话框,输入代码Sub Example()
Dim oInlineShape As InlineShape
Application.ScreenUpdating = False
For Each oInlineShape In ActiveDocument.InlineShapes
With oInlineShape.Borders
.OutsideLineStyle = wdLineStyleSingle
.OutsideColorIndex = wdC金黑音督支olorAutomatic
.OutsideLineWidth = wdLineWidth050pt
End With
Next
Application.ScreenUpdating = True
End Sub
随后点击保存
然后点击启用宏即可给图片批量加上边框
结果如下图所示