Автоматизация приложений Microsoft Office в примерах. Часть 1. Microsoft Word и Microsoft Excel

Листинг 1

Uses ComObj, ActiveX 


...


procedure TForm1.Button1Click(Sender: TObject); 
var 
   ServerIsRunning : boolean; 
   Unknown : IUnknown; 
   Result : HResult; 
   AppProgID : String; 
   App : Variant; 
begin
//Указать программный идентификатор приложения-сервера
AppProgID:=’Word.Application’; 
ServerIsRunning := False;
Result := GetActiveObject(ProgIDToClassID(AppProgID),nil,Unknown);
if (Result = MK_E_UNAVAILABLE) then 
//Создать один экземпляр сервера 
pp := CreateOleObject(AppProgID)
 else
  begin
   //Соединиться с уже запущенной копией сервера
   App := GetActiveOleObject(AppProgID);
   ServerIsRunning := True;
  end;
  //показать окно приложения на экране
  App.Visible := True;
 //—————————————————————————————
 //
 // Здесь выполняются другие действия с объектами приложения Office 
 //
 //———————-—————————————————————
 if not ServerIsRunning then App.Quit;
 App:=Unassigned;
end;

возврат

Наш канал на Youtube

1999 1 2 3 4 5 6 7 8 9 10 11 12
2000 1 2 3 4 5 6 7 8 9 10 11 12
2001 1 2 3 4 5 6 7 8 9 10 11 12
2002 1 2 3 4 5 6 7 8 9 10 11 12
2003 1 2 3 4 5 6 7 8 9 10 11 12
2004 1 2 3 4 5 6 7 8 9 10 11 12
2005 1 2 3 4 5 6 7 8 9 10 11 12
2006 1 2 3 4 5 6 7 8 9 10 11 12
2007 1 2 3 4 5 6 7 8 9 10 11 12
2008 1 2 3 4 5 6 7 8 9 10 11 12
2009 1 2 3 4 5 6 7 8 9 10 11 12
2010 1 2 3 4 5 6 7 8 9 10 11 12
2011 1 2 3 4 5 6 7 8 9 10 11 12
2012 1 2 3 4 5 6 7 8 9 10 11 12
2013 1 2 3 4 5 6 7 8 9 10 11 12
Популярные статьи
КомпьютерПресс использует