Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Кто знает как считать символ из doc! Не могу реализовать поиск и замену! 
:(
    Опции темы
bfly
Дата 10.6.2004, 13:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Люди добрые!
Научите меня как считать символ из документа Ворд с помощи компонента WordApplication или WordDocument и заменить его на другой символ. Pls!
PM MAIL   Вверх
YURIC
Дата 10.6.2004, 14:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: 1
Код
var
MSWord, Range:Variant;
begin
try
   MsWord := GetActiveOleObject('Word.Application');
 except
   try
     MsWord := CreateOleObject('Word.Application');
     MsWord.Visible := True;
   except
     Exception.Create('Error');
   end;
MSWord.Documents.Open('D:1.doc');
Range:=MSWord.Documents.item(1).Range;
Range.Text:=StringReplace(Range.Text,'#CEL_NAZ#',cel_.text,[rfReplaceAll, rfIgnoreCase]);
end;


Это сообщение отредактировал(а) YURIC - 10.6.2004, 14:49
PM MAIL   Вверх
Guest
Дата 10.6.2004, 17:30 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Поиск и замена строки выглядит примерно так:
Код
MSWord.Documents.Open('c:\youri\WordAccess\1.doc');
MSWord.Selection.Find.Execute('bbb', FALSE, FALSE, FALSE,
FALSE, FALSE, FALSE, 1, FALSE, '___',
1, FALSE, FALSE, FALSE, FALSE);

Первый параметр метода Execute - строка, которую ты ищешь, 10-ый - строка для замены, 11-ый параметр - (wdReplaceNone=0, wdReplaceOne=1, wdReplaceAll=2), остальные параметры задают дополнительные опции поиска и замены.
Есть еще один нюанс у обекта Selection.Find и Selection.Find.ReplaceMent есть поля, которые тоже влияют на процесс поиска и иx значение скорее всего определяется параметрами последнего поиска.
  Вверх
Guest
Дата 10.6.2004, 17:40 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Кстати, поставь последний end перед строкой
Цитата
MSWord.Documents.Open('D:1.doc');

Вообще-то у Word'а, по-моему, не очень интуитивная обектная модель. Так что если что, спрашивай.
  Вверх
YURIC
Дата 11.6.2004, 11:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: 1
MSWord.Documents.Open('D:\1.doc');
PM MAIL   Вверх
youri
Дата 11.6.2004, 13:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 16
Цитата
MSWord.Documents.Open('D:\1.doc');

Что ты этим _отел сказать? (не все клавиши на клавиатуре работают sad.gif )


--------------------
С кем разговаривает Microsoft
PM   Вверх
YURIC
Дата 12.6.2004, 10:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: 1
youri

почуствуйте разницу:

Код
MSWord.Documents.Open('D:1.doc');


Код
MSWord.Documents.Open('D:\1.doc');


символ один пропустил smile.gif
PM MAIL   Вверх
youri
Дата 12.6.2004, 14:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 16
Бывает smile.gif


--------------------
С кем разговаривает Microsoft
PM   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

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

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

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

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

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


 




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


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

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