Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.12.09;
Скачать: [xml.tar.bz2];

Вниз

Горю! Сдавать программу через 2 дня! :((   Найти похожие ветки 

 
KidMan   (2002-11-27 17:02) [0]

Здравствуйте Мастера!
Помогите плиз... сдвать через 2 дня прогу а никак не получается постоить в Word следующую таблицу
--------------|-------------------------
| заголовок |
заголовок |------------------------|
| заголовок | загловок |
--------------|-------------------------
данные | данные | данные |
данные | данные | данные |
----------------------------------------

Заранее всех благодарю!


 
Andy78   (2002-11-27 17:03) [1]

Обязательно в Word ?

В Excel проще.


 
KidMan   (2002-11-27 17:04) [2]

К сожалению именно в Ворд! :((


 
Andy78   (2002-11-27 17:16) [3]

Тогда пиши шаблоны и заменяй там слова на то что тебе нужно.
Используй компонент WordDocument на стр. Servers

var WB: OleVariant;

...

WB:= WordDocument.Content;

....

WB.Find.Execute(FindText:="то что нужно заменить", ReplaceWith:= "Нужная строка", Replace:=2);

...



 
KidMan   (2002-11-27 17:21) [4]

Я могу создать таблицу типа
------------------------------
| |
------------------------------
| |
------------------------------
и так далее...

и заполнить ее данными...из БД например...
Пользуюсь я не компонентами на странице серверс а методом CreateObject.... Но дело не в этом ... Дело в том что я не могу создавать внутри ячейки еще пару дополнительных ячеек...
Вы меня поняли? Поняли почему я рисовал таблицу в своем вопросе?


 
Andy78   (2002-11-27 17:23) [5]

Это плохо. Кроме как использовать шаблон не могу ничего придумать. Вообще-то может надо покопаться в VBasic.


 
KidMan   (2002-11-27 17:31) [6]

Я копался в хелпе... но к сожалению там трудно разобраться в нем...

Может будут какие нибудь еще идеи?
(с наждеждой так)


 
TTCustomDelphiMaster   (2002-11-27 17:54) [7]

Идея простая. Включить запись макроса, сделать все что нужно, остановить запись макроса и посмотреть как это выглядит на VB. Перенести этот код в Delphi


 
KidMan   (2002-11-27 18:13) [8]

К сожалению я не могу работать с макросами... Да и Ворд знаю постолько поскольку... Просто мне необходимо SQL запрос вывести в ворд...
А знаний не хватает... (((


 
KidMan   (2002-11-27 19:39) [9]

Кто нибудь плиз!


 
KidMan   (2002-11-28 07:39) [10]

Неужели никак ... ребят?


 
Mad_Ghost   (2002-11-28 07:53) [11]

КидМан, с макросами не нужно уметь работать, там есть такая фича Сервис-Макрос-Начать запись макроса, и делаешь все то что хотел бы автоматизировать, потом останавливаешь, смотришь, логически понятно хотя я и не разу не занимался бейсиком, но все равно немного понятно, просто этот код вставляешь когда с вордом работаешь, я вот только не знаю как всавлять макросы, не приходилось не разу пока ещё


 
KidMan   (2002-11-28 11:19) [12]

Ребят... больше никаких идей?


 
Дядя Будда   (2002-11-28 12:27) [13]

Создаешь таблицу, которую, как ты говоришь создать можешь:
|------|-------|--------|
| | | |
|------|-------|--------| и т.д.

Под заголовок делаешь две строки
Далее:

var
c1, c2: Cell;
Begin
C1:= WordApplication.ActiveDocument.Tables(1).Cell(1, 2);
C2:= WordApplication.ActiveDocument.Tables(1).Cell(1, 3);
C2.Merge(C1);

C1:= WordApplication.ActiveDocument.Tables(1).Cell(1, 1);
C2:= WordApplication.ActiveDocument.Tables(1).Cell(2, 1);
C2.Merge(C1);
end;


 
KidMan   (2002-11-28 13:03) [14]

Попробую!
Спасибо большое Дядя Будда!



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

Форум: "Основная";
Текущий архив: 2002.12.09;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.47 MB
Время: 0.008 c
1-27923
Сатир
2002-11-27 17:10
2002.12.09
Модальные формы


6-28157
Aristokrat
2002-10-11 13:22
2002.12.09
Сообщения по локалке


1-28036
Smithson
2002-11-29 11:10
2002.12.09
Как сменить наследника у фрейма с .dfm-файлом


8-28141
QAZZZ
2002-08-25 02:18
2002.12.09
ASM


1-28005
mike-d
2002-11-29 22:05
2002.12.09
Перезапуск приложения





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский