Casa
Top.Mail.Ru Yandeks.Metrika
Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];
abajo

Таблицы в MS Word Encontrar ramas similares


som   (2001-12-19 12:40) (1)

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


Borisich2001-12-19 13:45) (1)

unit ...;

interfaz.

usos
... Word2000, OleServer, Word97;

tipo
TForm1 = clase (TForm)
.
.
.
WordApplication1: TWordApplication;
WordDocument1: TWordDocument;
público
procedure ChangeSizeColumn;
fin;

var
Form1: TForm1;

implementación

{$ R * .dfm}

Procedure Form1.ChangeSizeColumn;
var
Template,
NewTemplate,
ItemIndex: OleVariant;
par: Paragraph;
Tab: table;
colum: Column;
comenzar
// Запускаем ворду
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;


fin;



Páginas: 1 rama entera

Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

arriba















Memoria: 0.81 MB
Tiempo: 0.03 c
6-22292
3d [Potencia]
2001-10-06 18:16
2002.01.08
Código de red para el juego.


1-22045
Socol
2001-12-15 17:14
2002.01.08
Escribir en archivo.


7-22432
Voldemar
2001-09-25 04:12
2002.01.08
Назначение приоритета призапуске...


7-22419
Pastor
2001-09-21 10:31
2002.01.08
У меня Celeron 800 стоит ли его апгрейтить на Pentium III 800 ?


7-22447
Sin nombre
2001-08-26 03:43
2002.01.08
Actualizar iconos





africaans albanés Arabic armenio Azerbaiyán vasco Bielorruso Bulgarian Catalán Chino (simplificado) Chino (tradicional) Croata Checo Danés Dutch Inglés Estonia filipina Finnish Francés
gallego georgiano Alemán Griego criollo haitiano hebreo hindi Húngaro islandés Indonesian irlandés Italiano Japonés Korean letón lituano macedonio Malay maltés Noruego
persa polaco Portuguese rumano Ruso Serbio Slovak Esloveno Español swahili Sueco Thai turco ucranio Urdu vietnamita galés yídish bengalí bosnio
cebuano esperanto gujarati hausa hmong igbo javanés kannada khmer lao latín maorí marathi mongol nepali punjabi somalí Tamil telugu yoruba
zulú
Английский Francés Alemán Italiano portugués Русский Español