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

ci5

Дата 11.1.2009, 18:35 (ссылка)

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

Загрузка ...

Новичок

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

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

Здраствуйте. Столкнулся с проблемой создания таблицы. Но таблицу мне надо не просто создать, а сделать что-то в виде например 5x5 и 4-ый столбец например будет создержать всего одну строку. Тоесть в четвертом столбце сделать просто одну строку. Как возможно это сделать ? Юзал поиск, ничего по этому поводу не нашел.
Заранее благодарен.

Albinos_x

Дата 12.1.2009, 00:43 (ссылка)

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

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

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

у ячейки таблицы как и в экселе есть свойство mergecells

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

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

ci5

Дата 12.1.2009, 09:51 (ссылка)

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

Загрузка ...

Новичок

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

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

Можно пожалуйста маленький пример привести как это будет выглядеть, а то я че-то никак не пойму как это реализуется. У вас в примере написано только для excel это свойство и оно выглядит так

Код


ExcelApplication1.Range['A1','A3'].MergeCells:=True;

Но тут через A1,A3 . А вот как в Word это реализовать никак не пойму.

Rrader

Дата 13.1.2009, 19:40 (ссылка)

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

Загрузка ...

Inspired =)

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

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

Код


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, 4).Merge(Table.Cell(5, 4));
  Table := Unassigned;
  Doc := Unassigned;
end;

Это сообщение отредактировал(а) Rrader - 13.1.2009, 19:44

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

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

ci5

Дата 14.1.2009, 09:12 (ссылка)

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

Загрузка ...

Новичок

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

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

Спасибо большое, все сделал. smile

ci5

Дата 16.1.2009, 19:32 (ссылка)

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

Загрузка ...

Новичок

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

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

Столкнулся с проблемой. Не могу сделать жирным текст в таблице и сделать поцентру. Может кто подскажет ? И вообще где можно посмотреть по этому информацию ?

Rrader

Дата 17.1.2009, 12:19 (ссылка)

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

Загрузка ...

Inspired =)

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

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

Цитата(ci5 @ 17.1.2009, 01:32

)

Не могу сделать жирным текст в таблице

Код


Table.Range.Font.Bold := 1;

Цитата(ci5 @ 17.1.2009, 01:32

)

и сделать поцентру

Код


Table.Range.ParagraphFormat.Alignment := wdAlignParagraphCenter;
Table.Range.Cells.VerticalAlignment := wdCellAlignVerticalCenter;

Цитата(ci5 @ 17.1.2009, 01:32

)

И вообще где можно посмотреть по этому информацию ?

В справке MS Office по Word, Excel etc.

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

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

ci5

Дата 17.1.2009, 23:59 (ссылка)

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

Загрузка ...

Новичок

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

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

Все спасибо все получилось

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