VPF::Создание таблицы в Word - Форум программистов

Нитонисе

Дата 8.1.2010, 20:34 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 917
Регистрация: 5.11.2009

Репутация: 2
Всего: 2

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

Код


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

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

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

О чем это она?

xvr

Дата 9.1.2010, 13:35 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 7046
Регистрация: 28.8.2007
Где: Дублин, Ирландия

Репутация: 48
Всего: 223

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

Нитонисе

Дата 9.1.2010, 14:30 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 917
Регистрация: 5.11.2009

Репутация: 2
Всего: 2

Цитата(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 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 7046
Регистрация: 28.8.2007
Где: Дублин, Ирландия

Репутация: 48
Всего: 223

Цитата

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

Не знаю. По идее должна читать. Видимо что то в 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 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 917
Регистрация: 5.11.2009

Репутация: 2
Всего: 2

Цитата(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.

Это сообщение отредактировал(а) Нитонисе - 9.1.2010, 18:38

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »