Mega Code Archive

 

Categories / Delphi / Activex OLE

 

Automating word 8 [word97]

Question: 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 TForm1.Button1Click(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;