Скачать: CL | DM;

Вопрос по 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;

---

← →
YurikGL ©   (2005-06-23 13:15) [6]

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

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


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

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.026 c