Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > 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


15:18.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

RusProfile.ru


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