2008. augusztus 10., vasárnap

Automate word 8 (aka word97)?


Problem/Question/Abstract:

How do I automate word 8 (aka word97)?  

Answer:

You can get to any of the interfaces exposed by the word automation server. These can be found by loading the file "MSWORD8.OLB" into Delphi which will display the type library information. The following code sample demonstrates creating a new word document and inserting text into the document via automation.

uses ComObj;

procedure TForm.Button Click(Sender: TObject);
var
  Word97: Variant;
begin
  Word97 := CreateOLEObject('Word.Application');
  Word97.Documents.Add;
  Word97.Selection.TypeText('Wow BOB woW');
  Word97.Visible := True;
  Word97 := UnAssigned;
end;

Nincsenek megjegyzések:

Megjegyzés küldése