1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
|
Procedure TFenetre_termite.Enregistrement_Text_word(lienFichier:string);
var
cheminFichier, aFileName, NomDuFichier: olevariant ;
mesFichiers, MaZone, mesSignets, placeSignet, monSignet : olevariant;
monFichier : _document;
lecture_page,num_onglet,NumTableau:integer ;
TabPageetage,TabPagepiece:TTabPage ;
aComposant :TControl ;
acheck :TCheckBox ;
Repertoire:string ;
Tableau :Table ;
Visible: olevariant;
BeforeRow: OleVariant;
begin
Repertoire := ExtractFilePath(Application.ExeName);
cheminFichier := Repertoire+'../fichierWord/termite.doc';
Visible := false ;
monFichier := ApplicationWord.Documents.Open(cheminFichier,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,Visible,EmptyParam,EmptyParam,EmptyParam);
Tableau := monFichier.Tables.item(3);
if assigned(TNB_principal) then
begin
For lecture_page:= 0 to TNB_principal.Pages.Count-1 do
Begin
TabPageetage := TTabPage(TNB_principal.Pages.Objects[lecture_page]);
if assigned(TabPage) then
begin
Tableau.Cell(lecture_page,2).Range.Text := TabPageetage.Caption ;
BeforeRow:=Tableau.Rows.Item(Tableau.Rows.Count);
Tableau.Rows.Add(BeforeRow);
For num_onglet:= 0 to TNB_principal1[lecture_page].Pages.Count-1 do
Begin
TabPagepiece := TTabPage(TNB_principal1[lecture_page].Pages.Objects[num_onglet]);
miseEnFormeMot(TabPagepiece.Caption);
Tableau.Cell(lecture_page+num_onglet,1).Range.Text := motFinal ;
//placeSignet.InsertAfter(motFinal);
For NumTableau:=0 to Pred( TabPagepiece.ControlCount ) do
begin
aComposant := TControl.Create(self);
aComposant := TabPagepiece.Controls[NumTableau] ;
if TabPagepiece.Controls[NumTableau] is TCheckBox then
begin
recupere_mot(aComposant.Name, Length(aComposant.Name)-3, 1);
acheck := TCheckBox.Create(self);
acheck := (aComposant as TCheckBox);
if mots='CBX_test' then
begin
if acheck.Checked = false then
begin
Tableau.Cell(lecture_page+num_onglet,3).Range.Text := 'NON' ;
//placeSignet.InsertAfter('NON'+#13);
end
else
begin
Tableau.Cell(lecture_page+num_onglet,3).Range.Text := 'OUI' ;
//placeSignet.InsertAfter('OUI'+#13);
end;
end;
end;
end;
BeforeRow:=Tableau.Rows.Item(Tableau.Rows.Count);
Tableau.Rows.Add(BeforeRow);
end;
end;
end;
end;
end;
monFichier.SaveAs(lienFichier,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
ApplicationWord.Quit;
end; |
