Exemplo 02: Gerando e Salvando arquivo word (metodo com passagem de parametro)

Delphi

27/05/2023

procedure TfBuscarIntimacao.btGravarClick(Sender: TObject);
begin
 WordApp := CreateOleObject('Word.Application');
 WordApp.Visible := false;

 case radioPositivas.ItemIndex of
    0:
    begin
      WordDoc := WordApp.Documents.Open('C:\Users\Thalita Reis\OneDrive\Área de Trabalho\Intimação - Solução para Notificações Extrajudiciais\Minutas\Minuta Positiva - Mutuario ou Conjugê.docx');
      substituirNoDoc('C:\Users\Thalita Reis\OneDrive\Área de Trabalho\Intimação - Solução para Notificações Extrajudiciais\Certidões Geradas\Certidões Positivas' + fDMDevedor.tbDevedorIntimacao.FieldByName('Protocolo').AsString + ' - Certidão Positiva - ' + fDMDevedor.tbDevedor.FieldByName('NomeDevedor').AsString + '.docx');
    end;
    1:
    begin
      WordDoc := WordApp.Documents.Open('C:\Users\Thalita Reis\OneDrive\Área de Trabalho\Intimação - Solução para Notificações Extrajudiciais\Minutas\Minuta Positiva - Recusa.docx');
      substituirNoDoc('C:\Users\Thalita Reis\OneDrive\Área de Trabalho\Intimação - Solução para Notificações Extrajudiciais\Certidões Geradas\Certidões Positivas' + fDMDevedor.tbDevedorIntimacao.FieldByName('Protocolo').AsString + ' - Certidão Positiva - ' + fDMDevedor.tbDevedor.FieldByName('NomeDevedor').AsString + '.docx');
    end;
    2:
    begin
      WordDoc := WordApp.Documents.Open('C:\Users\Thalita Reis\OneDrive\Área de Trabalho\Intimação - Solução para Notificações Extrajudiciais\Minutas\Minuta Positiva - Hora Certa.docx');
      substituirNoDoc('C:\Users\Thalita Reis\OneDrive\Área de Trabalho\Intimação - Solução para Notificações Extrajudiciais\Certidões Geradas\Certidões Positivas' + fDMDevedor.tbDevedorIntimacao.FieldByName('Protocolo').AsString + ' - Certidão Positiva - ' + fDMDevedor.tbDevedor.FieldByName('NomeDevedor').AsString + '.docx');
    end;
    3:
    begin
      WordDoc := WordApp.Documents.Open('C:\Users\Thalita Reis\OneDrive\Área de Trabalho\Intimação - Solução para Notificações Extrajudiciais\Minutas\Minuta Positiva - Hora Certa Portaria.docx');
      substituirNoDoc('C:\Users\Thalita Reis\OneDrive\Área de Trabalho\Intimação - Solução para Notificações Extrajudiciais\Certidões Geradas\Certidões Positivas' + fDMDevedor.tbDevedorIntimacao.FieldByName('Protocolo').AsString + ' - Certidão Positiva - ' + fDMDevedor.tbDevedor.FieldByName('NomeDevedor').AsString + '.docx');
    end;
    4:
    begin
      WordDoc := WordApp.Documents.Open('C:\Users\Thalita Reis\OneDrive\Área de Trabalho\Intimação - Solução para Notificações Extrajudiciais\Minutas\Minuta Positiva - Aviso de Recebimento.docx');
      substituirNoDoc('C:\Users\Thalita Reis\OneDrive\Área de Trabalho\Intimação - Solução para Notificações Extrajudiciais\Certidões Geradas\Certidões Positivas' + fDMDevedor.tbDevedorIntimacao.FieldByName('Protocolo').AsString + ' - Certidão Positiva - ' + fDMDevedor.tbDevedor.FieldByName('NomeDevedor').AsString + '.docx');
    end;
  end;

  case radioNegativas.ItemIndex of
    0:
    begin
      WordDoc := WordApp.Documents.Open('C:\Users\Thalita Reis\OneDrive\Área de Trabalho\Intimação - Solução para Notificações Extrajudiciais\Minutas\Minuta Negativa - Local Ignorado.docx');
      substituirNoDoc('C:\Users\Thalita Reis\OneDrive\Área de Trabalho\Intimação - Solução para Notificações Extrajudiciais\Certidões Geradas\Certidões Negativas' + fDMDevedor.tbDevedorIntimacao.FieldByName('Protocolo').AsString + ' - Certidão Negativa - ' + fDMDevedor.tbDevedor.FieldByName('NomeDevedor').AsString + '.docx');
    end;
    1:
    begin
      WordDoc := WordApp.Documents.Open('C:\Users\Thalita Reis\OneDrive\Área de Trabalho\Intimação - Solução para Notificações Extrajudiciais\Minutas\Minuta Negativa - Obito.docx');
      substituirNoDoc('C:\Users\Thalita Reis\OneDrive\Área de Trabalho\Intimação - Solução para Notificações Extrajudiciais\Certidões Geradas\Certidões Negativas' + fDMDevedor.tbDevedorIntimacao.FieldByName('Protocolo').AsString + ' - Certidão Negativa - ' + fDMDevedor.tbDevedor.FieldByName('NomeDevedor').AsString + '.docx');
    end;
    2:
    begin
      WordDoc := WordApp.Documents.Open('C:\Users\Thalita Reis\OneDrive\Área de Trabalho\Intimação - Solução para Notificações Extrajudiciais\Minutas\Minuta Negativa - Aviso de Recebimento.docx');
      substituirNoDoc('C:\Users\Thalita Reis\OneDrive\Área de Trabalho\Intimação - Solução para Notificações Extrajudiciais\Certidões Geradas\Certidões Negativas' + fDMDevedor.tbDevedorIntimacao.FieldByName('Protocolo').AsString + ' - Certidão Negativa - ' + fDMDevedor.tbDevedor.FieldByName('NomeDevedor').AsString + '.docx');
    end;
  end;

end;

procedure SubstituirNoDoc(caminho: string);
begin
  if fileExists (caminho) = false then
  begin
    WordDocCopy := WordDoc.SaveAs(caminho);
    WordDocCopy := WordApp.Documents.Open(caminho);
    WordDocCopy.Content.Find.Execute('«Credor»', true, true, false, false, false, true, 1, true, fDMDevedor.tbCredor.FieldByName('NomeCredor').AsString, 2);
    WordDocCopy.Content.Find.Execute('«CNPJ»', true, true, false, false, false, true, 1, true, fDMDevedor.tbCredor.FieldByName('CNPJ').AsString, 2);
    WordDocCopy.Content.Find.Execute('«Devedor»', true, true, false, false, false, true, 1, true, fDMDevedor.tbDevedor.FieldByName('NomeDevedor').AsString, 2);
    WordDocCopy.Content.Find.Execute('«CPF»', true, true, false, false, false, true, 1, true, fDMDevedor.tbDevedor.FieldByName('CPF').AsString, 2);
    WordDocCopy.Content.Find.Execute('«Contrato»', true, true, false, false, false, true, 1, true, fDMDevedor.tbDevedorIntimacao.FieldByName('Contrato').AsString, 2);
    WordDocCopy.Content.Find.Execute('«Enderecos»', true, true, false, false, false, true, 1, true, fDMDevedor.tbDevedor.FieldByName('Enderecos').AsString, 2);
    WordDocCopy.Content.Find.Execute('«Matricula»', true, true, false, false, false, true, 1, true, fDMDevedor.tbDevedorIntimacao.FieldByName('Matricula').AsString, 2);
    WordDocCopy.Content.Find.Execute('«Protocolo»', true, true, false, false, false, true, 1, true, fDMDevedor.tbDevedorIntimacao.FieldByName('Protocolo').AsString, 2);
  end
  else
  begin
    ShowMessage('Já existe um arquivo de certidão para o Protocolo:  ' + fDMDevedor.tbDevedorIntimacao.FieldByName('Protocolo').AsString);
    ShowMessage('O Arquivo encontra-se na pasta do sistema da Area de Trabalho!');
    WordApp.Quit;
  end;
end;

Thalita Reis

Thalita Reis

Curtidas 0
POSTAR