Вниз
Скачать: CL | DM;

Ширина колонок таблицы в 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]

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



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.041 c
2-1146331673
cardexc
2006-04-29 21:27
2006.05.21
другой ПК


1-1144907581
vidiv
2006-04-13 09:53
2006.05.21
TAction.OnUpdate против эффективности


3-1143442741
Физик
2006-03-27 10:59
2006.05.21
Вызов ConnectionString в TADOConnection


3-1143189457
VitaWED
2006-03-24 11:37
2006.05.21
SQL Server и большие объемы


2-1146420911
MVP
2006-04-30 22:15
2006.05.21
Как сделать цикл по Edit




   Наверх