ИгнатьевАлексей
Открой Ворд, включи ручную запись макроса, проделай ручное линкование, отключи ручную запись, открой и просмотри то, что получилось.
Ты только не сердись и громко не смейся, я не знаю как сделать линкование в Microsoft Office 2000.
В Microsoft Office ХР я проделал все необходимые телодвижения и у меня получилось следующее:
| Код | Sub Макрос1()
ActiveDocument.MailMerge.OpenDataSource Name:= _
"F:\Valk\Ипотека\Расчёт и Договор\РасчётИпотека1.xls", ConfirmConversions _
:=False, ReadOnly:=False, LinkToSource:=True, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", WritePasswordDocument:="", _
WritePasswordTemplate:="", Revert:=False, Format:=wdOpenFormatAuto, _
Connection:= _
"Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=F:\Valk\Ипотека\Расчёт и Договор\РасчётИпотека1.xls;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password=" _
, SQLStatement:="SELECT * FROM `'Сводка данных$'`", SQLStatement1:="", _
SubType:=wdMergeSubTypeAccess
ActiveDocument.MailMerge.ViewMailMergeFieldCodes = wdToggle
WordBasic.MailMergeShadeFields
End Sub |
Этот код я чуть-чуть переделал:
| Код | Sub ИнтеграцияДанных()
ActiveDocument.MailMerge.OpenDataSource Name:= _
"РасчётИпотека1.xls", ConfirmConversions _
:=False, ReadOnly:=False, LinkToSource:=True, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", WritePasswordDocument:="", _
WritePasswordTemplate:="", Revert:=False, Format:=wdOpenFormatAuto, _
Connection:= _
"Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=РасчётИпотека1.xls;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password=" _
, SQLStatement:="SELECT * FROM `'Сводка данных$'`", SQLStatement1:="", _
SubType:=wdMergeSubTypeAccess
ActiveDocument.MailMerge.ViewMailMergeFieldCodes = wdToggle
WordBasic.MailMergeShadeFields
End Sub |
Только тут сразу возникает несколько затыков:
1. Этот код, насколько я понимаю, надо разместить в Project (ДоговорСтрахования)/Microsoft Word Objects/ThisDocument, чтобы он стартовал при запуске документа.
2. "Название" этого кода не должно быть: "Sub ИнтеграцияДанных()". Название должно быть типа "Private Sub Open_Document" или какое-то иное (я не знаю какое, пишу просто по аналогии с Excel). Тогда точно этот код будет отрабатываться при открытии документа "ДоговорСтрахования.doc".
3. Если удалить начало пути размещения (F:\Valk\Ипотека\Расчёт и Договор\), то код будет искать книгу РасчётИпотека1.xls в папке по умолчанию (Мои документы). Это самые простые, на мой взгляд, грабли, т. к. путь, в принципе, вычисляем. Надо только каким-то образом суметь из источника данных "выдернуть" Ф. И. О. и создавать папку с таким же названием.
4. При попытке открыть документ в Microsoft Office 2000 у меня вылетает ошибка: "The macros in this project are disabled. Please refer to the online help or documentation of the host application to determine how to enable macros." Выходит, что код VBA для Microsoft Office 2000 другой, нежели чем код VBA для Microsoft Office ХР 
Совсем не хочу тебя критиковать, потому что я сам непрофессиональный кодер, но тем не менее...
Я вообще к программированию отношения не имею. Я системный администратор. С VBA впервые столкнулся в мае этого года, так что не парься в эту тему, я широко принимаю любую критику, лишь бы делу подмога.
Не усложняешь ли ты сам себе задачу используя инструмент рассылок?
"Инструмент рассылок" - это, как я понял, то, что я называю "источник данных"?
Я бы сам программно создавал документ Ворда на базе темпелейта, редактировал его как надо и помещал куда мне надо.....и никакие линки меня бы не замарачивали....Я по работе решал подобные задачи, т.е. по генерации документов на основе Екселевских таблиц, но только сами документы были также Екселевскими. Но я уверен, объектная модель Ворда (с которой я вообще не сталкивался) позволит это.
Путей по решению задачи много и я уверен, что выбрал не самый оптимальный, а может и вовсе, самый неоптимальный. Просто те знания, которыми я обладаю, позволяют мне работать в каких-то узких рамках.
У меня была мысль создавать договор страхования прямо внутри книги Excel. Основным препятствием было то, что я не представляю как можно в Excel что-либо отфоматировать. Также я думал интегрировать в книгу лист Word, но мне это тоже показалось не реализуемо (по крайней мере мною).
Если ты знаешь и умеешь решить эту проблему (интеграция уже полученных мною данных в шаблон договора, всего 26 уникальных значений), то, пожалуйста, подскажи мне как это сделать, я попробую. |
Я бы сам программно создавал документ Ворда на базе темпелейта, редактировал его как надо и помещал куда мне надо.....и никакие линки меня бы не замарачивали....Я по работе решал подобные задачи, т.е. по генерации документов на основе Екселевских таблиц, но только сами документы были также Екселевскими. Но я уверен, объектная модель Ворда (с которой я вообще не сталкивался) позволит это. Вот я не поленился, книжку открыл Гарнаева Андрея и сразу нашел инструмент "закладок" в Ворде, который как раз и предназначен для программного заполнения Вордовских документов. Так ты красивее все намного для своих любимых юзеров сделаешь, потомы что все в ТВОИХ руках будет, а не в руках парня из Майкрософта. 
мда, весьма странный подход, мягко говоря...