Автоматически удалять пользовательские стили из документа Word, но сохранять форматирование

Question

Дано: файл .doc(x) с пользовательскими стилями форматирования, примененными к некоторому тексту (пример).

Get: файл .doc(x), который отформатирован как данный файл, но не определяет никаких пользовательских стилей (пример).

Я пытался конвертировать в .rtf, но, к сожалению, он сохраняет информацию о стилях.

---

Команда "Очистить форматирование" очищает форматирование (сбрасывает по умолчанию), но мне нужно сохранить его. Удаление стиля делает то же самое (пример). Это не то, что я хочу.

Мне просто нужно удалить пользовательские стили, но сохранить форматирование.

Answer 1

Если у вас есть доступ к Microsoft Excel:

1. Выбрать все в Word документ
2. Вставить в Excel (который поддерживает форматирование, но не стили)
3. Пока содержимое выделено в Excel (после вставки), немедленно скопируйте
4. Вставить обратно в новый документ Word

Я проверил это с вашими документами, используя Word и Excel 2010; он сохраняет форматирование, но избавляется от пользовательских стилей.

РЕДАКТИРОВАТЬ: для более сложных опубликованных примеров, сделайте то же самое, что и выше, но используйте WordPad вместо Excel. Т.е. скопируйте все в Word, вставьте в WordPad, затем выделите все в WordPad и вставьте обратно в новый документ. Это успешно (в моем тесте) для всего, кроме нижнего колонтитула, что, конечно, вы можете сделать отдельно (скопировать, вставить, затем скопировать / вставить обратно в нижний колонтитул нового документа).

Answer 2

Попробуйте следующее (не проверено):

Sub DeleteUsedStyles()
    For Each sty In ActiveDocument.Styles
        If sty.InUse Then
            sty.Delete
        End If
    Next sty
End Sub

Answer 3

Скопируйте и вставьте в блокнот, затем скопируйте и вставьте в новое слово doc. Это всегда работало для меня в подобных ситуациях, особенно с копированием и вставкой между электронными письмами Outlook в формате HTML.

В Word также есть опция "Специальная вставка" с выбором для неформатированного текста, но это не всегда доступно во всех контекстах.