Word et Delphi

Version imprimable

Word et Delphi

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:

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]
:tagcode:

28/02/2004, 17h28
Laurent Dardenne

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
28/02/2004, 21h12
popeyes

plus d'infos

Citation:

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

C'est a dire ???

Citation:

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 ???
28/02/2004, 23h14
Laurent Dardenne

Re: plus d'infos

Citation:

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.
29/02/2004, 00h16
Laurent Dardenne

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

Regarde l'exemple ExTbl1u.pas
:lol:
29/02/2004, 15h10
popeyes

delphi 6 entreprise

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é.

Salut,
voici une solution ,

Code:

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;

Cette portion de code annule et remplace la derniére proposée.

:google:

A+
Laurent Dardenne

01/03/2004, 19h35
popeyes

merci

Ton code est parfait, je fait le modifier pour l'adapter a mes besoins mais merci beaucoup.
01/03/2004, 19h40
Laurent Dardenne

Salut
cela m'a permit d'apprendre aussi qq chose :D
A+
Laurent Dardenne