Автоматический перенос данных с таблиц Excel в текст Word

[Sasha_Smirnov]

Не в тему: вообще это какой-то фокус-покус — открываешь, вводишь номер — и всё!

С одной стороны странно, что половина фирм это не освоила — и стучит как раньше на пишущей машинке (вводя всё вручную). Но поглядев, насколько капризны эти поля, понимаешь, что так и должно быть: ведь там нельзя пропустить пробел или случайно «на что-то нажать».

Кстати (хоть это в принципе и неискоренимо), постарайтесь всё же не ставить пробелов перед запятыми и двоеточиями: похабно смотрится. А ещё: там у Вас, для перехода на страницу 2, ввели (не знаю кто) штук 40 символов абзаца... так я заменил эту несусветицу одним разрывом страницы: контрол-Enter. Очень удобно:-)

[Sasha_Smirnov]

Открыв , отвечаете (на вопрос об обновлении) «Да».

В первой строчке стоит кусор. Жмёте F9 — поле ASK просит ввести номер работника.

В Вашем примере первая строчка таблицы занята «шапкой» (её впоследствии, если препочтёте использовать не макрос, а поля, вообще удалите), а работники — в строках 2 и 3.

Присланная Вам заготовка dogovor.doc заполена для строки 3, а Вы попробуйте — изменив в полях LINK путь к файлу spisok.xls* и сохранив под именем dogovor1.doc, а затем его открыв — нажать F9 и ввести 2.

Если всё сделать аккуратно, то все поля REF получат значение 2 и соответственно линки будут ссылаться на работника по фамилии Дзюба. Терпения Вам!
__________________________________
* договор.xls в Вашем примере (но я, от греха, убрал кириллицу)

[viter.alex]

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

…Кстати (хоть это в принципе и неискоренимо), постарайтесь всё же не ставить пробелов перед запятыми и двоеточиями: похабно смотрится…

Если все же не удается это искоренить, то нужно пользоваться поиском и заменой. Если в поле «Найти» записать ^0032([.,:;\!\?]), поставить птичку «Подстановочные знаки», а в поле «Заменить» — \1 и нажать «Заменить все», то все пробелы перед знаками препинания будут удалены

[Sasha_Smirnov]

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

Если всё сделать аккуратно, то все поля REF получат значение 2 и соответственно линки будут ссылаться на работника по фамилии Дзюба.

Ссылки на номер строки таблицы (в полях LINK это в конце: r2, r3 и далее) автоматически, даже после ввода номера в поле ASK, не обновляются.

Так что вся «система» срабатывает как я и рассказал ПЛЮС обновить поля: выделить их (ну то есть вообще весь текст договора) и нажать F9.

> viter.alex
У меня с неаккуратностью AutoOpen и AutoClose дружно борются! Это наиболее гуманно, не так ли?

[xamillion]

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

Извлеките файлы из вложения в одну папку (например, на Рабочий стол), откройте файл договор.xls, и нажмите на желтую кнопочку.

Проверено в Office 2003.

Если у Вас установлен Office 2007, придётся в проекте VBA поменять ссылку на библиотеку Word (c 11-й на 12-ю версию)

Блин, искал первоначальную тему с этим примером (Формирование договоров.rar - там он назывался Excel to Word.rar), ну да ладно...
Суть вопроса в другом - при переносе длинных текстов в ячейках пишет: "Run time error '5854' Слишком длинный строковый параметр." Можно ли как-то это исправить, так как данных бывает больше 255 символов в ячейке (кажется столько ограничение в строковом параметре)...

[viter.alex]

Нет, строковые переменные практически не ограничены в размерах (в разумных пределах, конечно). Ограничение в 255 символов только для полей

[xamillion]

Как тогда обойти эту ошибку: "Run time error '5854' Слишком длинный строковый параметр."

В примере наглядно видно...

[viter.alex]

Насколько мне удалось понять, проблема была в том, что данные в документе обновлялись при помощи поиска и замены. Действительно, текст замены не может превышать 255 символов в длину. И вообще, это порочный путь. Существуют стандартные методы внесения данных в конкретные места документа.
Я немного переделал шаблон документа. В те места, куда нужно вставлять данные из таблицы, я поставил закладки с соответствующими именами. В таблице на второй странице, где эти данные просто дублируются, я поставил перекрестные ссылки на эти закладки.
Файл Excel я, соответственно, тоже изменил: добавил свою процедуру обновления закладок, удалил ссылку на библиотеку Word, при сохранении документа он теперь не добавляется в список недавних файлов. Имена закладок берутся из ячеек первой строки, только перед использованием из них удаляются все пробелы и фигурные скобки. У меня все работает, надеюсь у тебя тоже заработает.

[xamillion]

Сообщение от viter.alex

надеюсь у тебя тоже заработает.

Спасибо, действительно работает...

[LordVaders]

Вопрос встречный: а как вы открываете этот шаблон? Чтобы изменить текст в шаблоне, его нужно открыть как шаблон, а не создавать на его основе документ. Вероятно поэтому он и предлагает вам сохранить его как документ с расширением doc. Попробуйте и напишите о результатах.