ProgressBar/Gauge com Documento Word

Delphi

28/12/2006

Bom dia...

tenho esse código
      Word2k := CriaObjeto(´Word.Application´);
      Doc    := Word2k.Documents.Open(FileListBox1.FileName);

      //Substitui caracteres no word
      Doc.Content.Find.Execute(FindText := ´<empresa>´, ReplaceWith      := DMCadastro.cdsCadEmpresaNOME_EMP.AsString );
      Doc.Content.Find.Execute(FindText := ´<emailempresa>´, ReplaceWith := DMCadastro.cdsCadEmpresaEMAIL.AsString );
      Doc.Content.Find.Execute(FindText := ´<nomecli>´, ReplaceWith      := DMCadastro.cdsCadClienteNOME_CLI.AsString );
      Doc.Content.Find.Execute(FindText := ´<emailcli>´, ReplaceWith     := DMCadastro.cdsCadClienteEMAIL.AsString );
      DMCadastro.cdsCadCidade.Locate(´Cod_Cidade´, DMCadastro.cdsCadClienteCID_CLI.AsString, []);
      Doc.Content.Find.Execute(FindText := ´<cidadecli>´, ReplaceWith    := DMCadastro.cdsCadCidadeNOM_CIDADE.AsString );

      //Mostra Documento
      Word2k.Visible := True;


Está funcionando, mas gostaria que, conforme ele fosse alterando as chaves incrementasse um progressbar ou uma gauge... tem como? isso é feito apenas para um registro da tabela...

Uso D7, FB 1.5.3, ClientDataSet.


Facc

Facc

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

28/12/2006

Colega,

Uma alternativa que imaginei seria o uso de duas variáveis inteiras, sendo uma para armazenar o total de substituições previstas e uma para as realizadas e a cada atividade realizada, incrementa-se uma variável e atualiza a progressbar.


GOSTEI 0
POSTAR