Андрей Попов - Windows Script Host для Windows 2000/XP
Рис. 8.8. Создание в Word нового шаблона
Для обозначения в документе места, откуда будет начинаться вывод текста, в шаблон мы добавим две закладки (bookmarks). Вставляется закладка в текст следующим образом: курсор перемещается в нужную позицию, в меню Вставка (Insert) выбирается пункт Закладка (Bookmark), в диалоговом окне Закладка (Bookmark) пишется имя закладки и нажимается кнопка Добавить (Add) (рис. 8.9)
Рис. 8.9. Добавление новой закладки в документ Word
Первую закладку с именем "TableStart" нужно поместить в первую ячейку таблицы, т.е. в то место, откуда начнется печататься фамилия для самой первой записи. Вторая закладка с именем "NomRec" ставится после слов "Всего записей:" — здесь будет напечатано число записей (строк в таблице).
Перейдем теперь к рассмотрению сценария ListWordTable.js, который создает на основе шаблона table.dot файл out.doc и заполняет таблицу в этом файле данными из записной книжки book.xml (рис. 8.5).
Основной функцией в этом сценарии является, как обычно, функция Main(). Здесь сначала вызывается функция InitPath() для определения путей к файлам book.xml (переменная PathBook), out.doc (переменная PathOut) и table.dot (переменная PathTempl), после чего создается экземпляр объекта Word.Application:
//Создаем объект Application
WA=WScript.CreateObject("Word.Application");
Для создания нового документа на основе шаблона Table.dot мы указываем путь к этому шаблону в качестве аргумента метода Add() семейства Documents:
//Создаем новый документ
WD=WA.Documents.Add(PathTempl, false);
Окно Word делается видимым и максимизируется:
//Делаем окно Winword видимым
WA.Visible=true;
//Максимизируем окно Winword
WA.WindowState=wdWindowStateMaximize;
В переменной Sel сохраняется ссылка на объект Selection:
//Получаем ссылку на объект Selection
Sel=WA.Selection;
Как и в сценарии ListWord.js, данные из файла book.xml считываются в массив PersonArr с использованием объектной модели XML DOM. Вывод информации из этого массива в строки таблицу происходит в функции ListPersonArray():
//Сортировка массива и печать его содержимого
function ListPersonArray() {
В var i;
 //Сортировка массива по фамилии
В PersonArr.sort(SortLastName);
 //Переходим к закладке TableStart
В WD.Bookmarks("TableStart").Select();
 //Цикл по всем элементам массива PersonArr
В for (i=0;i<=PersonArr.length-1;i++) {
 //Печать информации для текущей записи
В PrintPerson(PersonArr[i]);
В }
}
Как мы видим, сначала в этой функции в семействе Bookmarks находится закладка с именем "TableStart" и с помощью метода Select() происходит выделение этой закладки в документе. Затем в цикле for вызывается функция PrintPerson(PersReс) для каждого элемента массива PersonArr; в этой функции содержимое полей объекта PersRec последовательно печатается в ячейки таблицы:
//Печать содержимого полей объекта Person
function PrintPerson(PersRec) {
 //Печатаем поля текущей записи
В WA.Selection.Text=PersRec.LastName;
 //Переходим к следующей ячейке таблицы
В WA.Selection.MoveRight(wdCell);
В WA.Selection.Text=PersRec.Phone;
В WA.Selection.MoveRight(wdCell);
В WA.Selection.Text=PersRec.Note;
В if (NomRec<PersonArr.length-1)
 //Если напечатаны еще не все записи, то нужно
 //добавить в таблицу новую строку
В WA.Selection.MoveRight(wdCell);
 //Увеличиваем номер текущей записи
В NomRec++;
}
Ртак, печать РІ таблице РїСЂРѕРёСЃС…РѕРґРёС‚ следующим образом: после вывода текста РІ текущую ячейку РјС‹ перемещаемся РІ соседнюю ячейку справа (константа wdCell проинициализирована РІ самом начале сценария, wdCell=12):
WA.Selection.MoveRight(wdCell);
Если при этом текущая ячейка находилась в третьем столбце, то после такого перемещения в таблицу автоматически будет добавлена новая строка.
После того как все строки в таблице напечатаны, в файл выводится итоговая информация. Для этого мы выделяем закладку с именем "NomRec" и печатаем туда количество элементов в массиве PersonArr:
//Выделяем закладку "NomRec"
WD.Bookmarks("NomRec").Select();
//Печатаем итоговую информацию
WA.Selection.Text=PersonArr.length;
Окончательно сформированный файл сохраняется на диске под именем out.doc:
//Сохраняем созданный документ под именем out.doc
WD.SaveAs(PathOut);
Полностью текст сценария ListWordTable.js приведен в листинге 8.2.
Листинг 8.2. Вывод данных из XML-файла в таблицу Microsoft Word/*******************************************************************/
/* РРјСЏ: ListWordTable.jsВ В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В */
/* Язык: JScript                                                  */
/* Описание: Печать данных из записной книжки в таблицу           */
/*В В В В В В В В В В Microsoft WordВ В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В В */
/*******************************************************************/
//Объявляем переменные
var
В WshShell,В //Ркземпляр объекта WshShell
 BasePath, //Путь к текущему каталогу
 PathBook, //Путь к файлу с данными
 PathOut,  //Путь к выходному файлу Winword
 PathTempl, //Путь к документу-шаблону
В WA,В В В В В В В //Ркземпляр объекта Application
