Ширина колонок таблицы в Word

← →
tigra (2006-04-11 09:39) [0]

Всем прив!
Есть такая тема: открываю Word, создаю там табличку (i,3) и хочу задать разную ширину колонкам. Подскажите как. Вот мои действия:
MSWord:=CreateOleObject("Word.Application");
MSWord.Documents.Add;
Doc:=MSWord.ActiveDocument;
T := Doc.Tables.Add(MSWord.Selection.Range, rc, 3);
//Вот тут-то и нада задать ширину...
T.Cell(1,1).Range.Text:="Дата";
T.Cell(1,2).Range.Text:="Номер";
T.Cell(1,3).Range.Text:="Заголовок";

Заранее всем пасиб!

← →
Sergg (2006-04-11 10:17) [1]

Можно почитать помощь в самом Worde

← →
tigra (2006-04-11 10:21) [2]

ГЕНИАЛЬНО!!!!
Я разве спрашивал про хэлп вордовский?

← →
Sergg (2006-04-11 11:13) [3]

Но ведь я его за тебя читать не буду :)

← →
tigra (2006-04-12 06:56) [4]

Делать нада так:
Помещаешь WordApplication, WordDocumebt на форму и пишешь
WordApplication1.Connect;
WordApplication1.Documents.Add(EmptyParam, EmptyParam,EmptyParam, EmptyParam);
WordDocument1.ConnectTo(WordApplication1.ActiveDocument);
WordDocument1.PageSetup.Orientation:=wdOrientPortrait;
WordDocument1.Tables.Add(WordDocument1.Range,rc+2,3,EmptyParam, EmptyParam);
WordDocument1.Tables.Item(1).Columns.Item(1).Width:=100;
WordDocument1.Tables.Item(1).Columns.Item(2).Width:=80;
WordDocument1.Tables.Item(1).Columns.Item(3).Width:=320;
WordDocument1.Tables.Item(1).Cell(1,1).Range.Text:="Дата";
WordDocument1.Tables.Item(1).Cell(1,2).Range.Text:="Номер";
WordDocument1.Tables.Item(1).Cell(1,3).Range.Text:="Название";
WordDocument1.Tables.Item(1).Rows.Item(1).Select;
WordApplication1.Selection.Paragraphs.Alignment:=wdAlignParagraphLeft;
WordApplication1.Selection.Font.Bold:=1;

Спасиба себе. Интересно, а в хелпе также написано :)))

← →
Старик (2006-04-12 17:46) [5]

tigra - вот.... ну... МОЛОТОК!!!!! Побольше бы таких, как ты! :)
Ну ведь не трудно же было самому, правда :)

← →
tigra (2006-04-14 05:53) [6]

Старик,респект! Даже не то что не трудно, но хотелось быстро :))

Ширина колонок таблицы в Word Найти похожие ветки