Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.
Внимание! Некоторое время письма не доходят до аккаунтов MAIL RU GROUP, не доходят на все почтовые ящики mail.ru, inbox.ru, bk.ru. Пишите им жалобы, чтобы быстрее восстановили получение писем, регистрируйтесь через яндекс почту и gmail, туда письма с активизацией доходят.

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

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

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

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

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

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

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

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

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

Заказчик: %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
Репутация: 491
По умолчанию

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

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

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

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

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

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

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

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
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 10:45
Вставка текста по координатам в Word Nowichok Компоненты Delphi 0 16.12.2006 21:01


02:13.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru