[prog] Fw: Calc et Delphi 7

Fri, 09 Dec 2005 05:54:07 -0800

J'ai utilisé le fichier OOoExamples de Bernard Marcelly pour tenter de bien comprendre le système utilisé.
Pour ce qui concerne les cellules tout va bien avec:
 
procedure WriteCell(MyDoc:Variant;CellPos,Text:ShortString);
var
  Sheets, Sheet, Cell: Variant;
begin
  Sheets:= MyDoc.Sheets;
  Sheet:= Sheets.getByIndex(0);
  Cell:= Sheet.getCellRangeByName(CellPos);
  Cell.String:=Text;
end;
 
Mais lorsque j'essaie le même système avec:
 
procedure WriteFooter(MyDoc:Variant;Text:ShortString);
var
  Sheets,Sheet,StyleFam,PageStyle,Page,HCont,HText: Variant;
begin
  Sheets:= MyDoc.Sheets;
  Sheet:= Sheets.getByIndex(0);
  StyleFam:= Sheet.StyleFamilies;
  PageStyle:=StyleFam.getByName('PageStyles');
  Page:=PageStyle.getByIndex(0);
  Page.FooterIsOn:=True;
  HCont:=Page.RightPageFooterContent;
  HText:=HCont.LeftText;
  HText.String:=Text;
  Page.RightPageFooterContent:=HCont;
end;
 
J'ai un msg OleError "Method StyleFamilies not supported by automation object"!!
 
Où est l'erreur?
 
Robert Greborio
www.eurofasteners.com

Répondre à