|
LReadOnly := LProtegerDoc;
LSenha := 'gO5!!@5b68#9ruV$75v85(*';
LArquivo := Diretorio.DirTemp + '\Temp.doc';
wrappDocumento.Disconnect;
wrappDocumento.Documents.Open(LArquivo, EmptyParam,
LReadOnly, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
if LProtegerDoc then
begin
wrappDocumento.ActiveDocument.Protect(OleVariant(wdAllowOnlyFormFields), EmptyParam, LSenha);
wrappDocumento.Application.
end;
wrappDocumento.Visible := True;
|