Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > C++ Builder > Создание таблицы в Word

Автор: Нитонисе 8.1.2010, 20:34

Создаю таблицу в Word.

Код


WordApplication1->Disconnect();
WordApplication1->Connect();
WordApplication1->set_Visible(true);
WordApplication1->Documents->Add();

WordApplication1->ActiveDocument->Tables->Add(WordApplication1->Selection->Range,3,6,EmptyParam,EmptyParam);

Выскакивает ошибка:

http://www.radikal.ru

О чем это она?

Автор: xvr 9.1.2010, 13:35

Не смогла прочесть проперть Tables из ActiveDocument.

Автор: Нитонисе 9.1.2010, 14:30

Цитата(xvr @ 9.1.2010, 13:35

)

Не смогла прочесть проперть Tables из ActiveDocument.

И как заставить ее прочитать эту проперть?

Вот такой способ создания таблицы работает:

Код


RangePtr MyRange = WordApplication1->Selection->Range;
TablePtr MyTable = WordApplication1->Selection->Range->Tables->Add(WordApplication1->Selection->Range,5, 6, EmptyParam, EmptyParam);
MyTable->Borders->InsideLineStyle = wdLineStyleSingle;
MyTable->Borders->OutsideLineStyle = wdLineStyleSingle;

Но вот как тот метод работать заставить? Он выглядит более компактно и более понятно вообще-то...

Автор: xvr 9.1.2010, 18:04

Цитата

И как заставить ее прочитать эту проперть?

Не знаю. По идее должна читать. Видимо что то в ActiveDocument не понравилось. Может надо было сделать Activate для созданного документа. Попробуй так

Код


WordApplication1->Disconnect();
WordApplication1->Connect();
WordApplication1->set_Visible(true);
WordApplication1->Documents->Add()->Tables->Add(WordApplication1->Selection->Range,3,6,EmptyParam,EmptyParam);

Автор: Нитонисе 9.1.2010, 18:37

Цитата(xvr @ 9.1.2010, 18:04

)

Может надо было сделать Activate для созданного документа. Попробуй так

Так тоже не работает. Зато работает так:

Код


WordApplication1->Disconnect();
WordDocument1->Disconnect();
WordApplication1->Connect();
WordApplication1->set_Visible(true);
WordApplication1->Documents->Add();
WordDocument1->ConnectTo(WordApplication1->ActiveDocument);
WordDocument1->Tables->Add(WordApplication1->Selection->Range,3,6,EmptyParam,EmptyParam);

Однако таблица создается не явно, а только ее прототип. То есть в вордовском документа границы колонок и строчек видны, а при печати документа они не будут выводится.

Вот макрос создания таблицы в ворде

Код


Sub Макрос()
    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=3, NumColumns:= _
        5, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
    With Selection.Tables(1)
        If .Style <> "Сетка таблицы" Then
            .Style = "Сетка таблицы"
        End If
        .ApplyStyleHeadingRows = True
        .ApplyStyleLastRow = True
        .ApplyStyleFirstColumn = True
        .ApplyStyleLastColumn = True
    End With    
End Sub

Что это за стиль "Сетка таблицы"? Это имеется ввиду как раз нормальная таблица с видными на печати границами ячеек? Или же эти нормальные границы ячеек задаются последнимичетырьмя операторам ApplyStyle...?
Как это записать в билдере?
Вот такой вариант работает

Код


RangePtr MyRange = WordApplication1->Selection->Range;
TablePtr MyTable = WordApplication1->Selection->Range->Tables->Add(WordApplication1->Selection->Range,3, 6, EmptyParam, EmptyParam);
MyTable->Borders->InsideLineStyle = wdLineStyleSingle;
MyTable->Borders->OutsideLineStyle = wdLineStyleSingle;

Но что-то он не согласуется с кодом на VBA.