Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Вопрос по word-у [D7, Win2k]

r9000 © (2005-06-23 10:55:00)
Добрый день!

Не могли бы вы ответить на такой вопрос можно ли в word-е программно сделать так, чтобы слова в нескольких строчках образовывали столбцы, т.е. находились друг под другом, например так
кенр про роллдд
укеечсм кеепп кен
и т.д.? Как это можно сделать, если можно пример?
Я пробовал использовать символы табуляции, вычисляя максимальную длину слова в столбце и дополняя до максимума слова пробелами,
но это все равно не приводит меня к правильному результату все
равно есть сдвиг в столбце, использовал еще один способ все равно
не то. Что делать?

YurikGL (2005-06-23 13:15:00) [1]

> Не подскажите как здесь таблицу поместить в конец файла,
> а то
> она выводится в начале

Сразу выводить в конце

> убрать линии прорисовки таблицы(т.к. они мне ненужны) если
> вам не трудно?

Сделай соответствующий макрос, и посмотри, как он выглядит

А еще зайди сюда
http://www.delphimaster.ru/articles/dbtoword/index.html

r9000 (2005-06-23 13:10:00) [2]
Не подскажите как здесь таблицу поместить в конец файла, а то
она выводится в начале и как убрать линии прорисовки таблицы(т.к. они мне ненужны) если вам не трудно?
Word := CreateOleObject('Word.Application');
Doc := Word.Documents.Open('C:\Prog\temp.rtf');
Doc.PageSetup.TopMargin:= 20;
Doc.PageSetup.BottomMargin:= 20;
Doc.PageSetup.LeftMargin:= 30;
Doc.PageSetup.RightMargin:= 30;

sel_:=Word.selection;
Doc.Tables.Add(Range:=sel_.Range, NumRows:=2, NumColumns:=2);
tablica_:=Doc.Tables.Count;
Doc.Tables.Item(tablica_).Columns.Width:=37;
Doc.Tables.Item(tablica_).Rows.Height:=25;
Doc.Tables.Item(tablica_).Columns.Item(1).Width:=150;
Doc.Tables.Item(tablica_).Columns.Item(2).Width:=150;
Doc.Tables.Item(tablica_).Columns.Item(1).Cells.Item(1).Range.Text:=' ert';
Doc.Tables.Item(tablica_).Columns.Item(1).Cells.Item(2).Range.Text:='dfbv';
Doc.Tables.Item(tablica_).Columns.Item(2).Cells.Item(1).Range.Text:=' ghhg';
Doc.Tables.Item(tablica_).Columns.Item(2).Cells.Item(2).Range.Text:='mnbn';
sleep(4000);
Word.Visible := True;

-=XP=- (2005-06-23 11:44:00) [3]
Купите книгу "Word для чайников".
Там все написано.

r9000 (2005-06-23 11:41:00) [4]
Так мне прорисовка табличных линий не нужно. Этого можно избежать? И если можно не могли бы вы привести пример создания таблицы без прорисовки линий таблицы.

r9000 (2005-06-23 11:40:00) [5]
Так мне прорисовка табличных линий не нужно. Этого можно избежать? И если можно пример создания таблицы без прорисовки линий таблицы

-=XP=- (2005-06-23 11:02:00) [6]
Таблица

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »