Discussion :

[Lucas42]

Bonjour , j'aimerai savoir si il y a une méthode pour récupérer la liste complete des signets d'un document Word via une macro. J'ai regarder dans l'aide et il parle de ca :

Code :

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

1
2
3
4
5
6
7
8
9
 
If ActiveDocument.Bookmarks.Count >= 1 Then
    ReDim aMarks(ActiveDocument.Bookmarks.Count - 1)
    i = 0
    For Each aBookmark In ActiveDocument.Bookmarks
        aMarks(i) = aBookmark.Name
        i = i + 1
    Next aBookmark
End If

j'ai donc essayer de recuperer le contenu du tableau aMarks mais en vain , aucune aide sur cette fonction ...

Merci d'avance
Ami programmeur Lucas

[Heureux-oli]

Salut,

Le code que tu nous donnes envoie le nom des signets dans un tableau.

Essaie ce code.

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
Sub ListeSignets()
Dim oDoc1 As Document
Dim oDoc2 As Document
Dim oBm As Bookmark
 
Set oDoc1 = ActiveDocument
Set oDoc2 = Documents.Add
oDoc2.Select
 
For Each oBm In oDoc1.Bookmarks
 
    Selection.TypeText oBm.Name
    Selection.TypeParagraph
Next oBm
 
 
 
 
End Sub