Discussion :

[Godzestla]

Bonjour,
je cherche à récupérer la liste des signets d'un modèle, ce que je parviens à faire par ordre alphabétique , mais triée par emplacement comme le permet word (Insertion -> Signet -> Trier par emplacement.

Comment adapter ce code pour trier par emplacement ?

Code :

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

1
2
3
4
5
6
7
8
Sub testsursignet()
dim myS as Bookmark
 
For each mys in activeDocument.bookmarks
debug.print mys.name
next mys
 
end sub

Faut-il récupérer le tout en table et trier sur base de l'attribut .Start ? Pas possible de faire plus simple ?

[Godzestla]

Ca fonctionne comme ceci, mais c'est assez fastidieux :

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
    ' List Bookmarks
    List_Bkm = ""
    Bookm_Count = 0
 
    'Get Bookmarks
    For Each bkm In m_objdoc.bookmarks
        Bookm_Count = Bookm_Count + 1
        Bookm_v(Bookm_Count) = Trim(bkm.Name)
        Bookm_s(Bookm_Count) = bkm.start
    Next
    'Sort Bookmarks / Start
    For Idx = 1 To Bookm_Count - 1
        For Idy = Idx + 1 To Bookm_Count
            If Bookm_s(Idx) > Bookm_s(Idy) Then
                Bookm_S_Swap = Bookm_s(Idx)
                Bookm_V_Swap = Bookm_v(Idx)
                    Bookm_s(Idx) = Bookm_s(Idy)
                    Bookm_v(Idx) = Bookm_v(Idy)
                Bookm_s(Idy) = Bookm_S_Swap
                Bookm_v(Idy) = Bookm_V_Swap
             End If
        Next Idy
    Next Idx
    For Idx = 1 To Bookm_Count
        If List_Bkm = Null Then
            List_Bkm = Str(Bookm_s(Idx)) + "/" + Trim(Bookm_v(Idx))
         Else
            List_Bkm = List_Bkm + vbCrLf + Str(Bookm_s(Idx)) + "/" + Trim(Bookm_v(Idx))
        End If
    Next
 
    MsgBox List_Bkm

[Heureux-oli]

Salut,

Juste une question, quel est l'intérêt de les récupérer par emplacement en VBA.

[Godzestla]

Salut,
parce que je travaille depuis Access ou je gère des modèles de documents Word pour differentes entités.
Il est pratique de voir les signets d'un modèle dans l'ordre pour vérifier que ce document est déjà adapté aux dernières modifications de mise en page ainsi que pour répliquer les modifications.

Le code que j'ai publié est dans un module access.

Ensuite, Access utilise les modèles mis à jour pour éditer tous les documents nécessaires. (Facture, Confirmation, ....)