doc формат

@Умагаджи · Регистрация: 06.02.2011

Author24 — интернет-сервис помощи студентам

Как можно открыть файл формата doc в richedit. Я читала про это но не смогла сделать. Дайте исходник если можете пожалуйста

@sanya0107 · 16.02.2011, 20:58

Delphi

uses ComObj;
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
W:=CreateOleObject('Word.Application');
W.Visible:=false;
W.Documents.Add('d:\1.doc');
RichEdit1.Text:=W.ActiveDocument.Range.Text;
W.Documents.Close;
W.Quit;
W:=UnAssigned;
end;

как вариант!

@Умагаджи · 16.02.2011, 21:20 **[ТС]**

Да нет, мне нужно открывать не программно, а допустим через меню/файл/открыть нажал и открылся любой doc файл

@sanya0107 · 16.02.2011, 21:29

Сообщение от Умагаджи

Да нет, мне нужно открывать не программно, а допустим через меню/файл/открыть нажал и открылся любой doc файл

O_O Я вам показал на примере имеющегося файла!! Вы просто вместо "1.doc" сделайте с помощью OpenDialog-а.

@Умагаджи 2 / 2 / 0 Регистрация: 06.02.2011 Сообщений: 70
		1
	doc формат 16.02.2011, 19:51. Показов 1682. Ответов 3 Метки нет (Все метки) Как можно открыть файл формата doc в richedit. Я читала про это но не смогла сделать. Дайте исходник если можете пожалуйста 0

@Умагаджи 2 / 2 / 0 Регистрация: 06.02.2011 Сообщений: 70
	16.02.2011, 21:20 [ТС]	3
	Да нет, мне нужно открывать не программно, а допустим через меню/файл/открыть нажал и открылся любой doc файл 0

@sanya0107 126 / 126 / 24 Регистрация: 14.02.2010 Сообщений: 289
	16.02.2011, 21:29	4
	Сообщение от Умагаджи Да нет, мне нужно открывать не программно, а допустим через меню/файл/открыть нажал и открылся любой doc файл O_O Я вам показал на примере имеющегося файла!! Вы просто вместо "1.doc" сделайте с помощью OpenDialog-а. 0