Скачать: CL | DM;

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.046 c