Problème d'Ole Automation avec Word : Mot réservé
Bonjour,
Je suis en train de me développer une classe de gestion Ole Automation pour piloter Word 2010 avec Lazarus.
Lazarus 1.0.14 (32bit) et FPC 2.6.2 sous Windows Seven Pro 64.
Mon problème est le suivant. Comme je veux gérer des formulaires, j'ai besoin de connaitre le type des champs (les ContentControl),
et donc d'accéder à leur propriété "Type".
Hélas si je fais cela
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
function T_MSWord.GetChampsType(index: Integer): integer;
Var
UnChamp : Variant;
begin
Result := -1;
If fIsDocument Then
If ( index > 0) and ( index <= fDocument.ContentControls.Count) Then
Begin
UnChamp:=fDocument.ContentControls.Item(index);
Result := UnChamp.Type; //ÇA BLOQUE ICI A LA COMPILATION
end;
Result := fDocument.ContentControls;
end; |
Quelqu'un a une idée pour contourner ce problème ?
Merci d'avance
JS
