Применение внешней объектной модели

Windows Script Host в приложениях VBA

Подготовка:

Откройте Word и создайте новый документ (обычным, не программным способом). Затем нажмите клавиши <A1t>+<F11>, чтобы открыть редактор Visual Basic, в окне Project Explorerщелкните правой кнопкой мыши по контейнеру вашего документа (он должен называться Project (Документ1))и в контекстном меню выберите Insert | Module.Будет создан новый стандартный модуль. При помощи меню Insert | Procedureсоздайте в нем новую процедуру с именем wsh().

ЗАДАНИЕ:

1. Добавьте при помощи меню Tools | Referencesв проект этого документа ссылку на библиотеку Windows Script Host Object Model.

2. В процедуре wsh() создайте программные объекты WScript. Network и WScript. Shell и просмотрите свойства и методы этих объектов.

3. Добавьте в процедуру wsh() код, который бы:

• принимал в текстовые переменные и печатал в документе Word значения свойств ComputerName, UserName И UserDomain объекта WScript.Network;

Код для вывода текстовой переменной в Word может выглядеть так:

ThisDocument.Activate

Selection.TypeText Text:=(текстовая_переменная)

• вызывал метод Run о объекта WScript. shell и передавал ему единственный текстовый параметр со значением "calc";

• использовал свойство Environment объекта WScript.shell для создания коллекции текстовых переменных с информацией о переменных окружения;

• печатал в документе Word все значения текстовых переменных из этой коллекции.

Для переменных, которые вы будете Variant использовать для создаваемой коллекции и ее элементов, следует использовать тип.