Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi Для заданной квадратной матрицы сформируйте одномерную таблицу из её диагональных элементов Для заданной квадратной матрицы сформируйте одномерную таблицу из её диагональных элементов https://www.cyberforum.ru/ delphi-beginners/ thread561786.html Найти сумму и количество положительных элементов, лежащих выше главной диагонали, в каждом столбце матрицы. Delphi
1.Найти количество элементов больших среднего арифметического элементов данного массива. Або 2.Найти сумму и количество положительных элементов, лежащих выше главной диагонали, в каждом столбце...
Delphi statusbar (сообщение) и таймер https://www.cyberforum.ru/ delphi-beginners/ thread561777.html
Привет всем. есть такой вопросик, при запуске проги в (statusbar) выводится инфа (в сети комп или не в сети), есть подключение к нету. когда нет подключен выводит (в сети), если нет, то наоборот....
Delphi Программа, которая построит блок-схему из .pas Собственно нужна программа которая нормально построит блок схему или из файла .pas или из кода который я впишу. Пожалуйста советуйте проги которые у вас реально работали, а то я уже кучу перелопатил... https://www.cyberforum.ru/ delphi-beginners/ thread561772.html
Undeclared identifier: 'CanClose' Delphi
Прикрутил MessageDlg ругается на CanClose, хотя OncloseQuerty инициированна. Что не так? :) По нажатию Yes форма должна закрыватся, по нажатию No должно происходить возвращение к форме. Procedure...
Delphi ShowMessage удалить заголовок https://www.cyberforum.ru/ delphi-beginners/ thread561763.html
Интересует такой вопрос :) Когда всплывает ShowMessage в окне сверху красуется Projekt 1 в инете нашел тока информацию по изменению заголовка, а как его затереть вовсе? :)
Delphi Как картинку в SpeedButton растянуть по размеру кнопки https://www.cyberforum.ru/ delphi-beginners/ thread561751.html
Ребят, подскажите кто знает, как картинку в SpeedButton растянуть по размеру кнопки?
В справочной автовокзала хранится расписание движения автобусов. Для каждого рейса указаны его номер, тип автобуса, пункт назначения, время отправле Delphi
В справочной автовокзала хранится расписание движения автобусов. Для каждого рейса указаны его номер, тип автобуса, пункт назначения, время отправления и прибытия. Вывести информацию о рейсах,...
Delphi Проверка ComboBox на пустоту ОЧ дурацкий вопрос :- Unit3.pas(142): Type of expression must be BOOLEAN https://www.cyberforum.ru/ delphi-beginners/ thread561690.html Delphi Вывод n-единиц количества товара Здравствуйте, помогите с заданием пожалуйста. Определить и вывести в обьект Memo и файл n-штук любого товара. Выбор товара организовать через combobox, а количество через edit. https://www.cyberforum.ru/ delphi-beginners/ thread561684.html
Расчет полета (нахождение угла полета пули) Delphi
друзья...помогите с програмкой...нужно переделать способ нахождения угла...раньше считала делением на 2..( получается так много итераций ) а надо так у=y1+ (y2 - y1)/( x2 - x1) * (x-x1) , где х2...
Delphi Задан список из десяти гоpодов. Подсчитать количество названий, в котоpых есть буква «Д». Задан список из десяти гоpодов. Подсчитать количество названий, в котоpых есть буква «Д». На Делфи! Заранее СПС. Тема перенесена в раздел: Делфи для начинающих. Исходный раздел: Форум Pascal... https://www.cyberforum.ru/ delphi-beginners/ thread561664.html
0 / 0 / 1
Регистрация: 11.04.2012
Сообщений: 91
30.04.2012, 00:38  [ТС] 0

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

30.04.2012, 00:38. Показов 3427. Ответов 6
Метки (Все метки)

Ответ

Нашел интересную вещь оказывается можно не открывать шаблон А прямо на его основе создать новый документ

Код
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;
Как то так, ток компилица норм но при выборе шаблона выдает ошибку Method 'Add' not supported by automation objekt

Вернуться к обсуждению:
Как открыть шаблон Word-a из папки в корневой папки программы :) Delphi
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.04.2012, 00:38
Готовые ответы и решения:

Как в Delfi 7 при нажатии Batton открыть диалог выбора папки в подкаталоге программы и сохранить путь папки в Edit
Как в Delfi 7 при нажатии Batton открыть диалог выбора папки в подкаталоге программы и сохранить...

Как переместить страницы сайта из корневой папки
Здравствуйте, уважаемые продвинутые пользователи. Мне очень нужна помощь знающих людей. Дело в том,...

Как подключить dll из корневой папки проекта?
Есть библиотека System.IO.Compression.FileSystem.dll в корневой папке, пишу в проекте А VS...

Как сохранять и получать доступ к файлам (закаченным пользователем) за пределами корневой папки сайта на серве
Добрый день! Строю сайт, где пользователи смогут хранить свои файлы , для этого мне нужно создать...

6
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.04.2012, 00:38
Помогаю со студенческими работами здесь

загрузка Image с корневой папки
Помогите пожалуйста, как можно загрузить картинку с папки которая находится в папке с проектом? Не...

Куки не находятся при обращении из корневой папки
У меня куки какогото хрена не правильно работают!Есть папка reg где и авторизация задает...

Свой корневой каталог для папки (сайт в сайте)
На сайте несколько каталогов, в каждом из каталогов свой сайт. Можно ли сделать что бы для...

Переместить все подпапки каждой папки в корневой каталог
Есть вот такая структура. Bigfolder/ smalFolder/ Folder1 ...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru