Word et Delphi

**popeyes** · 27/02/2004, 20h24

j'ai fait un delestage du sujet précédant car il devenait un peu difficile de s'y retrouver.

Mon probleme :
------------------
Je veux pouvoir récupèrer le contenu des colones dans un document word (format RTF mais cela ne changera pas grand chose) [exemple de document dispo a http://www.jeuxetgains.com/site5/rappo.rtf]. J'ai plusieurs fichiers mais tous dispose des mêmes colonnes avec les même titres. Je veux pouvoir convertir vers une base Access les données que je lis (pour la gestion Delphi vers Access, je n'ai pas de problème).

Mes outils :
-------------
Delphi 4.0 Pro (absence du composant Oleserver.dcu)
Word 2002

Mon code actuel :
--------------------
Il me permet juste d'ouvrir le fichier

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
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
unit Unit1; 
 
interface 
 
uses 
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
StdCtrls, Comobj, ComCtrls; 
 
type 
TForm1 = class(TForm) 
Button1: TButton; 
Button2: TButton; 
procedure Button1Click(Sender: TObject); 
procedure Button2Click(Sender: TObject); 
private 
{ Déclarations privées } 
public 
{ Déclarations publiques } 
end; 
 
var 
Form1: TForm1; 
vMSWord : variant ; 
OleApplication :variant; 
vXLWorkbooks, vXLWorkbook : variant ; 
vFileName : AnsiString ; 
vSaveChanges : variant ; 
vSheetName : AnsiString ; 
vWorksheet : variant ; 
vRange, vValue : AnsiString ; 
vCell : variant ; 
vWDocument, vWDocuments : variant; 
T : variant ; 
 
 
implementation 
 
{$R *.DFM} 
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
vMSWord := CreateOleObject('Word.Application.10'); 
vMSWord.Visible := true ; 
vFileName := 'c:\Windows\Bureau\Projet test\test.rtf'; 
vWDocuments := vMSWord.Documents; 
vWDocument := vWDocuments.Open(vFileName); 
end; 
 
end.

[Balise [code] rajoutée par Nono40]

**Laurent Dardenne** · 28/02/2004, 17h28

Le début de l'histoire...
http://www.developpez.net/forums/vie...r=asc&start=15

Le mieux est de convertir le code proposé en utilisant des variants et/ou les objets de l'unité Word2002.

Je suppose que tu utilises la bonne librairie de type, ie celle de Word2002.

A+
Laurent Dardenne

**popeyes** · 28/02/2004, 21h12

Je suppose que tu utilises la bonne librairie de type, ie celle de Word2002.

C'est a dire ???

Le mieux est de convertir le code proposé en utilisant des variants et/ou les objets de l'unité Word2002.

Où puis trouver le relevé des objets de l'unite word 2002 ???

En quel version de Delphi as tu developpez tron code que tu m'as cite ???

**Laurent Dardenne** · 28/02/2004, 23h14

Envoyé par popeyes

En quel version de Delphi as tu developpez tron code que tu m'as cite ???

Avec la version 5.

Pour la librairie de type tu dois importer un fichier .TLB qui se trouve dans le répertoire d'office. Utilise pour ce faire le menu 'Composant- Importer un contrôle ActiveX'.

Une fois ceci fait tu disposeras d'une unité qui te permettras d'accéder aux objets Word 2002.

**Laurent Dardenne** · 29/02/2004, 00h16

Sinon regarde sur se site :
http://sourceforge.net/projects/tpofficepartner/

Regarde l'exemple ExTbl1u.pas

**popeyes** · 29/02/2004, 15h10

Pour simplifier mon probleme, j'ai installé Delphi 6 entreprise sur mon PC (version de démo). Ca me parait plus simple car il y a une palette de composants Office !!! Maintenant je vais essayer de reprendre ton code.

l'importation d'un active X Office sur Delphi 4 n'a rien changé.

**Laurent Dardenne** · 29/02/2004, 16h58

Salut,
voici une solution ,

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
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
 
procedure TForm1.BtReadDocClick(Sender: TObject);
var
  T          : Table;
  CurrentRow : Row;
 
  CelluleText  : String;
  myCols,NbCol : Integer;
  myRows,NbRow : Integer;
 
begin
    // nombre de tableau dans le document = WordDocument1.Tables.Count
 
     // Récupére le tableau numéro 1
  T:=WordDocument1.Tables.item(1);
 
     // Récupére le nombre de ligne total
  NbRow := T.Rows.Count;
 
     // Récupére le nombre de Colonne total
  NbCol := T.Columns.Count;
 
    //Lecture du tableau ligne 1 colonne1
    //                   ligne 1 colonne2 ...
  For myRows:=1 to NbRow do
  begin
     // Récupére la ligne courante
   CurrentRow:=T.Rows.Item(myRows);
     // Récupére le nombre de colonne de la ligne courante
   NbCol:=CurrentRow.Cells.count;
 
   For myCols:=1 to NbCol do
    begin
       // Récupére le text pour un pré-traitement
     CelluleText:=T.Cell(myRows,myCols).Range.Text;
     if not VarisEmpty(CelluleText) then   // Traite les cellules vides
      begin
         // Supprime les Tabulations
       CelluleText := StringReplace(CelluleText,#$D, '', [rfReplaceAll]);
 
         // Supprime les coupures de ligne
       CelluleText := StringReplace(CelluleText, #$7, '', [rfReplaceAll]);
 
         //Mémorise dans la liste,
      LBLigneWord.Items.Add(CelluleText);
      end
    end;
    // Résultat au format Texte
  LBLigneWord.Items.SaveToFile('Resultat.txt');
 end;
end;