Удаление границы из inlineshape - падение слова - PullRequest
Новая
       13

Удаление границы из inlineshape - падение слова

0 голосов
/ 12 февраля 2020

Я повторно использовал код из этой ссылки: как удалить границу из встроенной фигуры . В моем коде есть дополнительная условная инструкция для указания c 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 вылетает и перестает работать. У вас есть идеи, почему?

...