Как заполнить поля формы в MS Word?

Previous  Top  Next

    
 

 

 

Code:

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;

 

©Drkb::04413

Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php