Table=Doc.OlePropertyGet("Tables").OleFunction("Item",1);
Pars=Doc.OlePropertyGet("Paragraphs");
str_y="«___» __________ "+FormatDateTime("yyyy",Now())+"г.";
Table.OleFunction("Cell",3,1).OlePropertyGet("Range"). OlePropertySet("Text",str_y.c_str());

Table=Doc.OlePropertyGet("Tables").OleFunction("Item",2);
Pars=Doc.OlePropertyGet("Paragraphs");

Table=Doc.OlePropertyGet("Tables").OleFunction("Item",3);
Pars=Doc.OlePropertyGet("Paragraphs");