Шаг 247.
VBA в MSExcel. Автоматизация формирования текстовых документов... . Создание интерактивного текстового документа Договор

    На этом шаге мы рассмотрим основные моменты создания этого документа.

    В качестве примера для автоматизации используем пример упрощенного договора купли-продажи, показанный на рисунке 1.


Рис.1. Пример структуры упрощенного договора купли-продажи

    Текст, приведенный в данном договоре можно разделить на две составляющие:

    К тексту, вводимому в редакторе Word, относится текст, который вводится непосредственно в Word и в каждом генерируемом договоре остается без изменений.

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

    На рисунке 1 с текстом упрощенного типового договора купли-продажи к первой составляющей относятся:

    К тексту, экспортируемому из Excel, относятся:

    Созданный файл с этим текстовым документом сохраните на жестком диске под именем Договор в папке Договора купли продажи.

Создание связи между Excel и Word

    Для автоматизации ввода присвоения нумерации договору выполните следующие действия:

    Для выделения внедренного объекта установите на него курсор мыши и щелкните правой кнопкой мыши (рисунок 3).


Рис.3. Внедренный объект элемента связи с Excel

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

    Для замены текста преамбулы, включая дату и место заключения договора, скопируйте в буфер обмена диапазон ячеек А9:С11 на листе Договор и, перейдя в текстовый редактор, выделите весь текст преамбулы, после чего повторите операцию внедрения объекта через диалоговое окно Специальная вставка.

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


Рис.4. Внешний вид полученного текстового документа Договор

    На документе видны серые ограничивающие линии ячеек электронной таблицы, которые перекочевали в Word вместе с объектами. Для того чтобы от них избавиться, перейдите на лист Excel Договор и, вызвав диалоговое окно Параметры, на вкладке Вид уберите галочку с опции Сетка.

    Шрифт экспортируемого текста и его величина задается в Excel.

    На следующем шаге мы рассмотрим создание базы заключенных договоров.




Предыдущий шаг Содержание Следующий шаг