Há algum tempo criei um sistema que integro o MS Word com o Delphi, só que o botão de Salvar do Word fica desabilitado.
Seria importante que esse botão ficasse habilitado, pois ele já salva no lugar onde o arquivo foi criado. Vou por o código de como eu abro o documento.
procedure TfrmConsultas.btnCaregarClick(Sender: TObject);
var
OleContainer: TOleContainer;
begin
try
with OleContainer do
begin
if OleObjectInterface <> Nil then
begin
DestroyObject;
end;
//Nome do arquivo usado para abrir o arquivo de entrvista de Consulta
vNomeArquivo := 'Nome do Arquivo';
// Cria o Arquivo a partir do conteúdo de um arquivo de modelo.
try
// Código que deve ser tratado caso haja uma exceção
OleContainer.CreateObjectFromFile(vNomeArquivo, False);
OleContainer.DoVerb(ovPrimary);
OleContainer.DoVerb(ovShow);
OleContainer.DoVerb(ovUIActivate);
OleContainer.DoVerb(ovInPlaceActivate);
Perform(WM_LBUTTONDBLCLK, MK_LBUTTON, 0);
if (DM.tbConsultas.State in [dsInsert]) or
((DM.tbConsultasMODELO_ARQUIVO.AsString <> '') and
(cbbModelos.Text <> '')) or ((cbbModelos.Text <> '') and
(DM.tbConsultasMODELO_ARQUIVO.AsString = '')) then
FindAndReplace;
except
// Fechar o arquivo
DestroyObject;
end;
end;
finally
Screen.Cursor := crDefault;
end;
end;
Depois de modificar o conteúdo eu Salvo.
OleContainer.OleObject.SaveAs (FileName, wdFormatDocument, EmptyParam, EmptyParam, False);
- Quero saber se tem como habilitar esse botão
WordDocument1.SaveAs(docdestino);
coloca no botão de saida ai o usuário já sai salvando.botao.doWord.enable := True
se você reparar na imagem ele é do sistema.TOleContainer
que eu trago a tela do word.