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

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

在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

发表评论

电子邮件地址不会被公开。 必填项已用*标注

This site uses Akismet to reduce spam. Learn how your comment data is processed.