欢迎光临 MathCai
我们一直在努力

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

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

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

在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

未经允许不得转载:MathCai » 批量去除图片等对象的边框又一法
分享到: 更多 (0)

评论 抢沙发

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址