Преобразовать локальное форматирование в стили

[Shmel_]

Привет.

Есть тексты набранные в ворде. Много локального форматирования, которое зачастую весьма разнообразно. Нужно всё это преобразовать в символьные стили.

Я думал примерно так (не судите строго — не программист):

1. Устанавливаем курсор в начале в образце текста который считаем базовым и запускаем макрос.
2. Макрос находит в тексте первое отличие форматирование от базового и заносит его в массив используемых форматирований, создаёт стиль, назначает.
3. Перемещается к окончанию этого отличия в форматировании и начинает искать следующее отличие.
4. Находит, проверяет есть ли уже такое в массиве используемых форматирований, если есть — назначает соответствующий стиль и идёт на 3, если нет — записывает новый формат в массив, создаёт стиль, назначает и идёт на 3.
И так до конца текста.

Столкнулся с тем, что переменными типа font затруднительно оперировать как переменными базовых типов. Т.е. сравнивать, присваивать (значение) и т.п. Можно это делать как-то удобно? Т.е., например, мне надо записать в элемент массива типа font текущее selection.font. Как это сделать? Как потом проверить равенство/неравенство элементов массива и selection.font?

Как расширит selection вправо вплоть до начала фрагмента текста с иным форматированием?

Вообще мой подход в целом верен или это можно сделать более быстро/просто?


После того как всё это написал немного поэксперементировал и попробовал сделать так:

1 Selection.Find.ClearFormatting
2 Selection.Find.Text = ""
3 Selection.Find.Font = Selection.Font.Duplicate
4 Selection.Start = 0
5 Selection.End = 0
6 Selection.Find.Execute

Перед тем как запускать макрос выделяю фрагмент текста с искомым форматированием.
Ожидалось, что будет работать так (по сторокам):
1-2. Очищаем поиск.
3. Формату поиска задаём формат аналогичный формату выделенного фрагмента.
4-5. Перемещаем selection в начало документа.
6. Ищем фрагмент с форматированием совпадающим с тем, что было в начале выделено.

Не ищет. Если открыть потом Ctrl+H, то видно, что формат текста настроен. В ручную (Ctrl+H + "Найти далее") тоже не ищет. Если искать не всё форматирование, а только, например болд/неболд, то всё работает.

Что не так, где ошибка?

Спасибо.

[Вождь]

Почитайте про опцию Word "Вести учет форматирования", она как раз и служит для создания стилей автоматом: Ссылка

[Shmel_]

Сообщение от Вождь

Почитайте про опцию Word "Вести учет форматирования", она как раз и служит для создания стилей автоматом: Ссылка

У меня не получилось чтобы стили создавались автоматически. Ворд лишь показывает фрагменты с локальным форматированием в списке стилей если включена опция "Отображать как стили: Форматирование текста". Впрочем он так себя ведёт даже если учет форматирования не ведётся.


Локальное форматирование (подчеркивание) есть в списке стилей, но это не стиль (нет значка стиля справа).

[Вождь]

Сообщение от Shmel_

У меня не получилось чтобы стили создавались автоматически...

Они и не создаются, а только отображаются в списке как стили. Создавать надо ручками: выбрали в списке > изменить > ОК. Этот метот быстро и надлядно показывает все форматирование, что есть в документе.

[Shmel_]

Сообщение от Вождь

Они и не создаются, а только отображаются в списке как стили. Создавать надо ручками: выбрали в списке > изменить > ОК. Этот метот быстро и надлядно показывает все форматирование, что есть в документе.

Тогда никакого профита. Нужны стили.

[Shmel_]

Выяснил, что поиском (Ctrl+H) вообще невозможно задать всех свойств которые могут быть присущи тексту, например, "Selection.Font.Fill...", "Selection.Font.Glow..." и т.п. которые в форматировании текста указываются в "...Шрифт->Текстовые эффекты".

Единственное решение которое приходит мне в голову — написать пару функций одна из которых будет перебирая все свойства копировать один объект типа font в другой, а вторая таким же способом их сравнивать. Затем пользуясь ими проверять последовательно форматирование каждого символа и если оно отличается от всех обнаруженных ранее вариантов форматирования создавать новый стиль, а если совпадает с одинм из ранее обнаруженных вариантов то назначть тот стиль с которым совпадает.

Всё это представляется крайне медленным и, вероятно, не оптимальным. Может быть всё таки есть более разумный подход? Задача всё та же — назначить каждому варианту локального форматированя свой стиль.

[shanemac51]

когда-то я делала стандарты предприятия(более 100 штук по 20-50 страниц)

---мне было проще------------
любой параграф был оформлен одним стилем, итого получилось около 40 стилей
---------------------------------
но если бы мне надо было ввести формулу воды Н2О или некоторые слова сделать жирными, у меня бы ничего не получилось

[Shmel_]

Так и не нашёл решения. Пока попробовал как написал выше — две функции, одна для сравнения, другая для копирования всех свойств. Расстраивает то, что приходится последовательно проверять форматирование каждого символа при том, что внутри ворда все эти данные уже есть: раззиповал сохранённый docx-документ. В нём — "document.xml", все отличия форматирования, естественно, начинаются с определённого тега ("<w:b/>", "<w:i/>", '<w:u w:val="single"/>' и т.п.).

Может быть можно как-то через объектную модель ворда добраться до этих данных (откуда начинается изменение формата)?

[Вождь]

Сообщение от Shmel_

...приходится последовательно проверять форматирование каждого символа...

Посмотрите инструкцию

Selection.SelectCurrentFont

и команду

Application.Run "SelectSimilarFormatting"

Первая поможет организовать перебор кусков разного формата шрифта, вторая - выбрать сразу все куски.

[Shmel_]

Сообщение от Вождь

Первая поможет организовать перебор кусков разного формата шрифта, вторая - выбрать сразу все куски.

Большое спасибо. Вы мне открыли целый мир встроенных макросов ворда : ). Буду пробовать.