|
Вопрос # 4 290/ вопрос открыт / |
|
Добрый день, уважаемые эксперты. Подскажите, пожалуйста как из Delphi найти в шаблоне Word конкретное слово? Заранее спасибо
 |
Вопрос задал: Михаил Лебедев (статус: Посетитель)
Вопрос отправлен: 6 июня 2010, 18:51
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Шичко Игорь
Здравствуйте, Михаил Лебедев!
Предлагаю такой простенький код.
Будут вопросы, пишите в форум
Приложение: Переключить в обычный режим- unit Unit1;
-
- interface
-
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, StdCtrls, ComObj;
-
- type
- TForm1 = class(TForm)
- Button1: TButton;
- procedure Button1Click(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
-
- var
- Form1: TForm1;
-
- implementation
-
- {$R *.dfm}
-
- procedure TForm1.Button1Click(Sender: TObject);
- var
- Word: variant;
-
- begin
- Word:= CreateOleObject('Word.Application');
- Word.Visible:= False;
-
-
-
-
- ShowMessage('yes')
- else
- ShowMessage('no');
- Word.ActiveDocument.Close;
- try
- Word.Quit;
- finally
- Word:= UnAssigned;
- end;
-
- end;
-
- end.
 |
Ответ отправил: Шичко Игорь (статус: 9-ый класс)
Время отправки: 6 июня 2010, 19:24
Оценка за ответ: 5
Комментарий к оценке: Ответ - то что надо!!!
|
Мини-форум вопроса
Всего сообщений: 1; последнее сообщение — 6 июня 2010, 19:44; участников в обсуждении: 1.
|
|
Михаил Лебедев (статус: Посетитель), 6 июня 2010, 19:44 [#1]:
Игорь, спасибо Вам огромное! Целую неделю бился над этой задачей, а Ваше решение - оно мне очень помогло. Еще раз большущее Вам спасибо!
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
