Редактирование таблиц в Word
Добрый день, уважаемые форумчане.
У меня трабл с редактированием таблицы в шаблонном файле Word
В общем загружаю файл вот так:
Последние две строки записывают данные в закладку. Но в шаблоне есть таблица, с этим то и проблема.
какие оперции мне с ней нужно сделать:
-Подключиться к ней
-добавить строку
-внести значение в ячейки
По сути интересуют указанные чуть выше 3 вопроса.
Очень прошу тех кто в теме, отликнуться и помочь.
Заранее спасибо
У меня трабл с редактированием таблицы в шаблонном файле Word
В общем загружаю файл вот так:
Код:
Variant WordDocuments, Doc, Paragraf;
Variant ActiveDocument;
Variant WordApplication = Variant::CreateObject("Word.Application");
WordApplication.OlePropertySet("Visible", false);
WordDocuments = WordApplication.OlePropertyGet("Documents");
AnsiString Path =AnsiString(Edit2->Text+"\\Договор_"+FIO+"_"+SeriaGos+"_"+NumberGos+"_"+Kad+".doc").c_str();
WordDocuments.OleProcedure("add", Path.c_str());
Doc=WordDocuments.OleFunction("Item",1);
Doc.OleProcedure("Activate");
Variant BookmarkFAM = Doc.OlePropertyGet("Bookmarks");
Paragraf = BookmarkFAM.OleFunction("Item","Dog1");
Paragraf.OlePropertyGet("Range").OlePropertySet("Text",mExcel.OlePropertyGet("ActiveSheet").OlePropertyGet("Cells", t, 16).OlePropertyGet("Value"));
Variant ActiveDocument;
Variant WordApplication = Variant::CreateObject("Word.Application");
WordApplication.OlePropertySet("Visible", false);
WordDocuments = WordApplication.OlePropertyGet("Documents");
AnsiString Path =AnsiString(Edit2->Text+"\\Договор_"+FIO+"_"+SeriaGos+"_"+NumberGos+"_"+Kad+".doc").c_str();
WordDocuments.OleProcedure("add", Path.c_str());
Doc=WordDocuments.OleFunction("Item",1);
Doc.OleProcedure("Activate");
Variant BookmarkFAM = Doc.OlePropertyGet("Bookmarks");
Paragraf = BookmarkFAM.OleFunction("Item","Dog1");
Paragraf.OlePropertyGet("Range").OlePropertySet("Text",mExcel.OlePropertyGet("ActiveSheet").OlePropertyGet("Cells", t, 16).OlePropertyGet("Value"));
какие оперции мне с ней нужно сделать:
-Подключиться к ней
-добавить строку
-внести значение в ячейки
По сути интересуют указанные чуть выше 3 вопроса.
Очень прошу тех кто в теме, отликнуться и помочь.
Заранее спасибо