Error writing Word document in OleContainer

2

Situation is the following I have a system that Word automation and at the time of save the document it is not saving . Do not know what it is, as this only happens in the Client.

procedure TfrmConsultas.Salvar1Click(Sender: TObject);
var
  FileName : String;
const
  wdFormatDocument = 16; // 16  is Word default document file format. For Microsoft Office Word 2007, this is the DOCX format.
begin
  if DM.tbConsultas.State in [dsInsert] then
  begin
    // Trecho de código faz referencia ao nome do arquivo.
    DM.tbConsultasConsulta.Last;
    FileName := DM.tbParametrosPASTA_BD.AsString+'\Modelos\Consulta_'+IntToStr(DM.tbConsultasConsultaCODIGO_CONSULTA.AsInteger+1)+'.docx';
// Melhor maneira de Salvar os Documentos MS Word no Delphi
// Parâmetro FileName          = Nome do Arquivo
// Parâmetro wdFormatDocument  = Formato do Arquivo MS Word Verificar outros
// Parâmetro CompatibilityMode = Compatibilidade com outras verções do Word
// possíveis tipos. Atualmente somente Docx
    OleContainer.DoVerb(ovInPlaceActivate);
    try
      OleContainer.OleObject.SaveAs (FileName, wdFormatDocument, EmptyParam, EmptyParam, False);
    except
    on E : Exception do
      ShowMessage(E.ClassName+' error ao Salvar o arquivo DOCX : '+E.Message);
    end;
    // Nome do arquivo agora sera usado para Salvar o registro na tabela ou deletar o arquivo
    vNomeArquivo := 'Consulta_'+IntToStr(DM.tbConsultasConsultaCODIGO_CONSULTA.AsInteger+1)+'.docx';
  end;
end;

I do not know if they are the permissions of the folder but, I already checked this all for full control and even then the file does not save .

    
asked by anonymous 24.05.2018 / 20:10

0 answers