Olá pessoal, estou exportando dados de 4 memos para o Word,
procedure
var i,j,l,m : integer;
word: variant;
begin
for i := 0 to 3 do
Begin
if components[i] is Tedit then
with TEdit(components[i]) do
Memo1.Lines.add(text);
end;
for j := 4 to 7 do
Begin
if components[j] is Tedit then
with TEdit(components[j]) do
Memo2.Lines.add(text);
end;
for l := 8 to 11 do
Begin
if components[l] is Tedit then
with TEdit(components[l]) do
Memo3.Lines.add(text);
end;
for m := 12 to 15 do
Begin
if components[m] is Tedit then
with TEdit(components[m]) do
Memo4.Lines.add(text);
end;
Word := CreateOleObject('Word.application');
Word.visible := True;
Word.Documents.Add;
Word.selection.insertAfter(memo1.Text);
Word.selection.insertAfter(memo2.Text);
Word.selection.insertAfter(memo3.Text);
Word.selection.insertAfter(memo4.Text);
//Word.ActiveDocument.Save('Teste1.doc',0) ;
end;
mas gostaria que eles fossem divididos em 4 colunas, uma para cada memo !
até.
by julio quierati
__________________________________________________
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
