Document Object Model

> ú ÐÑÐ ÄÑËÞ× ÌÞÄ ÍÄÌÍÈ ÎÏÍÀÊÅËÍÈ: ÌÅÊÝÃÚ ÊÕ ÃÞÎÑßÐÕÐÝ ÌÞ ßÐÍÏÍÌÅ ÉÊÕÅÌÐÞ Microsoft Word Õ ßÒÍÏËÕÏÍÁÞÐÝ ÉÞÉÍÈ- ÌÕÀÑÄÝ ÄÍÉÑËÅÌÐ ÕßÎÍÊÝÃÑÚ ÿíë ÕÌÐÅÏÒÅÈß. ú ÎØÐÞÊßÚ ÎÍÏÞÀÍÐÞÐÝ ß ÐÙÖÍË OBJECT Õ CLSID áÍÏÄÞ, ÌÍ ÌÕÂÅÖÍ ÌÅ ÎÍÊÑÂÕÊÍßÝ, JavaScript ÏÑÖÞÅÐßÚ ÌÞ ßÁÍÈßÐÁÞ Application Õ Ð.Ä. ùÐÍ, ÁÍÍÀÛÅ, ÁÍÃËÍÔÌÍ ÕÊÕ ÌÅÐ?

ùÐÍ ÄÅÊÞÅÐßÚ ß ÎÍËÍÛÝ× ActiveXObject;

ÌÞÎÏÕËÅÏ

var myTable, word, actDoc, myRange;

// ÒÑÌÉÆÕÚ, ÉÍÐÍÏÞÚ ÃÞÎÍÊÌÚÅÐ ßÐÏÍÉÑ ÐÞÀÊÕÆØ
function Show(Fam, Nam, Otc)
{
myTable.Rows.Add();
myTable.Cell(intIndex, 1).Range.InsertAfter(Fam);
myTable.Cell(intIndex, 2).Range.InsertAfter(Nam);
myTable.Cell(intIndex, 3).Range.InsertAfter(Otc);
intIndex++;
}

// ÍßÌÍÁÌÞÚ ÒÑÌÉÆÕÚ ßÍÃÄÞÌÕÚ ÐÞÀÊÕÆØ
function CreateDoc()
{
word = new ActiveXObject("Word.Application");
word.Visible = true;
word.Activate();.
// ßÍÃÄÞÅË ÌÍÁØÈ ÎÑßÐÍÈ ÄÍÉÑËÅÌÐ
word.Documents.Add();
actDoc = word.ActiveDocument;
// ÃÞÄÞÅË ÍÀÊÞßÐÝ ? ÌÞÂÞÊÍ ÄÍÉÑËÅÌÐÞ
myRange = actDoc.Range(Start=0, End=0);.
// ßÍÃÄÞÅË ÐÞÀÊÕÆÑ
myTable = actDoc.tables.Add(Range = myRange, NumRows=1, NumColumns=3);
// ÃÞÄÞÅË ÜÕÏÕÌÑ ßÐÍÊÀÆÍÁ
myTable.Columns(1).Width = 80;
myTable.Columns(2).Width = 160;
myTable.Columns(3).Width = 160;
// ÃÞÄÞÅË ÌÞÃÁÞÌÕÚ ßÐÍÊÀÆÍÁ
myTable.Cell(1,1).Range.InsertAfter("òÞËÕÊÕÚ");
myTable.Cell(1,2).Range.InsertAfter("õËÚ");
myTable.Cell(1,3).Range.InsertAfter("íÐÂÅßÐÁÍ");
// ßÂÅÐÂÕÉ ÞÉÐÕÁÌÍÈ ßÐÏÍÉÕ (ÕßÎÍÊÝÃÑÅÐßÚ ÎÏÕ ÄÍÀÞÁÊÅÌÕÕ ÌÍÁØÓ ßÐÏÍÉ)
intIndex = 2;
// ÄÍÀÞÁÊÚÅË ßÐÏÍÉÕ Á ÐÞÀÊÕÆÑ
Show("õÁÞÌÍÁ","õÁÞÌ","õÁÞÌÍÁÕÂ");
Show("îÅÐÏÍÁ","îÅÐÏ","îÅÐÏÍÁÕÂ");
Show("ÿÕÄÍÏÍÁ","ÿÕÄÍÏ","ÿÕÄÍÏÍÁÕÂ");

...
}

ÅßÊÕ ÂÅ-ÌÕÐÝ ÄÏÑÖÍÅ ßÒÍÏËÕÏÍÁÞÐÝ ßËÍÐÏÕ ßÎÏÞÁÉÑ ÎÍ Visual Basic (Á ÁÍÏÄÅ ßÅÏÁÕß->ËÞÉÏÍß->ÏÅÄÞÉÐÍÏ Visual Basic, Þ ÐÞË Object Browser) Õ ÎÅÏÅÊÕÁÞÈ ÎÏÕËÅÏØ ÌÞ JavaScript/