Extraction Word vers Excel grâce aux Styles

Bonjour à toutes et à tous,

Comme l'indique le titre, j'ai pour objectif d'extraire des données d'un fichier .docx vers un fichier .xlsx.

J'ai trouvé ce code qui a pour fonction de sélectionner les styles indiqués (dans .Style = "TITRE") pour ainsi copier la sélection vers un nouveau fichier Word : ce qui faciliterait donc mes intentions.

Au premier regard le code semble fonctionnel mais j'ai remarqué qu'il ne tenait pas compte de la totalité des titres.

J'ai par exemple pu extraire seulement 90 "Titres 3" alors que 150 sont présents sur le document source.

Sub Extract()

'Début du document
    Selection.Start = ActiveDocument.Content.Start
    Selection.End = ActiveDocument.Content.Start

'Recherche du style
    With Selection.Find
        .ClearFormatting
        .Style = "TITRE"

'Stockage du texte dans la variable valeur
        While .Execute
            Valeur = Valeur & Selection.Text

'Boucle de recherche
            Selection.Start = Selection.End + 1
            Selection.End = Selection.Start
        Wend
    End With

'Création du nouveau document de destination
    Documents.Add Template:="Normal", NewTemplate:=False, DocumentType:=0

    Selection.TypeText (Valeur)

    Selection.WholeStory

End Sub

Si quelqu'un pouvait m'éclairer ...

Je vous remercie par avance pour l'aide accordée.

Bonjour,

Ici, tu es sur un forum Excel et non Word, je pense que tu auras des réponses plus pertinentes sur un forum dédié !

bonjour

salut Theze

quel est le but de l'extraction ?

récupérer un sommaire ? alors créer le sommaire et le copier coller (à tester)

bonjour

salut Theze

quel est le but de l'extraction ?

récupérer un sommaire ? alors créer le sommaire et le copier coller (à tester)

Bonjour jmd,

L'objectif est d'extraire uniquement les données qui m'intéressent sur un fichier Word assez massif.

Sur ce document, de nombreux styles sont présents et si j'extrais le style "Livrable" j'ai tous les paragraphes "Livrable" sur un nouveau document : plutôt pratique.

Le seul inconvénient est que je n'arrive pas à extraire à 100% les données ciblées... Comme je l'ai dis précédemment je ne comprends pas pourquoi j'obtiens 99 "Livrable" au lieu de 105 (au total présents sur le document source).

re

as-tu essayé de créer un sommaire dans Word, puis tu le copies colles dans ton Excel

si besoin, tu modifie le style Livrable en un style de titre (modif en bloc naturellement)

joins un extrait du Word

Rechercher des sujets similaires à "extraction word styles"