Word VBA:如何删除形状(水平线)？

Sub DeleteShape()
    Dim shape As Shape
    For Each shape In ActiveDocument.Shapes
        If shape.Type = msoLine Then
            shape.Delete
        End If
    Next shape
End Sub