Вы используете устаревший браузер. Этот и другие сайты могут отображаться в нем неправильно. Необходимо обновить браузер или попробовать использовать другой.
Ну тогда познамиться с VBA и перебирать Document.GroupShapes
Из первой ссылки допилить вариант
Код:
Sub cmdRemoveShapes_Click()
Set word_doc = Application.ActiveDocument
' Delete InlineShapes.
With word_doc.InlineShapes
Do While .Count > 0
.Item(1).Delete
Loop
End With
' Delete Shapes.
With word_doc.Shapes
Do While .Count > 0
.Item(1).Delete
Loop
End With
' Save the file.
End Sub
Старый "дедовский" способ .
Выделить все -> скопировать в Блокнот (например) -> скопировать обратно в Ворд. Если же текст предназначен для последующей верстки - можно вообще не заморачиваться, а просто "кидать" напрямую в ИнДизайн...
На данном сайте используются cookie-файлы, чтобы персонализировать контент и сохранить Ваш вход в систему, если Вы зарегистрируетесь.
Продолжая использовать этот сайт, Вы соглашаетесь на использование наших cookie-файлов.