Discussion :

[JonasM]

Bonjour,
Je travaille avec un collègue sur un document Word partagé via une Dropbox. Je le modifie localement en le téléchargeant/rechargeant à chaque fois, mais ma collègue semble l'avoir modifié, depuis le début de nos échanges, avec "Word sur le web".
Quoi qu'il en soit, quand nous procédons par Suivi des modifications, tous les modifications – une fois acceptées ou refusées – laissent la place à ce que j'ai identifié comme des Contrôles de contenu (voir capture jointe)...
Ils sont présents par centaines. Ils peuvent être supprimés un par un par un clic-droit, > Supprimer le contrôle de contenu, mais je souhaite savoir s'il existe une méthode pour les supprimer tous d'une manière (semi-)automatisée. Éventuellement par une macro ? Je ne suis absolument pas connaisseur de la chose mais plein de bonne volonté.
Je vous remercie beaucoup par avance pour votre aide.
Cordialement,
JonasM.

[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
 
Option Explicit
 
Sub SuppressionDesContentControls()
 
Dim I As Integer
 
    With ActiveDocument
         If .ContentControls.Count > 0 Then
            For I = .ContentControls.Count To 1 Step -1
                Debug.Print .ContentControls(I).Range.Text ' Pour vérifier les champs concernés. Ctrl-G pour activer la fenêtre exécution.
                '.ContentControls(I).Delete  ' Pour rendre la ligne de code active, enlevez l'apostrophe en tête de ligne.
            Next I
         End If
    End With
 
End Sub