Parser un document

**tete-jaune** · 02/07/2009, 17h43

Bonjour,
Je viens de m'inscrire sur ce forum car j'ai une problématique pour automatiser une opération en vba.
Je connais déjà le vba dans Excel mais j'ai l'impression de ne rien maitriser dans Word tellement les choses me paraissent différentes.
Je m'explique.
J'ai un document s'apparentant à une "base de données".
Chaque "produit" est toujours du type :

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
TITRE (en majuscule)
 
commentaire1
 
DESCRIPTION : bla bla bla....
 
CHOIX DU SOL : bla bla bla....
 
SEMIS : bla bla bla....
 
CULTURE : bla bla bla....
 
RECOLTE : bla bla bla....
 
CONSEILS : bla bla bla....
 
FLORAISON : bla bla bla....
 
UTILISATION : bla bla bla....
 
commentaire2

il y a toujours une ligne vide entre chaque paragraphe.
Certaines infos ne peuvent pas être présentes sur certains produits.

Au final j'aimerai récupéré les données de façon tabulée pour les mettre dans un fichier Excel avec les colonnes : TITRE, COMMENTAIRE1, DESCRITPTION, CHOIX DU SOL, SEMIS, CULTURE, RECOLTE, CONSEILS, FLORAISON, UTILISATION, COMMENTAIRE2

J'avais donc pensé balayer le document et enregistrer chez infos dans un array :

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
 
array(
    [0] => array( 
               ['TITRE'] => le titre du produit 1
               ['DESCRIPTION'] => la description du produit 1
               ['CHOIX DU SOL'] => choix du sol du produit 1
               ['SEMIS'] => semis du produit 1
               ['CULTURE'] => culture du produit 1
               ['RECOLTE'] => recolte du produit 1
               ['CONSEILS'] => conseils du produit 1
               ['FLORAISON'] => floraison du produit 1
               ['UTILISATION'] => utilisation du produit 1
               ['COMMENTAIRE1'] => le commentaire1 du produit 1
               ['COMMENTAIRE2'] => le commentaire2 du produit 1
               )
    [1] => array( 
               ['TITRE'] => le titre du produit 2
               ['DESCRIPTION'] => la description du produit 2
               ['CHOIX DU SOL'] => choix du sol du produit 2
               ['SEMIS'] => semis du produit 2
               ['CULTURE'] => culture du produit 2
               ['RECOLTE'] => recolte du produit 2
               ['CONSEILS'] => conseils du produit 2
               ['FLORAISON'] => floraison du produit 2
               ['UTILISATION'] => utilisation du produit 2
               ['COMMENTAIRE1'] => le commentaire1 du produit 2
               ['COMMENTAIRE2'] => le commentaire2 du produit 2
               )
)

J'ai commencer à réfléchir comment repérer les infos :
cas 1 : Rechercher des caractères majuscules mais qui ne correspondent pas aux titres (DESCRITPTION, CHOIX DU SOL, SEMIS, CULTURE, RECOLTE, CONSEILS, FLORAISON, UTILISATION) Cette ligne est le titre.
cas 2 : Si il y a du texte à la suite de cas1 c'est un commentaire1
cas 3 : Sinon on attaque la répartition des rubriques
cas 4 : A la fin si on tombe sur du texte qui n'est pas dans le cas 1 c'est un commentaire 2

Qu'en pensez vous? Cela est il réalisable sachant que mon document contient plus de 2000 paragraphes?
Merci d'avance pour votre aide

**Heureux-oli** · 02/07/2009, 18h28

Salut,

Quelle sera la destination finale de ton "document" ?

Faire un tableau VBA de 2000 éléments n'est pas impossible, mais ça va être lourd.

Le principe que j'utiliserais !

Parcourir chaque paragraphe, déterminer sa taille, si le paragraphe est vide, l'ignorer.
Ensuite, vérifier le premier mot du paragraphe, et en fonction de ce mot lancer un traitement.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim pAra As Paragraph
Dim mOt
 
For Each pAra In ActiveDocument.Paragraphs
    If pAra.Range.Words(1) = "SEMIS" Then
      MonTraitement
   End If
Next pAra

**tete-jaune** · 03/07/2009, 09h48

Bonjour,
Merci pour ta réponse.

Le but final de cette macro sera de :

Soit générer un fichier texte tabulé
Soit générer un fichier Excel

Je suis d'accord avec le principe que tu me proposes.
Gérer un array de 2000 éléments je me doute que ce n'est pas le plus "léger" mais je ne sais pas comment mémoriser mes données pour générer au final le fichier voulu.
Existe t'il des fonctions de création de fichier Excel en vba Word? ou de création de fichier texte tout simplement?

**Heureux-oli** · 03/07/2009, 10h13

Salut,

Oui, on peut générer et même directement écrire dans des fichiers Excel au départ de Word.

Petite question, si un champ ne contient pas de données, est-il quand même présent ?

Pourrais-tu mettre un morceau de ton document sur le forum ?

**tete-jaune** · 03/07/2009, 10h20

Si un champ ne contient pas de données, non il n'est pas présent.

Voilà un extrait de mon fichier original

**Heureux-oli** · 03/07/2009, 21h53

Salut,

Après quelques essais, voilà ce que j'obtiens :

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
52
53
54
55
56
57
58
59
60
 
Sub ParserDocument()
Dim xlApp As Excel.Application
Dim xlWb As Excel.Workbook
Dim xlWs As Excel.Worksheet
Dim para As Paragraph
Dim intVariete As Integer
 
'affectation des objets Excel
Set xlApp = New Excel.Application
Set xlWb = xlApp.Workbooks.Add
Set xlWs = xlWb.Worksheets(1)
 
'Au moins une variété de graines
intVariete = 1
 
For Each para In ActiveDocument.Paragraphs
    If Len(para.Range.Text) > 2 Then
        'Traitement à faire
        'Debug.Print RTrim(para.Range.Words(1)) & " - " & Len(para.Range.Words(1))
        Select Case Left(para.Range.Words(1), 4)
        Case "DESC"
            xlWs.Cells(intVariete, 2) = Mid(para.Range.Text, 15, Len(para.Range.Text) - 1)
 
 
        Case "CHOI"
            xlWs.Cells(intVariete, 3) = Mid(para.Range.Text, 16, Len(para.Range.Text) - 1)
 
        Case "SEMI"
            xlWs.Cells(intVariete, 4) = Mid(para.Range.Text, 9, Len(para.Range.Text) - 1)
        Case "CULT"
            xlWs.Cells(intVariete, 5) = Mid(para.Range.Text, 11, Len(para.Range.Text) - 1)
        Case "RECO"
            xlWs.Cells(intVariete, 6) = Mid(para.Range.Text, 11, Len(para.Range.Text) - 1)
        Case "CONS"
            xlWs.Cells(intVariete, 7) = Mid(para.Range.Text, 12, Len(para.Range.Text) - 1)
        Case "FLOR"
            xlWs.Cells(intVariete, 8) = Mid(para.Range.Text, 13, Len(para.Range.Text) - 1)
        Case "UTIL"
            xlWs.Cells(intVariete, 9) = Mid(para.Range.Text, 15, Len(para.Range.Text) - 1)
        Case Else
            'Debug.Print InStr(1, UCase(para.Range.Text), "BOC")
            'Si le paragraphe contient Bocquet, il est ignoré
            If InStr(1, UCase(para.Range.Text), "BOC") <> 0 Then
                'Nom de la variété de graines
                xlWs.Cells(intVariete, 10) = Mid(para.Range.Text, 1, Len(para.Range.Text) - 1)
             Else
                intVariete = intVariete + 1
                xlWs.Cells(intVariete, 1) = Mid(para.Range.Text, 1, Len(para.Range.Text) - 1)
                'Titre
             End If
        End Select
 
 
    End If
Next para
xlApp.Visible = True
 
 
End Sub

tu dois ajouter au projet la référence à Excel.
Dans le VBE :
Outils => Références

**tete-jaune** · 07/07/2009, 11h50

Bonjour,
Merci pour ta réponse Heureux-oli. Je n'ai pas encore eu le temps de regarder et de tester ta procédure.
Mais j'espère le faire dans la journée.
Je te tiens au courant.

Parser un document

VBA Word

Discussions similaires

Partager

Partager