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

前面介绍了用宏《批量去除图片等对象的边框》，但当时比较仓促，没细想，只采取了把边框换成白色，曲线解决问题。

今天琢磨了一下，找到了正宗的解决办法。

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

PS :貌似图片不能浮动，要嵌入才有效果.

Sub aa()
‘
‘ aa Macro
‘ 宏在 2016-1-18 由 xp 创建
‘
Sub Example()
Dim oInlineShape As InlineShape
Application.ScreenUpdating = False
For Each oInlineShape In ActiveDocument.InlineShapes
With oInlineShape.Borders
.OutsideLineStyle = wdLineStyleNone
‘ 或者用False也行
‘.OutsideColorIndex = wdWhite
‘.OutsideLineWidth = wdLineWidth050pt
End With
Next
Application.ScreenUpdating = True
End Sub
‘参考http://www.feiesoft.com/vba/word/woproOutsideLineStyle.htm