批量去除图片等对象的边框

在word中，选择宏，新建一个新的宏，输入如下代码，再运行即可。

其实是套用了网上添加边框的代码，只是把颜色改成了白色而已，

并没有完全取消边框，不过凑合着用吧。

PS：删除你觉得不对的常数，再右击鼠标，在弹出的列表中选择合适的

‘ 取消边框 Macro
‘ 宏在 2016/1/12 由 mathcai 创建
‘
Sub Example()
Dim oInlineShape As InlineShape
Application.ScreenUpdating = False
For Each oInlineShape In ActiveDocument.InlineShapes
With oInlineShape.Borders
.OutsideLineStyle = wdLineStyleSingle
.OutsideColorIndex = wdWhite
.OutsideLineWidth = wdLineWidth050pt
End With
Next
Application.ScreenUpdating = True
End Sub