通过执行宏命令批量给word中的图片加边框
word批量给word中的图片加边框
操作方法
- 01
打开word中的视图标签卡,选择宏,然后查看宏
- 02
创建宏命令,自己可以命名也可以使用系统中的名字,这个不影响最后的效果
- 03
粘贴如下代码: Sub Example() Dim oInlineShape As InlineShape Application.ScreenUpdating = False For Each oInlineShape In ActiveDocument.InlineShapes With oInlineShape.Borders .OutsideLineStyle = wdLineStyleSingle .OutsideColorIndex = wdColorAutomatic .OutsideLineWidth = wdLineWidth050pt End With Next Application.ScreenUpdating = True End Sub
- 04
执行宏命令
- 05
最终效果
赞 (0)