PDA

Показать полную графическую версию : Макрос нумерации формул в Word


Starter1
26-04-2013, 10:27
Всем доброго времени суток.
Есть документ в котором есть некоторые формулы.
Вид такой:
Толщина диска:
С = (0,1...0,17) • Re = 0,1 • 212,213 = 21,221 мм 21 мм. (6.20)
где Re = 212,213 мм - внешнее конусное расстояние.
Формулы помечены: тут например (6.20).

Документ большой (более 60 стр), формул ещё больше.

Необходимо все формулы разместить по центру, а номер формулы заменить на ссылку по ГОСТу (например ([1], c. 123) ). Есть другой документ в котором есть эти формулы и ссылки у них уже проставлены. Естественно формулы во втором доке могут быть не по порядку.

Прошу помощь в создании макроса который переместил бы все формулы в центр и заменил бы номера на соответствующие гостовские ссылки, которые брались бы из другого документа. Явно в макросе должна быть функция сравнения формул прежде чем забирать текст ссылки.

Заранее спасибо! Документ в качестве примера прикрепил

Iska
26-04-2013, 11:07
Часть формул — рисунки, часть — простой текст, часть — текст вперемежку с полями… И ни одна не оформлена отдельным стилем. Что прикажете делать?!

Так что с:
Необходимо все формулы разместить по центру, »
только так: создаёте потребный стиль для формул, вешаете его применение на горячую клавишу и — вперёд, ручками. Выделили/стали мышкой на абзац — нажали горячие клавиши.

По второму:
а номер формулы заменить на ссылку по ГОСТу (например ([1], c. 123) ). Есть другой документ в котором есть эти формулы и ссылки у них уже проставлены. Естественно формулы во втором доке могут быть не по порядку.

Прошу помощь в создании макроса который … и заменил бы номера на соответствующие гостовские ссылки, которые брались бы из другого документа. Явно в макросе должна быть функция сравнения формул прежде чем забирать текст ссылки. »
ничего нельзя сказать без второго документа и конкретного примера.

Starter1
26-04-2013, 13:49
Iska, Про первое пожалуйста покажите пример.
Второе, вложил доки. Первый PZ.doc сам док который нужно обработать, второй formula.doc док с формулами.

Starter1
26-04-2013, 19:09
Iska, тут нашёл способ при помощи табуляции сделать выравнивание. Во всех строках с формулами установлены позиции табуляции выравнивание по левому краю, на линейке позиция стоит на 15. Так вот можно отрегулировать одну формулу как надо и уже потом сделать Формат по образцу.

Всё бы хорошо но тыкать в ручную на 60 страницах это долго. Можно ли автоматизировать этот процесс? Макрос пусть переберет каждую строку, он искал бы строку где есть хотя бы один tab и круглые скобки. Как макрос найдёт такую, то применит Формат по образцу в добавок поставит tab в начале (нужно для выравнивания).
А всё разобрался как можно сделать выравнивание.

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

Iska
27-04-2013, 06:11
тут нашёл способ при помощи табуляции сделать выравнивание. »
Изучайте работу со стилями: microsoft word стили - Поиск в Google (https://www.google.ru/search?q=microsoft+word+%D1%81%D1%82%D0%B8%D0%BB%D0%B8).

Iska
27-04-2013, 08:52
а вот рисунки разве нельзя сравнить по высоте, ширине и по размеру в байтах? »
Во-первых, во втором документе нет рисунков. Во-вторых, «по размеру в байтах» — это как? В Word'е нет возможности напрямую узнать размер рисунка в байтах. По ширине/высоте — можно, но что это даст, если таковых окажется несколько?

Теперь по работе. Как оформите единым стилем все формулы в первом документе (и вновь выложите его сюда) — можно будет думать про перебор, поиск и «выдёргивание» данных.

Starter1
27-04-2013, 23:01
Iska, Насчёт стиля. Стиль создал как нужно. Прикрепил первый документ (его част, для теста пойдёт).




© OSzone.net 2001-2012