Таблицы в MS Word [D5, Win95/98, WinME]
som © (2001-12-19 12:40:00)
Как изменить размер столбца в таблице ???
borisich (2001-12-19 13:45:00) [1]
unit ...;
interface
uses
... Word2000, OleServer, Word97;
type
TForm1 = class(TForm)
.
.
.
WordApplication1: TWordApplication;
WordDocument1: TWordDocument;
public
procedure ChangeSizeColumn;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
Procedure Form1.ChangeSizeColumn;
var
Template,
NewTemplate,
ItemIndex: OleVariant;
par: Paragraph;
Tab: table;
colum: Column;
begin
// Запускаем ворду
WordApplication1.Connect;
WordApplication1.Visible := True;
Template := EmptyParam;
NewTemplate := False;
ItemIndex := 1;
WordApplication1.Documents.Add(Template, NewTemplate);
WordDocument1.ConnectTo(WordApplication1.Documents.Item(ItemIndex));
WordApplication1.Options.CheckSpellingAsYouType := False;
WordApplication1.Options.CheckGrammarAsYouType := False;
Par:=WordDocument1.Paragraphs.Add(EmptyParam);
//создаем таблицу
tabl := WordDocument1.Tables.Add(par.Range, 1, 2);
// 1 - кол-во строк, 2 - кол-во столбцов
// Выбираем столбец
colum:= tabl.Columns.Item(1);
// Устанавливаем его размер см переводим в pound
colum.Width := 3.78*28.35;
end;
Наверх 
ЧАТ |
Орешник |
|
