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

  • Автор темы Автор темы Dorm
  • Дата начала Дата начала
Статус
Закрыто для дальнейших ответов.

Dorm

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

Спасибо
 
Ответ: Удаление всей гарфики из ворда.

Ну тогда познамиться с 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
 
Ответ: Удаление всей гарфики из ворда.

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

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

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