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

Previous  Top  Next

    
 

 

 

Code:

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' ); 

 

©Drkb::04433