VPF::работа с ячейками таблицы wordа - Форум программистов

wood

Дата 8.2.2009, 06:55 (ссылка)

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

Загрузка ...

Шустрый

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

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

Подскажите, плиз,
1: как объединить соседние ячейки в таблице ворда.
2: как любую линию границы ячейки (любую из верх, низ, право, лево) сделать невидимой (все границы таблицы внутренние и внешние - wdLineStyleSingle).

Rrader

Дата 8.2.2009, 09:24 (ссылка)

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

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

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

Цитата(wood @ 8.2.2009, 12:55

)

1: как объединить соседние ячейки в таблице ворда.

См. здесь

Цитата(wood @ 8.2.2009, 12:55

)

2: как любую линию границы ячейки (любую из верх, низ, право, лево) сделать невидимой (все границы таблицы внутренние и внешние - wdLineStyleSingle).

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  Doc, Table: OleVariant;
begin
  Doc := WordApplication1.ActiveDocument;
  Table := Doc.Tables.Add(Doc.Content, 5, 5);
  Table.Borders.InsideLineStyle := wdLineStyleSingle;
  Table.Borders.OutsideLineStyle := wdLineStyleSingle;
  { Уберем у левой верхней ячейки нижнюю границу }
  Table.Cell(1, 1).Borders.Item(wdBorderBottom).Visible := False;
  { Уберем у левой нижней ячейки правую границу }
  Table.Cell(5, 1).Borders.Item(wdBorderRight).Visible := False;
  Table := Unassigned;
  Doc := Unassigned;
end;

Это сообщение отредактировал(а) Rrader - 8.2.2009, 09:24

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

Let's do this quickly!
Rest in peace, Vit!

wood

Дата 11.2.2009, 10:58 (ссылка)

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

Загрузка ...

Шустрый

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

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

Спасибо! все заработало как надо!)

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