vba - 从内联形状中删除边框 - Word 崩溃

Question

我重用了此链接中的代码：如何从内联形状中删除边框。我的代码对特定的 inlinshapes 有额外的条件指令。代码如下所示：

Sub Picture_no_Border()
    Application.ScreenUpdating = False
    Dim iShp As InlineShape


    For Each iShp In ActiveDocument.InlineShapes
        With iShp
            If .Type = wdInlineShapePicture Then
                If Len(.Range.Paragraphs(1).Range.Text) = 2 Then
                    With .Line
                        .Visible = False
                    End With
                End If
            End If
        End With
    Next
    Application.ScreenUpdating = True
End Sub

当我的文档中的图片数量很少时，它可以工作。但是，当我有一个包含大约 150 张图片的文档时，MS Word 会崩溃并停止工作。你知道为什么吗？

标签： vbaimagems-wordborder