VBA Word : Supprimer toutes les info-bulles d’une même occurrence d’un mot

Bonjour à tous,

Après avoir présenté une macro permettant d’ajouter une info-bulle pour toutes les occurrences d’un mot, une seconde permettant de supprimer toutes les champs de type AUTOTEXTLIST, voici une troisième qui permettra de supprimer toutes les info-bulles d’une même occurrence d’un mot.

--------------------------------------------------------------------------------------------

Sub SupprimerInfobulle()
'
' Macro SupprimerInfobulle, créée par Mehdi HAMMADI le 16/03/2012
' Suite à la requête d'un Internaute sur le site Office Users
' Objectif rechercher toutes les occurrences d’un mot ayant une info-bulle et la supprimer

    Dim nbChamps As Integer
    Dim strMotARechercher As String
   
    strMotARechercher = InputBox("Saisissez le mot contenant l'info-bulle", "Mot à rechercher")
    nbChamps = ActiveDocument.Fields.Count
   
    For i = nbChamps To 1 Step -1
       
        If ActiveDocument.Fields(i).Result = strMotARechercher Then
            ActiveDocument.Fields(i).Select
            Selection.Text = strMotARechercher
        End If
   
    Next
    Selection.HomeKey Unit:=wdStory

End Sub

--------------------------------------------------------------------------------------------

Mots clés Technorati : Word 2010,VBA,Macro,AUTOTEXTLIST