Таблицы в MS Word

← →
borisich (2001-12-19 13:45) [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;

Таблицы в MS Word Найти похожие ветки