Discussion :

[Claude_Azoulai]

Bonjour à tous
Je voudrais, dans un document, effacer une table des matières dont je ne connais pas l'emplacement dans le document
Ceci en VBA Word
Quelqu'un a-t-il une idée
Au moment de l'action, le document est ouvert, ça peut faciliter la chose
Merci de me répondre

[Invité]

Bonjour,

A tester :

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
 
Sub SupprimerLaTableDesMatieres()
 
Dim I As Integer, ParagrapheEnCours As Integer
 
    With ActiveDocument
 
         If .TablesOfContents.Count = 0 Then
            MsgBox "Aucune table des matières dans le document !", vbInformation
            Exit Sub
         End If
 
         For I = .TablesOfContents.Count To 1 Step -1
             With .TablesOfContents(I)
 
                  .Range.Select
                  Selection.HomeKey Unit:=wdStory, Extend:=wdExtend
                  ParagrapheEnCours = Selection.Paragraphs.Count
                  'MsgBox ParagrapheEnCours
 
                  .Delete
                  ActiveDocument.Paragraphs(ParagrapheEnCours).Range.Delete
 
             End With
         Next I
    End With
 
End Sub

[Claude_Azoulai]

Merci Eric
Tout d'abord mes plus plates excuses pour ma réponse tardive car j'ai été absent pendant tout ce temps.
Ton code me va parfaitement car il me permet de supprimer toutes les tables des matières sauf la première.
Il me reste un seul problème, a savoir, je voudrais mettre à jour la table des matières qui reste.
J'ai donc enregistré une macro et effectué une mise à jour complète de cette table des matière qui reprend en compte la totalité de tous les chapitres.
Après avoir arrêté l'enregistrement, la macro enregistrée est vide ?????
Si tu as une idée, elle sera la bienvenue
Merci encore pour ton aide

[Invité]

Bonjour,

A tester :

Code :

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

1
2
3
4
5
 
         With ActiveDocument.TablesOfContents(1)
           ' .Update ' ou
            .UpdatePageNumbers
         End With

[Claude_Azoulai]

Merci de ton aide, ça fonctionne bien