Situação é o seguinte tenho um sistema que faz automação do Word e na hora de salvar o documento ele não está salvando. Não sie o que é, pois isso só ocorre no Cliente.
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;
Não sei se são as permissões da pasta mas, eu já verifiquei esta tudo marcado para controle total e mesmo assim o arquivo não salva.