| Код |
VWord=CreateOleObject("Word.Application");
VWord.OlePropertySet("Visible",true);
VWord.OlePropertyGet("Documents").OleProcedure("Add");
VDoc=VWord.OlePropertyGet("Documents").OleFunction("Item",1);
VDoc.OlePropertyGet("Paragraphs").OleProcedure("Add");
text_temp="Отчет системы о дежурстве охраны за "+IntToStr(day)+"."+IntToStr(month)+"."+IntToStr(year)+" года.";
VDoc.OlePropertyGet("Paragraphs").OleFunction("Item",1).OlePropertyGet("Range").OlePropertyGet("Font").OlePropertySet("Bold",1);
VDoc.OlePropertyGet("Paragraphs").OleFunction("Item",1).OlePropertyGet("Range").OlePropertyGet("Font").OlePropertySet("Size",29);
VDoc.OlePropertyGet("Paragraphs").OleFunction("Item",1).OlePropertyGet("Range").OlePropertySet("Text",text_temp.c_str());
VDoc.OlePropertyGet("Paragraphs").OleFunction("Item",1).OlePropertyGet("Range").OlePropertyGet("ParagraphFormat").OlePropertySet("Alignment", 1);
VDoc.OlePropertyGet("Paragraphs").OleProcedure("Add");
VDoc.OlePropertyGet("Tables").OleProcedure("Add",
VDoc.OlePropertyGet("Paragraphs").OleFunction("Item",2).OlePropertyGet("Range"), 1+REPORT.bypasses_count*REPORT.checkpoints_count+REPORT.bypasses_count, //кол-во строк
4, //кол-во столбцов
1, //если ноль - то у таблицы невидимые границы
0); //если единица - то таблица не растягивается на всю страницу по ширине
VDoc.OlePropertyGet("Tables").OleFunction("Item",1).OlePropertyGet("Range").OlePropertyGet("Font").OlePropertySet("Bold",0);
VDoc.OlePropertyGet("Tables").OleFunction("Item",1).OlePropertyGet("Range").OlePropertyGet("Font").OlePropertySet("Size",10);
VTable=VDoc.OlePropertyGet("Tables").OleFunction("Item",1);
VTable.OlePropertyGet("Borders").OlePropertyGet("wdBorderLeft").OlePropertySet("LineWidth","wdLineWidth050pt"); // в этой строке засада....
|
Таблицу рисует нормально, но вот эта строка:
VTable.OlePropertyGet("Borders").OlePropertyGet("wdBorderLeft").OlePropertySet("LineWidth","wdLineWidth225pt");
приводит Word в недоумение - пишет, неизвестное имя. Где я ошибся?
|