Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.10.2014, 09:47   #1
АНЯ_17
Пользователь
 
Регистрация: 16.08.2014
Сообщений: 17
По умолчанию Работа с шаблоном

добрый день Всем.
Как моно открыть шаблон Word защищена пароль ом ???
в Excel е я разбиралось а в Worde не получается .



Код:
var
   XL: Variant;
   AppLocation:string;
begin
   try XL := CreateOLEObject('Excel.Application'); // Создание OLE объекта
   except
     ShowMessage('Cannot start MS Excel.');
   end;
     GetDir(0,AppLocation); // Возвращает текущий каталог диска
     XL.WorkBooks.Open(AppLocation +'\1.xlsx', password:='pass');

     XL.Worksheets[1].PageSetup.Orientation := 2;
     XL.Worksheets[1].PageSetup.Zoom := false;
     XL.Worksheets[1].PageSetup.Order := 1;
 /   XL.Worksheets[1].PrintPreview;
//   XL.Worksheets[1].PrintOut;
     XL.ActiveWindow.Zoom := 100;
//   XL.WindowState := xlMaximized;
     XL.visible := true;
Заранее спасибо
АНЯ_17 вне форума Ответить с цитированием
Старый 18.10.2014, 15:13   #2
АНЯ_17
Пользователь
 
Регистрация: 16.08.2014
Сообщений: 17
По умолчанию Все проблема решено

Все проблема решено, она было очень простая, проста надо книжки прочитать надо было

Код HTML:
var
 Word, doc:Variant;
 PasswordDocument: string;
begin
  try
    word:= CreateOleObject('Word.Application');
    word.documents.Open('C:\1.doc',PasswordDocument:='pass' );
    word.Visible:=true;
    word.PrintOut;
    except
    end;
 end;
АНЯ_17 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите с шаблоном Михаил111 Помощь студентам 0 06.05.2014 23:30
DLE работа с шаблоном programmm Помощь студентам 0 21.11.2011 21:13
Работа с шаблоном Иухенио Общие вопросы Delphi 2 27.01.2011 20:35
Помогите с шаблоном kaviga HTML и CSS 0 16.09.2009 12:04