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

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

在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

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

评论 抢沙发

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