Page 19 - 2578

WD=WA.Documents.Add();
// створюємо новий документ
WA.Visible=true;
// робимо вікно Winword видимим
WA.WindowState=wdWindowStateMaximize;
// Максимізували вікно var count,text1,text2 ;
WA.Selection.TypeText(" У директорії "+put+ " існують
наступні каталоги: ");
WA.Selection.TypeText("****************");
WA.ActiveDocument.Tables.Add(WA.Selection.Range,
3,2,1,1);
WA.Selection.Font.Color = 255;
WA.Selection.TypeText("Каталог");
WA.Selection.MoveRight(wdCell);
WA.Selection.Font.Color = 255;
WA.Selection.TypeText("Розмір в Кб");
WA.Selection.MoveRight(wdCell);
count= 0;
while (count!= n) {
text1=fname[count];
text2=fsize[count]+"";
WA.Selection.TypeText(text1);
WA.Selection.MoveRight(wdCell);
WA.Selection.TypeText(text2);
WA.Selection.MoveRight(wdCell);
count++;
WScript.Sleep(100);
}
WA.Selection.Sort(0,"столбцам 2",1,0,"",0,0,"",0,0,0,1,0);

Друга, третя і четверта робота повинні знаходиться в
одному початковому файлі. Програма оброблятиме аргументи
командного рядка, або, при їх відсутності, пропонувати діалог
введення. Протокол роботи ведеться як в текстовому файлі,
так і в зовнішньому застосуванні – Ms Word або Excel.

18