Discussion :

[g-saunier]

Bonjour à tous,

Afin d'automatiser la transformation de certains textes Word en html, je cherche à manipuler des listes à puces via une Macro. J'ai donc créé un document "test" dans lequel figure du texte et des listes comme dans l'exemple ci-après.


La commande ActiveDocument.ListParagraphs.Count me renvoie bien 8. En effet, j'ai 8 paragraphes formatés sous forme de liste. Pas de problème.

Là où je ne comprends plus, c'est que la commande ActiveDocument.Lists.Count me renvoie 1. Or, si j'ai bien compris la documentation, VBA devrait me renvoyer le nombre 2 (puisque j'ai deux listes). D'ailleurs, si je change les puces (cf. exemple suivant), je vais obtenir ce résultat de 2.


Bref, soit il y a un problème, soit je ne comprends pas le fonctionnement de lists.count.

Merci d'avance de vos lumières.

GS.

[Invité]

Bonjour,

S'agissant d'une collection, elle doit sans doute commencer à 0. Pour vérifier, il suffit de sélectionner l'indice 0.

[g-saunier]

Bonjour. Merci de votre réponse et de votre aide.
Le "count" renverrait donc 1 lorsqu'il y a deux listes ? Mais pourquoi renvoie-t-il deux si je change le format des listes ? Je vais essayer d'appeler la liste 0, on verra bien.

[Invité]

Mettez un exemple en ligne et indiquez ce que vous cherchez à faire.

[g-saunier]

Une fois de plus : merci de votre aide.

Voici le code que j'essaie de faire fonctionner.

Code :

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

1
2
3
4
5
6
7
8
9
For i = 1 To ActiveDocument.Lists.Count
        ul1 = ActiveDocument.Lists(i).Range.Start
        ul2 = ActiveDocument.Lists(i).Range.End - 1
        Set myUl = ActiveDocument.Range(Start:=ul1, End:=ul2)
        With myUl
                    .InsertBefore "<ul>"
                    .InsertAfter "</ul>"
        End With
Next i

L'idée est d'ajouter automatiquement une balise <ul> au début de chaque liste de mon document word pour une migration vers un site. Mais cela ne fonctionne pas : VBA me met une balise UL au début de la première liste, à la fin de la seconde. Effectivement, il ne "compte" qu'une seule liste.

J'espère que cela rend ma question plus claire.

GS.

[Invité]

Bonjour,

Pouvez-vous mettre un fichier exemple en ligne ?

[g-saunier]

Voilà.

[Invité]

Contrairement à ce que j'ai écrit précédemment, la collection Lists part de 1.

Effectivement le nombre de Lists correspond aux différents types. Dans votre exemple, un seul type "-" donc une seule liste et 12 items. La difficulté sera de différencier les différentes listes (3) que mon code précédemment mis en ligne ne réalise pas.

[Invité]

Voilà.

Le code ci-dessous permet d'identifier les différentes séries (3) dans une matrice. Il suffirait donc ensuite de sélectionner les premier et dernier paragraphes de chaque série et d'encadrer la sélection.

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 
Sub TestHtml2()
 
Dim DocEncours As Document
Dim I As Integer, J As Integer, IndexMatrice As Integer, SerieBullet As Integer
Dim MonTexte As String
Dim MatriceBullet() As Variant
 
 
    Set DocEncours = ActiveDocument
 
    IndexMatrice = 0
 
    With DocEncours
 
      If .Lists.Count = 0 Then Exit Sub
 
       For I = 1 To .Lists.Count
 
           With .Lists(I)
 
                For J = 1 To .ListParagraphs.Count
                        .ListParagraphs(J).Range.Select
                        ReDim Preserve MatriceBullet(3, IndexMatrice)
                        MatriceBullet(0, IndexMatrice) = I
                        MatriceBullet(1, IndexMatrice) = .ListParagraphs(J).Range.Text
                        Selection.HomeKey unit:=wdStory, Extend:=wdExtend
                        MatriceBullet(2, IndexMatrice) = Selection.Paragraphs.Count
                        IndexMatrice = IndexMatrice + 1
                Next J
 
           End With
 
       Next I
 
    End With
 
    SerieBullet = 1
    For IndexMatrice = LBound(MatriceBullet, 2) To UBound(MatriceBullet, 2) - 1
        MatriceBullet(3, IndexMatrice) = SerieBullet
        If MatriceBullet(2, IndexMatrice + 1) > MatriceBullet(2, IndexMatrice) + 1 Then
           SerieBullet = SerieBullet + 1
        End If
    Next IndexMatrice
 
    For IndexMatrice = LBound(MatriceBullet, 2) To UBound(MatriceBullet, 2) - 1
        Debug.Print "Série : " & MatriceBullet(3, IndexMatrice) & ", " & MatriceBullet(2, IndexMatrice) & ", " & MatriceBullet(1, IndexMatrice)
    Next IndexMatrice
 
    Set DocEncours = Nothing
 
End Sub

[g-saunier]

Cher Éric,

Je ne reprends ce projet qu'à l'instant. Merci beaucoup de vos efforts et de votre aide.

(je suis en train de m'arracher les cheveux sur un nouveau sujet... je vais sans doute poster une nouvelle question)

GS