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

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

procedure TForm1.Button2Click(Sender: TObject);
var
  wdApp, wdDocs, wdDoc, wdBms : Variant;
  Od : TOpenDialog;
begin
  Od := OpenDialog1;

  if Od.InitialDir = '' then
    Od.InitialDir := ExtractFilePath( Application.ExeName )
  ;
  Od.Title := 'Выберите шаблон, на основе которого будет создан новый документ';
  if not Od.Execute then Exit;
  if not FileExists(Od.FileName) then begin
    MessageDlg(
      'Файл с заданным именем не найден. Действие отменено.'
      ,mtWarning, [mbOK], 0
    );
    Exit;
  end;
  try
    wdApp := CreateOleObject('Word.Application');
  except
    ShowMessage('Не удалось запустить MS Word. Действие отменено.');
    Exit;
  end;


  wdApp.Visible := True;
  wdDocs := wdApp.Documents;
  wdApp.Documents.Add(FileName:=Od.FileName);
  wdBms := wdDoc.Bookmarks;
  SetBmText(wdBms, 'adres', Form5.Memo1.Text);
  ............................
  SetBmText(wdBms, 'cepi', Form5.Memo8.Text);
end;