Delphi - база знаний


Пример запуска макроса в MS WinWord


Пример запуска макроса в MS WinWord



vvWord:= CreateOleObject('Word.Application.8');  
vvWord.Application.Visible:=true;  
vvWord.Documents.Open( TempFileName );  
vvWord.ActiveDocument.SaveAs( FileName, 1 ); // as .DOC  
vvWord.Application.Run( 'Macros Name' );  



Начало  Назад  Вперед