Ok, escrevi o código, funciona para gerar um documento a partir de um
template, mas não para
aplicar um template a um documento já existente... Perdi algo?
begin
ConnectOpenOffice;
sOOoUrl:= 'file:///' +
StringReplace(ArqTemplate,'\','/',[rfReplaceAll]);
myOOoPropArquivo:= createproperties(['AsTemplate', True]); // Se
True cria um novo documento,
// a partir do documento carregado,
// mesmo que ele não seja um modelo.
// Se for um modelo e AsTemplate for False o
// documento será carregado para edição.
LoadWriterDoc(sOOoUrl, myOOoPropArquivo);
end;
Noelson Duarte wrote:
Abra o template com o método loadComponentFromURL, passando a seguinte
propriedade:
{ adaptado do exemplo do sdk
................................................... }
PropertyValue.Name := 'AsTemplate';
PropertyValue.Value := true;
LoadParams[0] := PropertyValue;
Document := StarDesktop.LoadComponentFromURL( urlTemplate, '_blank', 0,
LoadParams);
{ .... }
Certifique-se de que os templates (e os documentos) coexistam pacificamente
em ambas as estruturas, existem vários relatos de perdas ao saltitar entre
aplicativos.
----- Original Message -----
From: "Gilnei Meireles de Oliveira" <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Monday, July 24, 2006 6:50 PM
Subject: [usuarios OOo] Como aplico um template num documento existente?
Olá
Estou convertendo um aplicativo feito em Delphi/MSOffice para
Delphi/BrOffice (Delphi 5/BrOffice 2.0.3).
Haverá uma migração gradual com funcionamento simultâneo de ambas as
estruturas por um longo período.
Estou com o seguinte problema:
Os documentos modelos são RTFs, que sofrem parse com LexYacc, gerando
documentos que são salvos
como DOCs. Sobre estes DOCs são aplicados DOTs do MSWord com o comando
(Delphi):
OleObject.ActiveDocument.AttachedTemplate := ArqTemplate;
que então ficam disponíveis para as personalizações e preenchimentos dos
usuários.
Não sei como aplicar (estou me familiarizando com OOo há apenas 30
dias), se é que existe meio de fazê-lo, a
mesma idéia no OOo. Alguma idéia?
Grato
Gilnei
--
Gilnei M. Oliveira
Informática - TJRS
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
