Delphi и Word

← →
marri2005 © (2005-06-16 01:27) [0]

Помогите, пожалуйста, советом.

Я пишу программу которая должна заносить данные в Word. Я с ним из Delphi никогда не работала и поэтому бросилась на поиски всех своих вопросов в Интернет. Нашла статью на сайте http://www.kornjakov.ru/stat.htm (Суперфункции (№21, 2003 год)). У меня все получалось, до момента когда мне понадобилось обратиться к документу лежащему в той же папки, что и моя программа. Этот документ я набрала в Word (Документ1.doc). Автор статьи рассматривает следующую функцию для открытия файла:

Function OpenDoc (file_:string):boolean;
Var Doc_:variant;
begin
OpenDoc:=true;
try
W.Documents.Open(file_);
except
OpenDoc:=false;
end;
End;

И обращается к ней так:
……..
procedure TForm1.Button2Click(Sender: TObject);
begin
if CreateWord then begin
VisibleWord(true);
If OpenDoc("c:\Шаблон платежного поручения.rtf") then begin
…………….

Но в этом случае существует полный путь к файлу… а как вызвать документ который находится в этой же папки? Пыталась написать If OpenDoc("Документ1.doc") then begin
Ничего не вышло. Помогите советом.

Буду благодарна, за ответ.

← →
jack128 © (2005-06-16 01:33) [1]

If OpenDoc(ExtractFilePath(ParamStr(0)) + "Документ1.doc") then

Delphi и Word Найти похожие ветки