在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

发表评论

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

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