создание договора в ворде на основе базы в Excel

[IgorGO]

вот еще вариант.
макросов нет, все сделано стандартными средствами офис - сделан документ слияния связанный с базой в экселе.
на диске с: создайте папку dogovor. в нее рапакуйте содержимое вложений (собствено, файл эксел не обязательно распаковывать можете воспользоваться вашим, я в исходном ничего не менял, но в папке c:\dogovor\ он должен присутствовать обязательно).
Открывайте файл WORD, должен появится вопрос "выполнить SQL...", соглашайтесь.
Открывайте ленту "Рассылки", перебирайте записи 1, 2, 3, смотрите как меняются данные в договоре. Если в договоре видны не данные, а коды полей - щелкните по кнопке "просмотр результатов" в группе "просмотр результатов".
В группе "завершить" с помощью кнопки "найти и обьединить" можете вывести определенные или все договора сразу на печать.

[mistx]

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

вот еще вариант.
макросов нет, все сделано стандартными средствами офис - сделан документ слияния связанный с базой в экселе.
на диске с: создайте папку dogovor. в нее рапакуйте содержимое вложений (собствено, файл эксел не обязательно распаковывать можете воспользоваться вашим, я в исходном ничего не менял, но в папке c:\dogovor\ он должен присутствовать обязательно).
Открывайте файл WORD, должен появится вопрос "выполнить SQL...", соглашайтесь.
Открывайте ленту "Рассылки", перебирайте записи 1, 2, 3, смотрите как меняются данные в договоре. Если в договоре видны не данные, а коды полей - щелкните по кнопке "просмотр результатов" в группе "просмотр результатов".
В группе "завершить" с помощью кнопки "найти и обьединить" можете вывести определенные или все договора сразу на печать.

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

[mistx]

Teslenko_EA

Еще вопросик появился. Не до конца понял как реализована функция funOutWord. Хочу сделать еще вариант создания договора по данным только последней строки.
Как в одном модуле выделить последнюю строку
и создать договор сразу?

так я могу выделить строку полностью?
ActiveSheet.Rows(ActiveSheet.Cells. SpecialCells(xlLastCell).Row & ":" & ActiveSheet.Cells.SpecialCells(xlLa stCell).Row).Select

[Teslenko_EA]

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

Sub lastReport()
Dim iRow&
    With ActiveSheet
        iR = .UsedRange.Rows.Count + .UsedRange.Row
    End With
 funOutWord iRow, Cells(iR, 2)
End Sub

рекомендую не оставлять без внимания и изучить метод "Слияние" (Word меню Сервис / Писма и рассылки) который предложил IgorGO.
Евгений.

[IgorGO]

Rows(Cells.SpecialCells(xlLastCell) .Row).Select

[mistx]

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

рекомендую не оставлять без внимания и изучить метод "Слияние" (Word меню Сервис / Писма и рассылки) который предложил IgorGO.
Евгений.

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

Teslenko_EA
IgorGO

спасибо огромное за помощь!

p.s.
Teslenko_EA


а почему именно из ячейки 2 колонки? то есть по номеру договора?

[Teslenko_EA]

Здравствуйте mistx.
"почему именно ..." - не знаю просто так "придумалось" сохранять документы (.doc) с именем содержащим номер договора, но если Вам эта идея не нравится, подкорректируйте функцию, "авторских" претензий не будет обещаю.
Евгений.
P.S.
на всякий случай, вдуг захотите еще ко мне обратиться, Teslenko_EA это не имя, меня зовут Евгений.

[mistx]

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

на всякий случай, вдуг захотите еще ко мне обратиться, Teslenko_EA это не имя, меня зовут Евгений.

извеняюсь.

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

но если Вам эта идея не нравится, подкорректируйте функцию, "авторских" претензий не будет обещаю.
Евгений.

благодарю.

Евгений, еще такой вопрос.
сделал отдельный модуль с кодом

Sub lastReport()
Dim iRow&
With ActiveSheet
iR = .UsedRange.Rows.Count + .UsedRange.Row
End With
funOutWord iRow, Cells(iR, 2)
End Sub

Открывается только шаблон без импорта данных.
Что-то неправильно делаю?

[Teslenko_EA]

Здравствуйте mistx.
простите но в коде присутствует очепятка,
в качестве первого аргумента функции применена переменная iRow, она объявлена, но ей ничего не присвоено, соответственно iRow = 0 и работоспособность конструкции тоже становится = 0.
исправьте :

Dim iRow&
With ActiveSheet
iRow = .UsedRange.Rows.Count + .UsedRange.Row
End With
funOutWord iRow, Cells(iRow, 2)

Евгений.

[mistx]

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

Здравствуйте mistx.
в качестве первого аргумента функции применена переменная iRow, она объявлена, но ей ничего не присвоено, соответственно iRow = 0 и работоспособность конструкции тоже становится = 0.
исправьте :

Dim iRow&
With ActiveSheet
iRow = .UsedRange.Rows.Count + .UsedRange.Row
End With
funOutWord iRow, Cells(iRow, 2)

Евгений.

большущее спасибо за разъяснения. все работает.
св-ва .UsedRange.Rows.Count + .UsedRange.Row - находят строку следующую за последней
сделал
.UsedRange.Rows.Count + .UsedRange.Row-1