Удаление всей графики из ворда.

Статус
Закрыто для дальнейших ответов.

Dorm

Топикстартер
10 лет на форуме
Сообщения
574
Реакции
1
Есть вордовский документ. Необходимо удалить все картинки, оставив только текст.
На ^g удаляет малую часть, оставляя группы и прочее.

Спасибо
 

splxgf

12 лет на форуме
Сообщения
7 744
Реакции
3 425
Ответ: Удаление всей гарфики из ворда.

Ну тогда познамиться с 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
 

garif

R.I.P.
Сообщения
8 112
Реакции
3 109
Ответ: Удаление всей гарфики из ворда.

Старый "дедовский" способ :).
Выделить все -> скопировать в Блокнот (например) -> скопировать обратно в Ворд.
Если же текст предназначен для последующей верстки - можно вообще не заморачиваться, а просто "кидать" напрямую в ИнДизайн...
 

Валера1966

15 лет на форуме
Сообщения
1 291
Реакции
1 391
Ответ: Удаление всей гарфики из ворда.

Выделить все -> скопировать в Блокнот
Перед этим обязательно следует убрать все птички из "Сервис-Язык-Расстановка переносов". Иначе переползут все дефисы как символы переносов.
 

Йожег

без телевизора
12 лет на форуме
Сообщения
8 836
Реакции
4 275
Ответ: Удаление всей гарфики из ворда.

Не ползут. Уже очень давно. Ну если не баловаться всякими приблудами к ворду вроде ОРФО
 
Статус
Закрыто для дальнейших ответов.