Word批量取消图片边框（即无轮廓）怎么编制“宏”

网络有Word如何批量添加图片边框的“宏”代码，请问大家，Word批量取消图片边框（即无轮廓）怎么编制“宏”，以下为Word如何批量添加图片边框的“宏”代码：
Sub 批量添加图片边框 ()
Dim oInlineShape As InlineShape
Application.ScreenUpdating = False
For Each oInlineShape In ActiveDocument.InlineShapes
With oInlineShape.Borders
.OutsideLineStyle = wdLineStyleSingle
.OutsideColorIndex = wdColorAutomatic
.OutsideLineWidth = wdLineWidth150pt
End With
Next
Application.ScreenUpdating = True
End Sub

下面这个好像可以
Dim Fra As Frame
For Each Fra In ActiveDocument.Content.Frames
Fra.Delete
Next