Как скопировать таблицу AdvStringGrid в ворд с границами

04.10.2012, 15:03. **Показов** 1857. **Ответов** 2

Author24 — интернет-сервис помощи студентам

Пытаюсь скопировать таблицу в ворд :
для этого установила TMS component pack, теперь могу скопировать таблицу целиком и быстро, но без границ, в ворд выводятся ровненькие столбики

C++

  //заполнение таблицы 3 столбца 2 строки
   AdvStringGrid1->Cells[0][0]="11";
   AdvStringGrid1->Cells[0][1]="12";
   AdvStringGrid1->Cells[0][2]="13";
   AdvStringGrid1->Cells[1][0]="21";
   AdvStringGrid1->Cells[1][1]="22";
   AdvStringGrid1->Cells[1][2]="23";
  // создается документ ворд 
  vVarApp=CreateOleObject("Word.Application.8");
    fStart=true;
   vVarApp.OlePropertySet("Visible",true);
    vVarDocs=vVarApp.OlePropertyGet("Documents");
    vVarDocs.OleProcedure("Add","C:\\WINDOWS\\Application Data\\Microsoft\\Шаблоны\\Normal.dot",
                          false,0);
    vVarDoc=vVarDocs.OleFunction("Item",1);
    vVarDoc.OleProcedure("Activate");
    vVarParagraphs=vVarDoc.OlePropertyGet("Paragraphs");
//копируем таблицу в буфер обмена
        AdvStringGrid1->CopyToClipBoard();
//вставляем таблицу в ворд
        vVarApp.OlePropertyGet("Selection").OleProcedure("Paste");
//сохраняем документ ворд
    AnsiString vAsCurDir=GetCurrentDir();
    AnsiString vAsCurDir1=vAsCurDir+"\\test.doc";
    vVarDoc=vVarDocs.OleFunction("Item",1);
    vVarDoc.OleProcedure("SaveAs",vAsCurDir1.c_str());

Пожалуйста подскажите как скопировать AdvStringGrid в ворд с границами

LK · 06.10.2012, 17:10

Работа с OLE-сервером Word

06.10.2012, 20:00

спасибо за ссылку, но боюсь это мне не поможет,там написано как нарисовать таблицу в ворде и скопировать в каждую из ячеек данные из каждой ячейки StringGrid.
Это отличный способ, но ужасно медленный, если нужно скопировать большую таблицу.
Поэтому то я и решила скачать TMS component pack, т.к прочитала что TAdvStringGrid круче StringGrid, и таблицу TAdvStringGrid можно целиком скопировать в ворд.
На деле оказалось что всё так и есть, но границы не копируются,что очень неудобно так как мне в отчет нужна таблица с границами.

LK Заблокирован
	06.10.2012, 17:10	2
	Работа с OLE-сервером Word 0

konfetkaweb
	06.10.2012, 20:00	3
	спасибо за ссылку, но боюсь это мне не поможет,там написано как нарисовать таблицу в ворде и скопировать в каждую из ячеек данные из каждой ячейки StringGrid. Это отличный способ, но ужасно медленный, если нужно скопировать большую таблицу. Поэтому то я и решила скачать TMS component pack, т.к прочитала что TAdvStringGrid круче StringGrid, и таблицу TAdvStringGrid можно целиком скопировать в ворд. На деле оказалось что всё так и есть, но границы не копируются,что очень неудобно так как мне в отчет нужна таблица с границами.

Опции темы