Как заполнить поля формы в MS WordDelphi , Технологии , OLE Automation MSOfficeКак заполнить поля формы в MS WordАвтор: http://www.swissdelphicenter.ch
uses ComObj; procedure TForm1.Button1Click(Sender: TObject); var WordApp: OLEvariant; begin Screen.Cursor := crHourglass; try // Create Word Instance WordApp := CreateOleObject('Word.Application'); except ShowMessage('Cannot start MS Word.'); Screen.Cursor := crDefault; Exit; end; try // Open a Word Document WordApp.Documents.Add(Template := 'C:\TestDoc.doc'); // Show Word WordApp.Visible := True; // Check if FormField exists and asign your text if WordApp.ActiveDocument.Bookmarks.Exists('YourFormFieldName') then WordApp.ActiveDocument.FormFields.Item('YourFormFieldName').Result := 'Your Text'; finally WordApp := Unassigned; Screen.Cursor := crDefault; end; end; Статья описывает, как заполнить поля формы в MS Word с помощью программирования на языке Delphi, используя библиотеку ComObj и создавая офисное приложение Word. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: OLE Automation MSOffice ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |