ActiveDelphi

[diogo.weitz]

Boa Tarde,

Tenho um arquivo do Word, faço a manipulação dele via codigo, porém preciso imprimi uma lista, tenho escrito assim

[...]
while Self.FDoc.Content.Find.Execute(FindText := Format('<CODIGO>', [GetNumeroItem(I)]), ReplaceWith := Self.FImpressaoComodato.ItemComodatoList.Items[I].Produto.Codigo.GetValor)do;
[...]

faço um count para trazer o resultado, no arquivo do word eu coloquei <CODIGO> , <CODIGO>, <CODIGO>, quando tenho tres items é substiuido certinho, porém se tem mais o 4 não é listado se não inserir no arquivo e se tiver menos, aparece a tag <CODIGO>.

Como posso fazer para deixar somente <CODIGO> e listar quantos itens tiver lançado?

[diogo.weitz]

Bem, depois de muito procurar e tentar, conseguir fazer na forma de Tabela e fazendo um loop para ler os registros
Pedaço do codigo;

LTabela := Self.FWord.ActiveDocument.Tables.Add(Range := Self.FWord.ActiveDocument.Range(Start := 465, End := 465), NumRows := FImpressaoComodato.ItemComodatoList.Items.Count, NumColumns := 1);
LTabela.Cell(Row := LLinha, Column := 1).Range.InsertAfter(Text := 'Qtde Nome ' + #10);
for I := 0 to FImpressaoComodato.ItemComodatoList.Items.Count - 1 do
begin
LTabela.Cell(Row := LLinha, Column := 1).Range.InsertAfter(Text := Self.FImpressaoComodato.ItemComodatoList.Items[I].Qtde.GetValorString + ' - ');
LTabela.Cell(Row := LLinha, Column := 1).Range.InsertAfter(Text := Self.FImpressaoComodato.ItemComodatoList.Items[I].Produto.Nome.GetValor);
Inc(LLinha);
end
end;