Автоматическая замена в Word горизонтальных линий на разрывы страниц

Еще один макрос, заменяющий в Word  горизонтальные разделительные линии,  которые часто возникают, например, в результате импорта HTML-страниц, на разрывы станиц.


Sub ImageDisign()

Dim oShape As InlineShape

Application.ScreenUpdating = False

Documents(1).Activate

For Each oShape In ActiveDocument.InlineShapes
    oShape.Select

    If oShape.Height = 1.5 And oShape.Width = -1 Then

Rem саму горизонтальную линию сохраняем
        Selection.Collapse Direction:=wdCollapseEnd

Rem после горизонтальной линии вставляем перенос страницы
        Selection.InsertBreak (wdPageBreak)


Rem Часто возникает паразитный перенос абзаца - убираем и его
        Selection.Delete
       
    End If
Next
Application.ScreenUpdating = True
End Sub