[Максон]

Здравствуйте.
У меня возникла такая проблема.
Пишу программу, в которой необходимо открыть документ 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 я новичок, не хватает знаний и опыта. Поскажите, пожалуйста, как правильно сделать.

[Страдалецъ]

Как то вы обработку события делаете странновато, к тому-же вы открывать должны, а не добавлять. Вот так не проще?

Код:

procedure TPost.btn4Click(Sender: TObject);
begin
if not dlgOpen1.Execute then Exit;
WA:=CreateOleObject('Word.Application');
WA.Visible:=True;
WA.DisplayAlerts:=True;
WA.Documents.Open(dlgOpen1.FileName);
end;