Вопрос по word-у

← →
r9000 (2005-06-23 10:55) [0]

Добрый день!

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

← →
-=XP=- © (2005-06-23 11:02) [1]

Таблица

← →
r9000 (2005-06-23 11:40) [2]

Так мне прорисовка табличных линий не нужно. Этого можно избежать? И если можно пример создания таблицы без прорисовки линий таблицы

← →
r9000 (2005-06-23 11:41) [3]

Так мне прорисовка табличных линий не нужно. Этого можно избежать? И если можно не могли бы вы привести пример создания таблицы без прорисовки линий таблицы.

← →
-=XP=- © (2005-06-23 11:44) [4]

Купите книгу "Word для чайников".
Там все написано.

← →
r9000 (2005-06-23 13:10) [5]

Не подскажите как здесь таблицу поместить в конец файла, а то
она выводится в начале и как убрать линии прорисовки таблицы(т.к. они мне ненужны) если вам не трудно?
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;

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

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

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

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

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

Вопрос по word-у Найти похожие ветки