eu estou abrindo um documento do word em um OleContainer e eu gostaria de salvar as alterações em um outro documento também .doc, mas com o nome e o conteúdo diferente (alterados pelo usuario).
Eu estou usando o seguinte código para abrir o arquivo:
procedure TFrmWord.BitBtn1Click(Sender: TObject);
var
NomeArquivo: string;
begin
opendialog1.InitialDir:=extractfilepath(application.ExeName);
if opendialog1.Execute then
with olecontainer1 do
begin
if oleobjectinterface <> Nil then
begin
destroyobject;
end;
Nomearquivo:=opendialog1.filename;
FrmProntuarioWord.Caption:='Word - ' + opendialog1.FileName;
CreateobjectFromFile(Opendialog1.FileName, false );
Perform(wm_lbuttondblclk, mk_lbutton, 0);
end;
end;
os componentes no form são:
- OpenDialog1
- OleContainer1
- BitBtn1
Neste código ele me deixa abrir todos so formatos, como eu limito apenas ao formato .doc?
E para salvar o conteúdo alterado, como eu desenvolvo o código do botão Salvar Como??
Pergunta
Greed
Boa tarde galera, é o seguinte,
eu estou abrindo um documento do word em um OleContainer e eu gostaria de salvar as alterações em um outro documento também .doc, mas com o nome e o conteúdo diferente (alterados pelo usuario).
Eu estou usando o seguinte código para abrir o arquivo:
os componentes no form são:
- OpenDialog1
- OleContainer1
- BitBtn1
Neste código ele me deixa abrir todos so formatos, como eu limito apenas ao formato .doc?
E para salvar o conteúdo alterado, como eu desenvolvo o código do botão Salvar Como??
Obrigado pela atenção!
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.