openoffice com delphi
peguei esse exemplo na net que parece resolver meu problema
mas estou com dificuldades para fazer funcionar
caso algum amigo aqui da lista tenha paciencia para analisar
e descobrir onde esta o erro
ficaria muito grata.
parece que a quantidade de \ que esta em excesso
declare em uses ComObj
procedure TForm1.Button1Click(Sender: TObject);
var fOpenOffice : Variant;
fDocument : Variant;
fConnected : boolean;
fDocumentOpened : boolean;
fDesktop : Variant;
wProperties : Variant;
Texto, oDescBusca : variant;
begin
if VarIsEmpty(fOpenOffice) then
fOpenOffice := CreateOleObject(\'com.sun.star.ServiceManager\');
fConnected := not (VarIsEmpty(fOpenOffice) or VarIsNull(fOpenOffice));
if not fConnected then
abort;
fDesktop := fOpenOffice.createInstance(\'com.sun.star.frame.Desktop\');
wProperties := VarArrayCreate([0, 0], varVariant);
wProperties[0] := MakePropertyValue(fOpenOffice,\'Hidden\', false);
try
fDocument := fDesktop.loadComponentFromURL( \'file:///\'+
StripString(\'c:\\angela.doc\', \'\\\', \'/\') , \'_blank\', 0,
wProperties);
Texto := fDocument.GetText ;
except
fDocument :=
fDesktop.LoadComponentFromURL(\'private:factory/swriter\',\'_blank\',
0, VarArrayCreate([0, - 1], varVariant));
Texto := fDocument.GetText ;
Texto.SetString(\'teste\'+ #13 + \'teste\'+#13);
end;
fDocumentOpened := not (VarIsEmpty(fDocument) or VarIsNull(fDocument));
oDescBusca := fDocument.createReplaceDescriptor;
oDescBusca.SearchWords := True;
oDescBusca.setSearchString (\'teste\');
oDescBusca.setReplaceString(\'angela\');
fDocument.replaceAll(oDescBusca);
oDescBusca := Texto.getEnd;
oDescBusca.SetString(\'xxxxxxxxx\');
if fDocumentOpened then
begin
// fDocument.Close(false);
fDocumentOpened := false;
fDocument := Unassigned;
//fDesktop.Terminate;
fDesktop := UnAssigned;
end;
fConnected := false;
fOpenOffice := Unassigned;
end;
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
