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 : Sélectionner tout - Visualiser dans une fenêtre à part
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