Как открыть шаблон Word-a из папки в корневой папки программы :)

[flouwjke]

Таккая проблема у меня реализован вывод данных программы в ворд по Bookmarks сейчас подгрузга шаблона сделана через Opendialog, проблема в том что когда шаблон открывается и в него заносятся данные шаблон можно случайно пересохранить а необходимо как то сделать так чтобы либо помимо Opendialog-а был Sevedialog который позволял открыть шаблон но сохранял под другим именем либо просто как я подумал, прикрутить Sevedialog а шаблоны кинуть в к примеру "Папка проги\шаблоны" и вот вопрос как их оттуда подгрузить так как прога может лежать де угодно и надо всегда подгружать из папки которая в дерриктории экзешника

procedure TForm1.Button2Click(Sender: TObject);
var
  wdApp, wdDocs, wdDoc, wdBms : Variant;
  Sd : TSaveDialog;
  Res : Integer;
begin
  Sd := SaveDialog1;
  if Sd.InitialDir = '' then
    Sd.InitialDir := ExtractFilePath( ParamStr(0) );
  if not Sd.Execute then Exit;
  if FileExists(Sd.FileName) then begin
    Res := MessageDlg(
      'Файл с заданным именем уже существует. Перезаписать?'
      ,mtConfirmation, [mbYes, mbNo], 0
    );
    if Res = mrNo then Exit;
  end;
 
 
  wdApp.Visible := True;
  wdDocs := wdApp.Documents;
  <Как я думаю де то тут надо подгрузить из папки шаблон>
  wdBms := wdDoc.Bookmarks;
  SetBmText(wdBms, 'adres', Form5.Memo1.Text);
  ..........................
  SetBmText(wdBms, 'cepi3', Form5.Memo8.Text);
end;

[=master=]

Вы хотите создать документ на основании шаблона? тогда и надо так делать, а не открывать шаблон.

[flouwjke]

мммм если не секрет то как ?

[=master=]

приметно так:

wdApp.Documents.Add('C:\Папка проги\шаблоны\Шаблон.dot');

создается новый документ на основании шаблона, потом сохраните этот документ, а шаблон останется шаблоном.