BorlandTalk.com

bruno82@gmail.com · Guest

Hi to all! Smile

I hope someone can help me very soon, because i have to
finish a job in 1 or 2 hours.

I have a TStringList with some strings and i want to put them in a list
in a word document.
At the moment i'm able to write the strings in separate rows in the
document, with this code (i've cut only relevant rows):

-------------------------------------------
var
Phrases: TStringList;
WordApp : _Application;
Doc : WordDocument;
begin

{ ... Creation of list Phrases ... }

WordApp := CoWordApplication.Create;
Doc:=WordApp.Documents.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam);

for x:=0 to Phrases.Count-1 do begin
WordApp.Selection.TypeText(inttostr(x+1) + '.' + #9 +
Phrases.Strings[x] + #13#10);
end;

WordApp.Quit(SaveChanges, EmptyParam, EmptyParam);

end;
-------------------------------------------

....but instead i heve to to create a list and put them as items of this
list!

How can i do that??

Thank you very much to everyone who will solve my problem! :)

Bruno