Fórum Exemplo 01: Gerando e Salvando arquivo word #620019

procedure TfDevedorIntimacao.btGravarClick(Sender: TObject);
begin
  WordApp := CreateOleObject(''Word.Application'');
  WordApp.Visible := false;
  WordDoc := WordApp.Documents.Open(''C:\Users\Thalita Reis\OneDrive\Área de Trabalho\Intimação - Solução para Notificações Extrajudiciais\Minutas\Minuta Intimação.docx'');

  if fileExists(''C:\Users\Thalita Reis\OneDrive\Área de Trabalho\Intimação - Solução para Notificações Extrajudiciais\Intimações Geradas'' + dbeProtocolo.Text +
  '' - Intimação - ''+ dbListaDevedor.Text +  ''.docx'') = false then
  begin
    WordDocCopy := WordDoc.SaveAs(''C:\Users\Thalita Reis\OneDrive\Área de Trabalho\Intimação - Solução para Notificações Extrajudiciais\Intimações Geradas''
    + dbeProtocolo.Text + '' - Intimação - ''+ dbListaDevedor.Text +  ''.docx'');

    WordDocCopy := WordApp.Documents.Open(''C:\Users\Thalita Reis\OneDrive\Área de Trabalho\Intimação - Solução para Notificações Extrajudiciais\Intimações Geradas''
    + dbeProtocolo.Text + '' - Intimação - ''+ dbListaDevedor.Text +  ''.docx'');

    WordDocCopy.Content.Find.Execute(''«Protocolo»'', true, true, false, false, false, true, 1, true, dbeProtocolo.Text, 2);
    WordDocCopy.Content.Find.Execute(''«Credor»'', true, true, false, false, false, true, 1, true, dbListaCredor.Text, 2);
    WordDocCopy.Content.Find.Execute(''«Contrato»'', true, true, false, false, false, true, 1, true, dbeContrato.Text, 2);
    WordDocCopy.Content.Find.Execute(''«Matricula»'', true, true, false, false, false, true, 1, true, dbeMatricula.Text, 2);
    WordDocCopy.Content.Find.Execute(''«Descricao»'', true, true, false, false, false, true, 1, true, dmemoDescricao.Text, 2);
    WordDocCopy.Content.Find.Execute(''«Devedor»'', true, true, false, false, false, true, 1, true, dbListaDevedor.Text, 2);
    WordDocCopy.Content.Find.Execute(''«CNPJ»'', true, true, false, false, false, true, 1, true, fDMDevedor.tbCredor.FieldByName(''CNPJ'').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(''«Enderecos»'', true, true, false, false, false, true, 1, true, fDMDevedor.tbDevedor.FieldByName(''Enderecos'').AsWideString, 2);

  end
  else
  begin
    ShowMessage(''Já existe um arquivo de intimação para o Protocolo '' + dbeProtocolo.Text);
  end;

  WordDoc.Close;
  WordApp.Quit;
  ShowMessage(''O Arquivo encontra-se na pasta do sistema da Area de Trabalho!'');
end;