## Pascal samples. Support of OLE Automation.

>     var
>       WordApp, Range: Variant;
>       I: Integer;
>     begin
>       WordApp := CreateOleObject('Word.Application');
>       WordApp.Visible := true;
>       WordApp.Documents.Add;
>       Range := WordApp.Documents.Item[1].Range;
>       Range.Text := 'This is a column from a spreadsheet: ';
>       for I:= 0 to 3 do
>         WordApp.Documents.Item[1].Paragraphs.Add;
>       Range := WordApp.Documents.Item[1].Range[WordApp.Documents.Item[1].Paragraphs.Item[3].Range.Start];
>       Range.Paste;
>     end.

Copyright © 2006-2008 VIRT Laboratory. All rights reserved.