VPF::Как создать таблицу программно под Word

User

Дата 21.3.2005, 15:33 (ссылка)

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

Загрузка ...

Бывалый

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

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

Необходимо создать программно таблицу с заполнением определенными данными отдельных полей. Создаваться она должна при вызове из под Delphi. Я понял что нужно использовать VBA технологию, но не разобрался как пользоваться. Скиньте примерчик

Naghual

Дата 21.3.2005, 21:27 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

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

Вот пример кода на VBA. Адаптируй его для візова из под Дельфи сам, бо я с Дельфями не знаком.

Код

    Dim Tbl As Table
    
    Set Tbl = ActiveDocument.Tables.Add(Selection.Range, 1, 1)
    Tbl.Columns.Add
    Tbl.Columns.Add
    Tbl.Columns(1).Width = 100
    Tbl.Columns(2).Width = 100
    Tbl.Columns(3).Width = 100
    
    Tbl.Cell(1, 1).Range.Text = "Bla, bla, bla..."
    
    Tbl.Rows.Add
    Tbl.Cell(2, 3).Range.Text = "Bla, bla, bla..."

Это сообщение отредактировал(а) Naghual - 21.3.2005, 21:27

--------------------

Я желаю всем Счастья!

Staruha

Дата 22.3.2005, 20:50 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

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

Код


Documents.Add DocumentType:=wdNewBlankDocument'создаем документ
    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=3, NumColumns:= _
        3, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed

А остальное скажу то же что и Naghual

--------------------

Возмездие настигнет

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