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.