Discussion :

[Kimy_Ire]

Bonjour,

Mon but :
Ouvrir un fichier Word
Chercher les titres
Recopier les titres dans mon fichier Excel
Chercher les tableaux
Recopier certains tableaux dans mon fichier Excel
Fermer Word.

Aujourd'hui je ne bloque plus que sur les titres.
J'ai cherché sur la toile rapidement, je n'ai pas trouver de méthode explicite qui détecte les titres.

Ma question est : existe-t-il une telle méthode ?

Solution de contournement : doit-je vérifier (police, taille, mis en forme) pour obtenir ce que je souhaite - si tenté que cela soit possible ?

Je reste à votre disposition pour expliciter d'avantage mon problème si nécessaire.
Je vous remercie par avance pour vos réponses.

Cordialement,
Kimy

[clementmarcotte]

Bonjour,

Bonjour,

J'ai cherché sur la toile rapidement, je n'ai pas trouver de méthode explicite qui détecte les titres.

Kimy

C'est juste normal. Un titre c'est une notion abstraite qui dépend beaucoup de l'interprétation que l'on peut en faire et du contexte. Par exemple le titre d'une œuvre ou d'un texte sera affiché et traité différemment d'un titre de chapître.

Si tes titres ont tous un nom de style différent du style Normal, ou un style de titre; tu peux rechercher le style en question. Mais, si tu as plusieurs documents avec des noms de styles de titres très disparates, ta solution de contournement pourrait bien être la meilleure.

[Kimy_Ire]

Bonjour,

Tout d'abord merci pour ta réponse.

J'ai en effet plusieurs styles de titres (5 pour être précis).

Ils sont tous référencés dans les titres Word du haut de page (je ne sais pas trop comment dire cela...).

Peux-tu m'aider d'avantage quant à la manière de procéder ?

Cordialement,
Kimy

Actuellement, je bloque sur les paragraphes.
En effet, j'essaye de trouver le numéro du paragraphe qui précède mes tableaux et qui me donnera le titre. Mais je n'arrive pas à trouver ce fameux numéro de paragraphe et a prendre le précédent...

Bon, j'arrive a récupérer les titres au dessus de mes tableaux.

Leur numéro ainsi que leur texte.

Ma question maintenant :
Comment récupérer un titre d'un cran au dessus ?

Comme ma question ne doit pas être claire, voici un exemple :
2. Mon gros titre
2.3 Mon moyen titre
2.3.1 Mon petit titre

Ayant "2.3.1" et "Mon petit titre" comment puis-je accéder à "2.3" et "Mon moyen titre" (et accessoirement "2." et "Mon gros titre") ?

[clementmarcotte]

Bonjour,

Ne connaissant pas les noms de tes styles et la structure de tes documents, je n'ai pas de réponse très précise.

Je pencherais pour que tu recherches les styles de titre dans tes documents. Cet exemple, tiré de l'aide de VBA applique un style déterminé à tous les paragraphes qui commencent par le mot chapter.

Code :

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

1
2
3
4
5
For Each para In ActiveDocument.Paragraphs
    If para.Range.Words(1).Text = "Chapter " Then
        para.Style = ActiveDocument.Styles(wdStyleHeading1)
    End If
Next para

De la même manière, sans avoir testé, je pense que tu pourrais essayer quelque chose du genre.

Code :

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

1
2
3
4
5
6
For Each para In ActiveDocument.Paragraphs
    If para.Style = ActiveDocument.Styles("Titre1")= Then
  'selectionner, copier et coller dans Excel  
 
End If
Next para

Désolé, là j'ai tes contraintes de temps pour trouver ou écrire une macro plus complète.