Discussion :

[fabrisss]

Bonjour,

J'ai un fichier Word contenant des termes et leur définition (dictionnaire). Les termes sont en gras et commencent, à chaque fois, une nouvelle ligne.

J'aimerais faire une macro qui extrait chaque terme et sa définition vers un fichier texte ou xml.

Ne connaissant pas trop le VB, je commence par quelques trucs basiques mais cela ne fonctionne pas :

Code :

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

1
2
3
4
5
6
7
8
 
Selection.Find.ClearFormatting
With Selection.Find
.Font.Bold = True
End With
Selection.Find.Execute
Selection.HomeKey Unit:=wdLine
Selection.EndKey Unit:=wdLine, Extend:=wdExtend

Pouvez-vous m'aider ? Merci.

[Heureux-oli]

Salut,

Le fait de faire un find n'est à mon sens pas la bonne méthode.

Les définitions sont-elles mélangées à du texte indésirable ou n'y as-t-il que les définitions dans le document ?

Selon le contenu, la macro devra être différente.

[fabrisss]

Le document ne contient qu'une suite de termes et de définitions exactement comme un dictionnaire...

...mais les définitions sont parfois un peu complexes et peuvent inclure des images ou des formules. Pour info, elles sont aussi réparties sur 2 colonnes dans le document.

[Heureux-oli]

Tu ne veux que le texte.

Aurais-tu une page en exemple ?

[fabrisss]

Oui, je ne veux que le texte.

Quel type de méthode puis-je utiliser en dehors du Find ?

Comment sélectionner et extraire les données qui m'intéressent ? (même avec un certain taux d'erreurs)

Merci de me donner qques pistes de recherche,

[Heureux-oli]

Plutot que le find, faire une boucle sur tous les paragraphes du document.

Code :

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

1
2
3
4
5
6
7
8
Sub ExtraireMots()
Dim pAra As Paragraph
 
For Each pAra In ActiveDocument.Paragraphs
 
Next pAra
 
End Sub

Si il y a un cractère spécifique qui suit le mot, c'est encore plus facile.
on peut alors utiliser la fonction Instr()

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub ExtraireMots()
Dim pAra As Paragraph
Dim i As Integer
 
For Each pAra In ActiveDocument.Paragraphs
    i = Instr( pAra.range.text, "MonCaractère") 'i correspond à la position du caractère dans le paragraphe
 
Next pAra
 
End Sub

Ensuite, avec un Left() et un Right() ou un mid(), on peut extraire ce dont on a besoin pour l'envoyer dans un autre fichier.

[fabrisss]

Merci pour ces pistes.

Il n'y a malheureusement pas de caractère permettant de localiser les termes mais chaque terme est en gras. Je compte donc utiliser cette information pour extraire les termes.

Une 1ère étape serait donc d'extraire du document tous les termes en gras.

Savez-vous comment faire ?

[Heureux-oli]

On peut récupérer le premier mot de la chaîne qui compose le paragraphe.

[Sepia]

en oubliant pas de vérifier s'il est ou non en gras