Всем привет!
Такая проблема, создаю таблицу в ворде, вставляю текст в ячейку, но текст обрезается...
Вот код
| C++ |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
| TablePtr vTable;
WordRangePtr vCell;
Form1->WApp->ConnectKind=ckNewInstance;
Form1->WApp->Connect();
Form1->WApp->Options->CheckSpellingAsYouType=False;
Form1->WApp->Options->CheckGrammarAsYouType=False;
Form1->WApp->Documents->Add();
Form1->WDoc->ConnectTo(Form1->WApp->ActiveDocument);
Form1->WApp->Visible=true;
vTable=Form1->WDoc->Tables->Add(Form1->WDoc->Range(0),Form1->StringGrid->RowCount,13);
vTable->Borders->Enable=true;
vTable->Rows->Item(1)->Height=100;
vCell=vTable->Cell(1,1)->Range;
vCell->Font->Size=7;
vCell->Font->Bold=0;
vCell->InsertAfter(Form1->StringGrid->Cells[1][1].с_str()); |
|
WApp это TWordApplication
WDoc это TWordDocument
Результат:
[img]грузите картинки на форум[/img]
Пробовал еще и вот так, только через OLE:
| C++ |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| Variant vVarApp, vVarDoc, vVarDocs,vVarRange,vVarParagraph,vVarParagraphs,vVarTable,vVarCell;
vVarApp=CreateOleObject("Word.Application");
vVarApp.OlePropertySet("Visible",true);
vVarDocs=vVarApp.OlePropertyGet("Documents");
vVarDocs.OleProcedure("Add");
vVarDoc=vVarDocs.OleFunction("Item",1);
vVarDoc.OleProcedure("Activate");
vVarParagraphs=vVarDoc.OlePropertyGet("Paragraphs");
vVarParagraphs.OleProcedure("Add"); //Добавляем параграф
vVarParagraph=vVarParagraphs.OleFunction("Item",1); //Работаем с первым параграфом
vVarRange = vVarParagraph.OlePropertyGet("Range"); //Выбираем ряд в параграфе.
vVarDoc.OlePropertyGet("Tables").OleProcedure("Add", vVarRange, StringGrid->RowCount, 13,1,1);
vVarTable=vVarDoc.OlePropertyGet("Tables").OleFunction("Item",1); //Работать будем с первой таблицей - создана тоже одна
vVarCell=vVarTable.OleFunction("Cell",1,1);
vVarCell.OleFunction("Select");
vVarCell.OlePropertyGet("Range").OlePropertySet("Text",StringGrid->Cells[3][0].c_str()); |
|
Результат такой же.
Подскажите плиз, что не так.
Спасибо всем кто просмотрел тему. Нашел решение, как и думал-все дело в типе передаваемых данных.
Нужно передавать в типах BSTR он же OLESTR.
Весь код заново не буду писать, только исправленные строчки:
| C++ |
1
| vCell->InsertAfter(WideString(Form1->StringGrid->Cells[1][1]).c_bstr); |
|
и для второго варианта
| C++ |
1
| vVarCell.OlePropertyGet("Range").OlePropertySet("Text",WideString(Form1->StringGrid->Cells[1][1]).c_bstr); |
|
(
