Не даёт добавить код, подвисает

striker90

Дата: 13.05.2011 11:48:09

Вот процедура замены фрагментов текста в Ворде

procedure TForm4.Button2Click(Sender: TObject);

var FilePath: string;
begin
  FilePath:=ExtractFilePath(GetModuleName(HInstance)) + 'Report.doc';
  Word.Documents.Open(FilePath);
  FindAndReplace('$s1',floattostr(Q));
  FindAndReplace('$s2',floattostr(ggg));
  FindAndReplace('$s3',res);
 end;

Так вот если что-то дописать в конце процедуры, то виснет
Я даже не могу дописать чтобы закрывало Ворд и документ
А если ничего не дописывать, всё отлично заменяет
В чём может быть проблема?

Johnmen

Дата: 13.05.2011 12:47:01

Ещё раз, помедленнее, по-русски и поконкретнее...

striker90

Дата: 13.05.2011 12:52:15

Johnmen, вот фрагмент кода, привязан к кнопке
Если что-то в этой процедуре добавить ещё, даже любой showmessage или form.show
То при нажатии этой кнопки программа виснет
Мне надо сюда добавить showmessage и чтобы после замены текста, выпадало окно стандартное с параметрами сохранения и соответственно после сохранения закрыть документ и сам Ворд

striker90

Дата: 15.05.2011 12:32:34

Ну что скажете? :)

striker90

Дата: 15.05.2011 16:16:47

ап

andreymx

Дата: 16.05.2011 00:54:20

striker90
var FilePath: string; begin FilePath:=ExtractFilePath(GetModuleName(HInstance)) + 'Report.doc'; Word.Documents.Open(FilePath); FindAndReplace('$s1',floattostr(Q)); FindAndReplace('$s2',floattostr(ggg)); FindAndReplace('$s3',res); end;

striker90

var FilePath: string;
begin
  FilePath:=ExtractFilePath(GetModuleName(HInstance)) + 'Report.doc';
  Word.Documents.Open(FilePath);
  FindAndReplace('$s1',floattostr(Q));
  FindAndReplace('$s2',floattostr(ggg));
  FindAndReplace('$s3',res);
 end;

1. Что за объект Word
2. Версия Делфи
3. Версия офиса

ДжекНепотрошитель

Дата: 16.05.2011 01:08:28

andreymx
1. Что за объект Word 2. Версия Делфи 3. Версия офиса

И к тебе тогда вопрос: что эта информация может дать? У тебя есть подборка случаев типа "Ворд 2003 зависает при вызове из Delphi 5"?

ДжекНепотрошитель

Дата: 16.05.2011 01:09:07

Я бы лучше спросил, что такое FindAndReplace...

striker90

Дата: 16.05.2011 01:15:05

Да, извините что все процедуры, задействованные не написал
Вот по этой статье делал:
http://www.webdelphi.ru/2010/02/microsoft-word-v-delphi/
Там и объект word и процедура FindAndReplace
Ворд 2007, делфи 7

Нужно чтобы Пользователь в SaveDialog написал имя файла и сохранился под этим именем уже измененный файл
Закрыть грамотно тоже надо документ и ворд, у меня получается пока только подвешивать

Anatoly Podgoretsky

Дата: 16.05.2011 08:58:39

Что такое FindAndReplace, приведи текст процедуры. И что будет если комментировать отдельные вызовы