Ir para conteúdo
Fórum Script Brasil
  • 0

Como salvar conteudo de um OleContainer?


Greed

Pergunta

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:

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??

Obrigado pela atenção!

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

  • 0

Como salvar conteudo de um OleContainer?

Voce não salva o conteudo de um OleContainer.

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).

Como voce mesmo diz..(estou abrindo um documento do word em um OleContainer) Na verdade voce está usando um OleContainer para abrir o Word, e vai ser atravez do próprio Word que voce vai salvar o arquivo alterado com outro nome, na pasta que voce quiser.

Neste código ele me deixa abrir todos so formatos, como eu limito apenas ao formato .doc?

voce está usando um opendialog1, então use a propriedade Filter para filtrar os arquivos

procedure TFrmWord.BitBtn1Click(Sender: TObject);
    var
      NomeArquivo: string;
    begin
      opendialog1.InitialDir:=extractfilepath(application.ExeName);
   
      OpenDialog1.DefaultExt := '*.doc|*.doc';   //somente arquivos com extensão .doc
      OpenDialog1.Filter := '*.doc|*.doc';

      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;

abraço

Link para o comentário
Compartilhar em outros sites

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...