Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Вниз

Таблицы в MS Word 


som   (2001-12-19 12:40) [0]

Как изменить размер столбца в таблице ???



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;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.033 c
3-21927           Aleks_Vl              2001-12-04 09:47  2002.01.08  
DTS + Delphi


14-22407          KL                    2001-11-03 00:47  2002.01.08  
Бета тестинг!!!


6-22313           SB                    2001-10-01 15:05  2002.01.08  
Помогите сетевому недоучке! Пожайлуста


1-22133           Sand Worm             2001-12-19 14:55  2002.01.08  
Frame


1-22078           DJ X                  2001-12-15 16:11  2002.01.08  
Конвертирование, реестр, INI