Как заполнить поля формы в 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