![]() |
|
#1
|
|||
|
|||
![]() Код:
var MSWord: Variant; begin try MsWord := GetActiveOleObject('Word.Application'); except try MsWord := CreateOleObject('Word.Application'); MsWord.Visible := True; except Exception.Create('Error'); end; end; MSWord.Documents.Add; MSWord.Selection.Font.Size := 12; MSWord.Selection.TypeText('Any Text'); MSWord.Selection.Font.Bold := true; MSWord.Selection.TypeText(#13#10'new'); if saveDLG.Execute then MSWord.ActiveDocument.SaveAs(savedlg.FileName); Вот это стандартная запись для создания документа Ворд. Но работает эта реализация только при условии что сам Ворд открыт. Можно ли создать документ этого плана обойдя процесс открытия ПО? ![]() |