Модераторы: MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Вставка из данных из TEdit в Word, хочу пример 
:(
    Опции темы
Berliner
Дата 27.9.2005, 12:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 803
Регистрация: 18.5.2005

Репутация: нет
Всего: 2
Извиняюсь сразу если спрашиваю очень простую вещь! Хотелось бы пример как вставть значение из поля TEdit(определенное место), если в ворде уже что -то написано

Например : Объем продаж в 2005 году составил , а в 2006 году составит .
как заполнить пустые места значениями из поля edit1, edit2, пожскажите пожалуста!
Добавлено @ 12:53
smile
PM   Вверх
ErManDir
Дата 27.9.2005, 13:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 61
Регистрация: 11.12.2003

Репутация: нет
Всего: нет
1.
Создаешь ворд файл:
Объем продаж в 2005 году составил %Count1, а в 2006 году составит %Count2.
Потом в Делфе соединяешься с Вордом, и делаешь ReplaceAll.
2.
В место вставки нужного текста, делаешь закладку.
В Делфе: GoTo Закладка, TypeText.
PM MAIL ICQ YIM   Вверх
Berliner
Дата 27.9.2005, 13:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 803
Регистрация: 18.5.2005

Репутация: нет
Всего: 2
Спасиб! Но есть вопросы
Цитата

В место вставки нужного текста, делаешь закладку.
В Делфе: GoTo Закладка, TypeText


а можно с кодом(лучше один раз увидеть),
и как это закладку сделать?????
PM   Вверх
ErManDir
Дата 27.9.2005, 14:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 61
Регистрация: 11.12.2003

Репутация: нет
Всего: нет
С закладками есть проблема. Допустим у тебя есть 5 мест в документе для добавления одной и той-же информации. Можно конечно устроить что-нить типа: Отчет1б Отчет2 и т.д. Но ты же не знаешь на чем все закончится, правда? Тогда тебе прийдется отлавливать Exeption и останавливаться на нем. Ага?
А вот с первым вариантом Замены этой проблемы не возникает.

Почитай вот тут

PM MAIL ICQ YIM   Вверх
Albinos_x
Дата 27.9.2005, 17:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 15
Всего: 108
лень писать еще посмотри тут


--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
Berliner
Дата 28.9.2005, 14:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 803
Регистрация: 18.5.2005

Репутация: нет
Всего: 2
Спасибо, за подсказки! но у меня легкий вопрос и конкретный smile ка сделать чтобы значение полей Edit1 и Edit2 вставилось в word в определенное место
Цитата
Объем продаж в 2005 году составил %Count1, а в 2006 году составит %Count2.
Потом в Делфе соединяешься с Вордом, и делаешь ReplaceAll.


поподробнее а то сильно надо

вот что я умею smile
Код

n:='D:\musor\c.doc';
WordApplication1.Documents.Open(n,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam);
WordDocument1.ConnectTo(WordApplication1.ActiveDocument);

// как тут написать чтобі в ворд в определенное место загнать значение поля из Delphi,
WordDocument1.SaveAs(n);
WordDocument1.Close;
PM   Вверх
ErManDir
Дата 28.9.2005, 16:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 61
Регистрация: 11.12.2003

Репутация: нет
Всего: нет
Ага. Значит так:
Код


procedure ReplaceAll(Find, Replace: string);
var
  ovFind,ovReplace,ovMatchCase,ovMatchWholeWord,ovMatchWildcards,ovMatchSoundsLike:OLEVariant;
  ovMatchAllWordForms, ovForward, ovWrap,ovFormat, ovReplaceWith:OLEVariant;
begin
  ovFind:=Find;
  ovMatchCase:=False;
  ovMatchWholeWord:=False;
  ovMatchWildcards:=False;
  ovMatchSoundsLike:=False;
  ovMatchAllWordForms:=False;
  ovForward:=True;
  ovWrap:=wdFindContinue;
  ovFormat:=false;
  ovReplaceWith:=Replace;
  ovReplace:=wdReplaceAll;



  WordApplication1.ActiveDocument.Content.Find.Execute(
        ovFind,ovMatchCase,ovMatchWholeWord,
        ovMatchWildcards,ovMatchSoundsLike,ovMatchAllWordForms,
        ovForward,ovWrap,ovFormat,ovReplaceWith,
        ovReplace,EmptyParam,EmptyParam,EmptyParam,EmptyParam
  );
end;


А "тут" напишешь:
Код

  ReplaceAll('%Count1',Edit1.text);
  ReplaceAll('%Count2',Edit2.text);


Ага?

Это сообщение отредактировал(а) ErManDir - 28.9.2005, 16:30
PM MAIL ICQ YIM   Вверх
Berliner
Дата 28.9.2005, 17:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 803
Регистрация: 18.5.2005

Репутация: нет
Всего: 2
Спасибо буду пробывать
Добавлено @ 17:37
а ты мог бы снабдить свой кусок крмментариями? чтобы я больше разобрался
PM   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: ActiveX/СОМ/CORBA"

Rrader
Girder

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Delphi
  • Вопросы по SQL и вопросы по базам данных, не связанные с Delphi, задавать здесь

Если Вам помогли, и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Rrader, Girder.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: ActiveX/СОМ/CORBA | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0489 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.