Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.04.2012, 00:18   #1
alexander1111
Пользователь
 
Регистрация: 05.03.2011
Сообщений: 37
По умолчанию Вставка в опр. места текста в word

Здравствуйте! Необходимо открыть существующий файл wordа и записать текст в определенные места через delphi.. кто подскажет как реализовать? открыть файл - открыл. но как занести туда данные в нужные места документа я незнаю..
alexander1111 вне форума Ответить с цитированием
Старый 25.04.2012, 07:56   #2
FaTaL
Участник клуба
 
Аватар для FaTaL
 
Регистрация: 09.11.2007
Сообщений: 1,759
По умолчанию

Что значит "в нужные места"? Конкретнее можно.
FaTaL вне форума Ответить с цитированием
Старый 25.04.2012, 08:26   #3
alexander1111
Пользователь
 
Регистрация: 05.03.2011
Сообщений: 37
По умолчанию

ну вот есть в готовом документе word поля:
Заказчик:
Наименование:
Дата:
и т.д.

В delphi - на форме уже формируются в полях эти данные..

И Вот нужно средствами delphi - открыть word и в ворде напротив поля "заказачик" - внести данные из delphi, напротив поля "наименование " - внести данные из delphi и т.д.
alexander1111 вне форума Ответить с цитированием
Старый 25.04.2012, 09:58   #4
FaTaL
Участник клуба
 
Аватар для FaTaL
 
Регистрация: 09.11.2007
Сообщений: 1,759
По умолчанию

Это лучше всего делать посредством шаблона. Например в шаблоне указываешь

Заказчик: %ZAKAZCHIK%

А из Delphi делаешь поиск слова %ZAKAZCHIK% и заменяешь его на свой.
Вот код поиска и замены
Код:
  procedure FindAndReplace (SearchStr, ReplaceStr : string);
  begin
    word.Selection.Find.Text := SearchStr;
    word.Selection.Find.Replacement.Text := ReplaceStr;
    word.Selection.Find.Execute (Replace := 2);
  end;
Вызываешь её например так
Код:
FindAndReplace ('%ZAKAZCHIK%', Edit1.Text);
Если что-то непонятно, стучись в аську на аватарке.
FaTaL вне форума Ответить с цитированием
Старый 25.04.2012, 10:05   #5
DiemonStar
Старожил
 
Регистрация: 08.02.2012
Сообщений: 2,173
По умолчанию

Или можно сделать соответствующие закладки в шаблоне и вставлять туда нужные данные. Тоже не особо сложно.
Правильно поставленная задача - три четверти решения.
DiemonStar вне форума Ответить с цитированием
Старый 25.04.2012, 10:08   #6
alexander1111
Пользователь
 
Регистрация: 05.03.2011
Сообщений: 37
По умолчанию

Цитата:
Сообщение от DiemonStar Посмотреть сообщение
Или можно сделать соответствующие закладки в шаблоне и вставлять туда нужные данные. Тоже не особо сложно.
а можешь более подробно про свой вариант с небольшим примером? Впервые просто работаю с word посредством delphi.
alexander1111 вне форума Ответить с цитированием
Старый 25.04.2012, 10:18   #7
FaTaL
Участник клуба
 
Аватар для FaTaL
 
Регистрация: 09.11.2007
Сообщений: 1,759
По умолчанию

Написал же подробно сверху. Что не понятно? Проще некуда.
FaTaL вне форума Ответить с цитированием
Старый 25.04.2012, 10:29   #8
alexander1111
Пользователь
 
Регистрация: 05.03.2011
Сообщений: 37
По умолчанию

Цитата:
Сообщение от FaTaL Посмотреть сообщение
Написал же подробно сверху. Что не понятно? Проще некуда.
спасибо за помощь!))) чуть позже попробую!! просто хотел собрать пару методов и попробовать каждый)
alexander1111 вне форума Ответить с цитированием
Старый 25.04.2012, 10:32   #9
FaTaL
Участник клуба
 
Аватар для FaTaL
 
Регистрация: 09.11.2007
Сообщений: 1,759
По умолчанию

Вот даже рабочий пример тебе настряпал Word.rar с подробными коментариями.
Сам ЕХЕ-шник с шаблоном в архиве в папке ...\Win32\Debug\ (если не в курсе)

Последний раз редактировалось FaTaL; 25.04.2012 в 10:36.
FaTaL вне форума Ответить с цитированием
Старый 25.04.2012, 11:40   #10
alexander1111
Пользователь
 
Регистрация: 05.03.2011
Сообщений: 37
По умолчанию

Цитата:
Сообщение от FaTaL Посмотреть сообщение
Вот даже рабочий пример тебе настряпал Word.rar с подробными коментариями.
Сам ЕХЕ-шник с шаблоном в архиве в папке ...\Win32\Debug\ (если не в курсе)
Спасибо дружище!!!! Как работать с excel я разобрался, а вот когда наступило время с word - трудно немного.. Спасиб, за помощь.. вечером посмотрю)
alexander1111 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
VBA WORD При наборе текста, автоматическая вставка изображения fearnewstyle Microsoft Office Word 1 13.11.2011 08:05
Вставка картинки в Word GBAXA Общие вопросы Delphi 1 02.07.2010 23:56
вставка в Word начинающий1 Общие вопросы Delphi 5 03.04.2010 00:49
Вставка и замена в формулах в MS Word Mixasik Общие вопросы Delphi 1 22.03.2010 09:45
Вставка текста по координатам в Word Nowichok Компоненты Delphi 0 16.12.2006 20:01