Предыдущая страница реферата | 1  2  3  4  5  6 | Следующая страница реферата

objDoc.Activate

' заполняем "шапку документа" - номер и получатель

' - закладки 'ndoc' и 'name' соответственно

objDoc.Bookmarks ("ndoc").Range.Text = Str_ndoc

objDoc.Bookmarks ("name").Range.Text = Str_name

' связывам объект с таблицей

Set objTable = objWord.ActiveDocument.Tables (1)

' выделяем 2-ю строку таблицы в шаблоне

objTable.Cell (2, 1).Range.Select

' вставляем нужное кол-во строк-1

' (т.к. одна уже есть в шаблоне)

If NumStr > 0 Then objWord.Selection.InsertRows (NumStr - 1)

' для каждой строки в каждую ячейку вставляем нужные

' данные из массива

For i = 1 To NumStr

For j = 1 To 5

objTable.Cell (i + 1, j).Range.Text = NewData (j, i)

Next j

Next i

' проставляем сумму "Всего"

objTable.Cell (NumStr + 2, 5).Range.Text = Itog

Запускаем ее в составе всего приложения и получаем результат (см. рис. 2).

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

Но эту идиллическую картину омрачает несколько неприятных моментов. Во-первых, недостаточная гибкость приложения - если вы захотите перейти на другой редактор, то придется писать код заново. Во-вторых, приложение работает только в среде пакета MS Office, а он стоит немалых денег. Если приложение должно работать на 30-ти компьютерах предприятия, то установка на них MS Office обойдется примерно в 40 тыс. гривен - не каждый бюджет выдержит.

Рекомендуем скачать другие рефераты по теме: сочинение на тему зима, налоги и налогообложение.





Предыдущая страница реферата | 1  2  3  4  5  6 | Следующая страница реферата