Discussion :

[casolaro]

Bonjour,
Je voudrais référencer dans un tableau excel la liste des titres d'un niveau donné en séparant le numéro du titre du titre en lui-même sur deux colonnes Excel.

par exemple, j'ai le texte suivante
1.0 Titre 1
bla bla
1.1 Tire 1.1
bli bli
2.0 Titre 2
blo blo

Si l'utilisateur sélectionne tout ce texte et défini qu'il veut récupérer les références de niveau 1, je dois générer un classeur excel qui aurait l'allure suivante:

num | Libellé
1.0 | Titre 1
1.2 | Titre 2

J'arrive à tout faire, (création du fichier Excel à partir de word, recherche du style correspondant au niveau de titre, etc...) sauf à récupérer le numéro de titre... Qui peut m'aider?


Merci d'avance...

[SilkyRoad]

bonjour

tu pourras peut etre adapter cette macro Excel qui permet de recuperer l'arborescence des paragraphes d'un document Word
Chaque paragraphe est supposé débuter par une numérotation


tu dois prealablement activer la reference "Microsoft Word xx.x Object Library"
dans l'editeur de macros
Menu Outils
References
coches la ligne "Microsoft Word xx.x Object Library"
cliques sur OK

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
Sub boucleParagraphesWord()
'necesite d'activer la reference Microsoft Word xx.x Object Library
Dim appWrd As Word.Application
Dim docWord As Word.Document
Dim Paragraphe As Paragraph
Dim i As Integer
 
Set appWrd = CreateObject("Word.Application")
appWrd.Visible = True
Set docWord = appWrd.Documents.Open("C:\monDocument.doc")
 
For Each Paragraphe In docWord.Paragraphs
If Paragraphe.Range.ListFormat.ListValue <> 0 Then
i = i + 1
Cells(i, Paragraphe.Range.ListFormat.ListLevelNumber) = _
Paragraphe.Range.ListFormat.ListString
Cells(i, Paragraphe.Range.ListFormat.ListLevelNumber + 1) = _
Paragraphe.Range.Sentences(1).Text
End If
Next
 
End Sub

cordialement
michel

[casolaro]

Merci SilkyRoad!!!
Pour info je fais les macros à partir de Word (et c'est bien la première fois, j'ai plus l'habitude des objets Excel que je maîtrise parfaitement), du coup je ne devrais pas avoir trop de mal à adapter ton code...

ouskel'n'or, je pense que tu n'as pas compris la question, mais merci quand même d'avoir essayé