Форум: "Основная";
Поиск по всему сайту: 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.021 c
4-22470           Шевченко Сергей       2001-11-02 13:32  2002.01.08  
Внедрение


3-21931           SklifF                2001-12-04 15:59  2002.01.08  
Что это за ошибка? Capability not suppoted


3-21923           Котелок               2001-11-30 02:16  2002.01.08  
Отвлечённый вопрос про оптимизацию.


1-22089           HELP ME PLZ           2001-12-15 18:22  2002.01.08  
DLL S


1-22056           Delphimun             2001-12-15 13:11  2002.01.08  
Как создать ресурс с помощю brcc32.exe?