Delphi и Word [D7, WinXP]
marri2005 © (2005-06-16 01:27:00)
Помогите, пожалуйста, советом.
Я пишу программу которая должна заносить данные в 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:00) [1]
If OpenDoc(ExtractFilePath(ParamStr(0)) + 'Документ1.doc')
then
Наверх 
ЧАТ |
Орешник |
|
