Bonjour Greborio Robert
Message du 2005-12-09 14:53:
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;
(...)
J'ai un msg OleError "Method StyleFamilies not supported by automation object"!!
Où est l'erreur?
Ce n'est pas comme ça qu'on obtient les familles de style, Delphi ou
autre langage. Essaie plutôt:
StyleFam:= MyDoc.StyleFamilies;
Remarque: ton codage suppose que le document n'utilise qu'un seul style
de page.
Bernard
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
