Exemplo 01: Gerando e Salvando arquivo word (formatação correta)

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;