Fórum ProgressBar/Gauge com Documento Word #335338

      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;