Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Ширина колонок таблицы в Word [D7, WinXP]

tigra © (2006-04-11 09:39:00)
Всем прив!
Есть такая тема: открываю 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:='Заголовок';

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

tigra (2006-04-14 05:53:00) [1]
Старик,респект! Даже не то что не трудно, но хотелось быстро :))

Старик (2006-04-12 17:46:00) [2]
tigra - вот.... ну... МОЛОТОК!!!!! Побольше бы таких, как ты! :)
Ну ведь не трудно же было самому, правда :)

tigra (2006-04-12 06:56:00) [3]
Делать нада так:
Помещаешь 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;

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

Sergg (2006-04-11 11:13:00) [4]
Но ведь я его за тебя читать не буду :)

tigra (2006-04-11 10:21:00) [5]
ГЕНИАЛЬНО!!!!
Я разве спрашивал про хэлп вордовский?

Sergg (2006-04-11 10:17:00) [6]
Можно почитать помощь в самом Worde

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »