Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: не открывается шаблон документа через Delphi  (Прочитано 5512 раз)
0 Пользователей и 1 Гость смотрят эту тему.
DR.XXX
Помогающий

kz
Offline Offline

« : 28-10-2008 18:58 » new

Здравствуйте!
Создал шаблон документа, который хотел открыть с помощью делфи. А он не открывается, то есть вылетает ошибка "невозможно открыть документ,так как пользователь не обладает достаточными полномочиями". Искал в форумах толком ничего не нашел. Может вы что подскажите. Кстати,вот отрывок кода:

Код:
procedure TForm1.Button10Click(Sender: TObject);
const wdReplaceAll=2;
begin
W.documents.Add(ExtractFileDir(Application.ExeName)+'C:\1\ПК.dot');

W.Selection.Find.Text:='#индекс&';
W.Selection.Find.Replacement.Text:='321005';
W.Selection.Find.Execute(Replace:=wdReplaceAll);
..............................

end;

Надеюсь все понятно изложил. Спасибо за внимание!
Записан
zubr
Гость
« Ответ #1 : 28-10-2008 19:28 » 

DR.XXX, подумай что у тебя получится в выражении ExtractFileDir(Application.ExeName)+'C:\1\ПК.dot'
Записан
DR.XXX
Помогающий

kz
Offline Offline

« Ответ #2 : 29-10-2008 15:45 » 

zubr, было моя ошибка, ты прав
« Последнее редактирование: 29-10-2008 15:57 от DR.XXX » Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines