Автоматическое оформление документа по ГОСТ

[bdfy]

предположим есть документ с рядом типовых ошибок в оформлении. хочу его исправить сделать по ГОСТ.

по шагово я это примерно так вижу
- выделить весь текст "похожий на основной". по стилю он может отличатся форматированием - отступом, выравниванием, размером шрифта. фактически это любой текст кроме "названий" и "заголовков". как его выделить и выстаить стиль "обычный" который уже можно нормально настроить ? абзацные отступы, нумерация, табуляция тогда уже будет верная

- нужно найти все формулы. найти все несложно если ActiveDocument.Fields перебрать. но как выделить именно те которые стоят как формулы ? т.е с новой строки ?

-с переносом строк у таблиц надо разобратся. но тут идей нет.

-ссылки в тексте почти всегда есть, но несовпадают с запиской. т.е видимо надо
пройти все таблицы заменив текст на линк название, а потом пройтись по тексту в поисках текста "табл. №" чтобы вставить перекрестные ссылки.
аналогично с формулами

как тереть пустые абзацы я нашел.
заменить стили основного текста и заголовков просто.

вообще в нужных мне документах стилей нужно весьма ограниченное количество:
основной (для текста)
несколько заголовков нумерованных
названия обьектов (рисунки, таблицы)
все остальное - вариации из-за неверного форматирования.

если с заголовками можно еще разобратся вручную, то выделение разных частей текста и сбрасывание стиля в "Основной" занимает массу времени. по идее надо всего лишь перебрать абзацы, пропустив заголовки и таблицы. с заголовками понятно - они стилем отличаются, а вот как пропустить таблицы ?

[Dophin]

с примером было бы понятней что Вы хотите. Приложите небольшой кусочек файла с листами "есть вот" и "хочу так"

[bdfy]

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

вопрос пока стоит в том как выделить "основной" текст ? т.е весь кроме заголовков, таблиц, названий обьектов

[Sasha_Smirnov]

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

-с переносом строк у таблиц надо разобратся. но тут идей нет

Вот этот пост: http://programmersforum.ru/showthrea...737#post423737.

Есть команда Выделить текст, имеющий такой же формат: по правой кнопке (на тексте) → Стили.

Присвойте один язык (а то там и русский, и белорусский, и сербский), ведь это тоже может влиять на стили.

[bdfy]

Есть команда Выделить текст, имеющий такой же формат

не работает она так как от нее ждешь в подавляющем большинстве случаев (
как в ворде все сделать правильно руками я представляю хорошо. идея в том чтобы написать возможно более универсальный макрос. в данным момент задача состоит в том чтобы определить абзац это текст или это таблица ? и совершать уже потом нужные действия.

[Sasha_Smirnov]

Sub IfWeAreInTable()
    nt = ActiveDocument.Tables.Count
    
    For i = 1 To nt
        coursorIntable = Selection.InRange(ActiveDocument.Tables.Item(i).Range) 'Да/Нет'
        If coursorIntable Then
            MsgBox "Мы в" & IIf(i = 2, "о ", " ") & i & "-й таблице документа " & ActiveDocument & "."
        End If
    Next
    
End Sub

даёт знать, в таблице ли мы (и в какой по счёту).

О работе с текстом вне таблиц было вот тут, а также пост viter.alex’а в теме от КотФиларет (ссылка — на синем слове).

[bdfy]

Sasha_Smirnov. спасибо.
другая задачка
можно перебрать все ActiveDocument.InlineShapes посмотреть .OLEFormat.ClassType - выделить формулы. а как определить что эта формула стоит в начале строки отдельно а не просто в тексте ?

[bdfy]

вернулся к решению этой задачи
разных блоков в работах бывает как правило не так много
- картинка с подписью
- таблица
- формула
- обычный текст (все остальное)
для таблицы решение вроде бы подобрали... а что делать с рисунками и главное формулами ? как их однозначно выделить ?