Лабораторная работа № 4

Использование макросов OLE-сервера MS Word в Borland C++Builder

Цель работы: изучить основные приемы использования макросов OLE-серверов из Borland C++Builder.

Основные приемы работы с OLE-серверами, т.е. использование типа Variant и его функций OlePropertyGet, OlePropertySet, OleProcedure, OleFunction, были рассмотрены в материале лабораторной работы № 3:

#include <utilcls.h>

...

Variant MSWord, Docs, MyDoc;

...

try

{ // Получить указатель на активный объект. MSWord - загружен

MSWord = Variant::GetActiveObject("Word.Application");

}

catch (...)

{

MSWord = Variant::CreateObject("Word.Application");

}

MSWord.OlePropertySet ( "Visible", true );

...

// Создание нового документа

Docs = MSWord.OlePropertyGet ("Documents");

MyDoc = Docs.OleFunction ( "Add" );

Запуск макроса осуществляется при помощи процедуры Run объекта Application. Формат запуска процедуры:

Run ( MacroName As String, varg1, varg2, varg3, varg4, varg5,

varg6, varg7, varg8, varg9, varg10,

varg11, varg12, varg13, varg14, varg15,

varg16, varg17, varg18, varg19, varg20,

varg21, varg22, varg23, varg24, varg25,

varg26, varg27, varg28, varg29, varg30 )

Запуск процедуры Run из Builder осуществляется при помощи вызова метода Exec типа Variant:

char VARG1 [128];

char VARG2 [128];

strcpy ( VARG1, AnsiString(MyDoc.OlePropertyGet("Name")).c_str() );

strcpy ( VARG2, Name.c_str() );

MSWord.Exec ( Procedure("Run") <<

NamedParm ( "MacroName", "CopyFromExcel" ) <<

NamedParm ( "varg1", VARG1 ) <<

NamedParm ( "varg2", VARG2 ) );

Классы Procedure и NamedParm являются дочерними по отношению к классу AutoCmd. Функция Exec требует аргумент типа AutoCmd. Вторым аргументом конструктора NamedParm может являться переменная любого типа.

Вызываемый макрос должен содержаться в шаблоне Normal.dot. Поэтому необходимо переписать в шаблон Normal.dot созданный макрос. Не забудьте удалить свой макрос из шаблона после использования!!!

Задание. Разработать согласно варианту задания макрос на Word Visual Basic и использующее его приложение на Borland C++Builder.

Вариант 1. Макрос: открывает DOC-файл и распечатывает его. Приложение: позволяет при помощи диалогового окна сформировать список файлов и вызвать макрос для каждого из них.

Вариант 2. Макрос: загружает текстовый файл MS DOS, сохраняет его как документ Word. Приложение: позволяет при помощи диалогового окна сформировать список файлов и вызвать макрос для каждого из них.

Вариант 3. Макрос: открывает DOC-файл и копирует его содержимое в заранее открытый файл. Приложение: позволяет при помощи диалоговых окон выбрать имя нового файла и сформировать список файлов-источников, вызвать макрос для каждого из них.

Вариант 4. Макрос: загружает текстовый файл MS DOS и копирует его содержимое в заранее открытый файл. Приложение: позволяет при помощи диалоговых окон выбрать имя нового файла и сформировать список файлов-источников, вызвать макрос для каждого из них.

Вариант 5. Макрос: сохраняет указанный документ под указанным именем. Приложение: позволяет выбрать при помощи диалогового окна документ-источник, сформировать список имен документов-приемников с путями и запустить макрос для каждого из них.

Вариант 6. Макрос: открывает DOC-файл и копирует содержимое его второго раздела в заранее открытый файл. Приложение: позволяет при помощи диалоговых окон выбрать имя нового файла и сформировать список файлов-источников, вызвать макрос для каждого из них.

Вариант 7. Макрос: активизирует MS Excel, открывает указанный XLS-файл, загружает содержимое его первой страницы в указанный документ Word. Приложение: позволяет создать новый документ MS Word, при помощи диалогового окна сформировать список файлов-источников и вызвать макрос для каждого из них.

Вариант 8. Макрос: активизирует MS Excel, открывает указанный DBF-файл, загружает его содержимое в указанный документ Word. Приложение: позволяет создать новый документ MS Word, при помощи диалогового окна сформировать список файлов-источников и вызвать макрос для каждого из них.

Вариант 9. Макрос: активизирует MS Excel, открывает указанный XLS-файл, загружает содержимое его первой страницы в указанный документ Word, организует вычисление в MS Excel среднего и суммарного значения для столбца фиксированного номера первой страницы XLS-файла, загружает их в документ отдельно от таблицы с комментарием, закрывает XLS-файл без сохранения. Приложение: позволяет создать новый документ MS Word, при помощи диалогового окна сформировать список файлов-источников и вызвать макрос для каждого из них.

Вариант 10. Макрос: активизирует MS Excel, открывает указанный DBF-файл, загружает его содержимое в указанный документ Word, организует вычисление в MS Excel среднего и суммарного значения для фиксированного поля DBF-файла, загружает их в документ отдельно от таблицы с комментарием, закрывает DBF-файл без сохранения. Приложение: позволяет создать новый документ MS Word, при помощи диалогового окна сформировать список файлов-источников и вызвать макрос для каждого из них.

Вариант 11. Макрос: активизирует MS Excel, открывает указанный XLS-файл, загружает содержимое его первой страницы в указанный документ Word, организует в MS Excel построение диаграммы по таблице, копирует ее в документ, закрывает XLS-файл без сохранения. Приложение: позволяет создать новый документ MS Word, при помощи диалогового окна сформировать список файлов-источников и вызвать макрос для каждого из них.

Вариант 12. Макрос: активизирует MS Excel, открывает указанный DBF-файл, загружает его содержимое в указанный документ Word, организует в MS Excel построение диаграммы по таблице, копирует ее в документ, закрывает DBF-файл без сохранения. Приложение: позволяет создать новый документ MS Word, при помощи диалогового окна сформировать список файлов-источников и вызвать макрос для каждого из них.

Требования к отчету.

1. Титульный лист.

2. Цель работы. Задание в соответствии с вариантом.

3. Листинги.

4. Экранная форма.

5. Результаты работы приложения.

6. Выводы. Краткая характеристика основных результатов выполненной работы. Обязательно отметить встретившиеся особенности или проявления некорректной работы OLE-сервера!