как открыть вордовский документ с помощью OpenDialog

← →
Максон © (2011-02-10 11:30) [0]

Здравствуйте.
У меня возникла такая проблема.
Пишу программу, в которой необходимо открыть документ Word через OpenDialog.

procedure TPost.btn4Click(Sender: TObject);
begin

if dlgOpen1.Execute then
WA:=CreateOleObject("Word.Application");
WA.Visible:=True;
WA.DisplayAlerts:=True;
WA.documents.add(dlgOpen1.FileName);
if not dlgOpen1.Execute then Exit;
end;

Все бы ничего, вот только открывается нужный документ в Title которого написано Документ_1, а надо чтобы открывался документ с сохраненным именем файла. Например, выбрал в OpenDialoge документ постановление_3, открылся этот документ и в Title его было имя файла.
В delphi я новичок, не хватает знаний и опыта. Поскажите, пожалуйста, как правильно сделать.

← →
oldman © (2011-02-10 11:36) [1]

Кусок кода по памяти с ляпами написал или копи-пасте?

← →
Максон © (2011-02-10 11:55) [2]

Второпях написал

← →
Dennis I. Komarov © (2011-02-10 12:05) [3]

бред написал

> необходимо открыть документ Word через OpenDialog.

if dlgOpen1.Execute then shellexecute(...)

как открыть вордовский документ с помощью OpenDialog Найти похожие ветки