Названия, Сноски, Ссылки… обратная задача :-(

[OlegVE]

Алгоритм от меня :-)

1. Предположим находим все таблицы (или рисунки или формулы или сноски), их количество и в обратном порядке меняем на текст, запоминаем текст (Например, Рисунок 54).
2. После каждой смены на текст (фактически удаление поля) пересчитываем все поля и ищем в "Ошибка ! Источник ссылки не найден" (это будет в перекрёстной ссылке) и подставляем "Рисунок 54".

Решение не лучшее...

Что мне необходимо:
Найти/обратиться/выделить любое из этих полей в VBA и оперировать с ними.
Хотя-бы подскажите, пожалуйста, как эти поля называются в объектной модели.

Спасибо.

[OlegVE]

Кое что нашел.
Что получится покажу завтра.

Всем спасибо и до свидания.

[bdfy]

Под черновиком имеется ввиду готовый документ, в который вышестоящий обязательно должен внести правку иначе он не вышестоящий ;-)

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

Хотя-бы подскажите, пожалуйста, как эти поля называются в объектной модели.

Fields это все. какое конкретно поле (по типу) наверное только просматривая .Code.Text можно понять.

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

[OlegVE]

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

...ведь есть возможность средствами ворда записать и позже просмотреть. меню рецензирование. ...
((

Спасибо за ответ.
Не всё так Рецензирование для вышестоящих хуже чем ссылки. Попробовал раз научить, лет пять назад... Проблема научить Стили и форматирование ... Представьте себе, это надо умудриться исправлять текст в перекрёстной ссылке или, например, вставить текст среди концевых сносок, а потом спрашивать: "Почему больше текст не вставляется?"... Теперь надеюсь понятно почему для меня всё это так важно...:-(

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

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

После того, как я задал свой вопрос, я об этом тоже подумал.
Предполагаю, что можно поступить так.

Рассмотрим "плохо отформатированный текст".
Про стили и форматирование не говорим, но помним, что Microsoft кое-где автоматически подставляет стили, может они уже присутствуют в "плохо отформатированном тексте"
Заголовки
========
1. Скорее всего "Заголовки" состоят из одной строки (можно определить по длине текста)
2. Скорее всего они располагаются по центру.
3. Может быть они нумеруются
...
Основной текст
============
1. Скорее всего пользователь ввёл в начале абзаца знак табуляции (^t) или много пробелов или имеется отступ (в сочетании с п.2).
2. Длина текста от знака абзаца (^p) до знака абзаца будет большой.
...
Рисунки (Таблицы)
===============
1. В Word они ищутся и выделяются, а название можно вставить.
2. Выделить по тексту (Искать и заменить), например, красным все слова "рисун" ("таблиц"). REM: И здесь можно придумать автоматизацию, если использовать склонения и множественное число.
и т.д. и т.п

Всё это можно определить или задать посмотрев на "плохо отформатированный текст", отдельно или в сочетании.

Поищу по Fields позже, т.к. на работе ... То, что я до этого нашел по Fields, - это интерфейсы к COM объектам...:-(
Я пробовал записывать макрос, но мышка не действует, а как подобраться к полям (в режиме записи макроса) я не нашел.

Спасибо.

PS Чтобы быть конкретней, речь идёт об отчётах о научной работе. Есть отчёты за каждый год пятилетки, за кварталы (последнего года пятилетки). Теперь всё это надо объединить и подкорректировать. В итоге получить более 120 рисунков, примерно 30 таблиц и около 100 ссылок на использованные источники (литературу). Все эти части у меня уже отформатированы, проставлены ссылки, сноски, названы объекты (Рисунок, Таблица, а для формул я создал своё Название - "(" , потом ставишь после номера ")" и вставляешь перекрёстную ссылку с "Название целиком"). Вся нумерация объектов - сплошная.

[bdfy]

OlegVE

Не всё так Рецензирование для вышестоящих хуже чем ссылки. Попробовал раз научить, лет пять назад... Проблема научить Стили и форматирование ... Представьте себе, это надо умудриться исправлять текст в перекрёстной ссылке или, например, вставить текст среди концевых сносок, а потом спрашивать: "Почему больше текст не вставляется?"... Теперь надеюсь понятно почему для меня всё это так важно...:-(

да они знать же даже не будут про это рецензирование. правки в файле увидите потом только вы включив соотв. опцию.

Рассмотрим "плохо отформатированный текст".
Про стили и форматирование не говорим, но помним, что Microsoft кое-где автоматически подставляет стили, может они уже присутствуют в "плохо отформатированном тексте"

у меня было гораздо более подробное ТЗ там еще формулы фигурировали - их надо было ровнять и нумеровать. Описать все можно - реализовать чертовски сложно. в особенности корректную обработку таблиц

[OlegVE]

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

OlegVE да они знать же даже не будут про это рецензирование. правки в файле увидите потом только вы включив соотв. опцию.

Мне не нужны больше неприятности. :-( Если у него опять случайно выскочит рецензирование и он увидит........
Вам не приходилось делать калькуляцию по проекту в Excel, вставлять в Word, разрывать связь, отдавать в таком виде, возвращать в Excel и т.д. и т.п......и т.д. и т.п......и т.д. и т.п......

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

OlegVE
у меня было гораздо более подробное ТЗ там еще формулы фигурировали - их надо было ровнять и нумеровать. Описать все можно - реализовать чертовски сложно. в особенности корректную обработку таблиц

По таблицам посмотрите:
1. http://www.programmingforum.ru/visua...tml#post757079
2. http://wordexpert.ru/page/raznos-dan...olbcam-tablicy
3. http://programmersforum.ru/showthread.php?t=46756
4. http://forum.ixbt.com/topic.cgi?id=23:38969
а теперь думаю то, что и для Вас (Часть 4) и для меня (много частей) полезно (отбрасывайте, например, WordDocument1. и в конце нужный объект, не смотрите что Delphi)
5. http://www.delphi.int.ru/articles/11/

Спасибо за Fields, а то на них смотрел-смотрел и не увидел ;-) Уже кое-что нашел. Также мне помогут Footnotes и Endnotes. Нашел и Captions, это те которые Название ("Рисунок", "Таблица", "Формула"). Для меня уже что-то стало вырисовываться: как найти, как заменить. Теперь надо глубже разбираться.

Спасибо всем за то, что показали дорогу.

До свидания.

PS Может пора тему закрывать, а может чуть-чуть поболтать :-). Завтра ещё разок загляну.

[bdfy]

тоже озаботился как сделать Word без внешних ссылок.

Document.Range.Fields.Unlink

убьет абсолютно все ссылки. включая оглавление, автонумерацию и т.д. А как бы изничтожить только внешние ссылки ? т.е именно разорвать все связи внешние ?

[OlegVE]

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

А как бы изничтожить только внешние ссылки ? т.е именно разорвать все связи внешние ?

Здравствуйте.
Посмотрите

http://www.planetaexcel.ru/forum.php?thread_id=4714

а потом

http://www.planetaexcel.ru/forum.php...llnum_forum=43


До свидания.

PS Иногда посещаю свой участок ;-)