Discussion :

[syrald]

Bonjour,

J'ai des documents words pouvant contenir des centaines de pages, avec des données à récupérer via une macro word.

Dans ces documents j'ai plusieurs fois ce type de données. Dans cet exemple chaque données est stockées sur une ligne, mais l'Exigence Texte peut être stockée sur plus d'une ligne.
Chaque "ligne" ayant un style prédéfini à l'avance que je puisse récupérer celles-ci par vba. En plus la quatrième ligne a le même style que le reste du document du coup je sais juste qu'elle est comprises entre Exigence Nom et Exigence Fin
Mais je n'y arrive pas, j'ai essayé de passer par Selection.Find en mettant la valeur du style dans .style, mais j'ai plusieurs fois la même ligne d'affilée:

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
 
Public Sub TempTemp()
 
    Call getTexte("Exi_id", "Times New Roman", False)
    Call getTexte("Info", "Helvetica", True)
    Call getTexte("Exi_nom", "Times New Roman", False)
    Call getTexte("Texte", "Arial", False)
    Call getTexte("Exi_Trace", "Times", False)
End Sub
 
Private Sub getTexte(ByRef style As String, ByRef police As String, ByRef italic As Boolean)
    Selection.HomeKey Unit:=wdStory
 
    With Selection.Find
        .Forward = True
        .style = style
        .Font.Name = police
        .Execute
    End With
 
    Debug.Print Selection.style & ": " & Left(Selection.Text, Len(Selection.Text) - 1) & "|"
End Sub

Et le résultat:

Code :

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

1
2
3
4
5
6
 
Exi_id: Exigence ID
Exi_id: Exigence ID
Exi_nom: Exigence Nom
Exi_nom: Exigence Nom
Exi_nom: Exigence Nom

Je suis plutôt habitué au vba Access mais pas Word, c'est pour ça que j'ai besoin de votre aide!

Merci d'avance.

[Heureux-oli]

Salut,

Je rencontre des difficultés pour comprendre la finalité de ton document.
Je pense qu'on devrait pouvoir y arriver autrement, mais j'ai besoin de mieux cerner tes buts.

[syrald]

C'est un peu difficile à expliquer correctement :p
Mais depuis hier j'ai bien avancé et je récupère une partie des données que je veux.

Alors:
Je possède un document word (qui ressemble à un rapport), et qui contient quelques données que je dois récupérer via VBA.
Ces données sont sous cette forme

En gros, la première ligne possède le style Exi_id, la deuxième Info, la troisième Exi_nom, la quatrième Texte (pas de style particulier) et la cinquième Exi_Trace.

Il y a plusieurs blocs de ce style dans le word, et il faut que je puisse récupérer chacune de ces données en VBA pour les mettre ensuite dans un tableau.
Les données de ces blocs sont tous sur une ligne SAUF "Exigence Texte" qui peut être sur plusieurs lignes.

La seul chose qui me permet de différencier ces données du reste du document c'est leur style, j'ai donc utilisé Selection.Find pour les trouver.

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub moveSelection(ByRef style As String)
    With Selection.Find
        .ClearFormatting
        .style = style
        .Execute
    End With
End Sub

Voila un exemple de document que je dois pouvoir traiter.

Les données encadrés sont celles que je dois récupérer.

Merci d'avance pour toute l'aide apportée, hésitez pas si vous avez besoin de plus d'informations

[Heureux-oli]

Salut,

Je pense qu'une boucle sur les paragraphes de ton document fonctionnerait mieux.

Tu récupères en fonction du style du paragraphe.

Code :

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

1
2
3
4
5
6
Dim oPar As Paragraph
 
For Each oPar in ActiveDocument.PAragraphs
    ....
    ....
Next oPar

[syrald]

Aaaah c'est super ça !
J'avais réussi du coup via Selection.find mais bon pour toute ma méthode ça me prenait un grand nombre de ligne de code alors que là c'est tout simple de cette manière ^^

Merci beaucoup je vais ajouter ça

[syrald]

J'ai une autre petite question avec ces paragraphes, certains titres du documents sont de ce style:

Sauf que quand je fais
oPar.Range.Text je ne reçois que "Document" et pas le "1." qui est devant (et j'en ai besoin)

Comment faire?...

Merci d'avance

[Heureux-oli]

Salut,

Dans ton code précédent, tu récupérais cette valeur ?

Mais tu peux récupérer cette valeur avec oPar.Range.ListFormat.ListString

[syrald]

Du coup c'était bien cette formule là que je cherchais (mais je l'avais trouvé dans la matinée :p)

Merci quand même