Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel [HS?] [VBA] Nettoyage clic droit sous Word

[HS?] [VBA] Nettoyage clic droit sous Word

3 réponses
Avatar
Péhemme
Bonsoir à Toutes et à Tous,

Mille pardons d'être (limite ?)HS.
J'ai désinstallé Systran.
Ce logiciel m'a laissé des "traces" dans les menus contextuels (clic-droit)
de Excel et Word.
J'ai nettoyé Excel par cette petite macro :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars("Cell").Reset
End Sub

Que dois-je faire pour Word ?
J'ai essayé :

Private Sub Document_Close()
On Error Resume Next
'Application.CommandBars("Cell").Reset
Application.CommandBars("Text").Reset
End Sub

Bien sûr... cela ne fonctionne pas.
Je ne serai pas surpris que l'un d'entre-vous connaisse le nom VBA de ce
"clic-droit" sous Word.
Merci d'avance de votre aide.

Michel
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jacquouille
Salut Péhemme
Je te suggère d'aller sur le forum Word.
Tu demandes GEO de la Douce Tourraine.
Jadis, il venait ici de temsp à autres, mais cela fait belle lurette.
Bonne chance

--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."

Jacquouille.

"Péhemme" a écrit dans le message de news:

Bonsoir à Toutes et à Tous,

Mille pardons d'être (limite ?)HS.
J'ai désinstallé Systran.
Ce logiciel m'a laissé des "traces" dans les menus contextuels
(clic-droit) de Excel et Word.
J'ai nettoyé Excel par cette petite macro :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars("Cell").Reset
End Sub

Que dois-je faire pour Word ?
J'ai essayé :

Private Sub Document_Close()
On Error Resume Next
'Application.CommandBars("Cell").Reset
Application.CommandBars("Text").Reset
End Sub

Bien sûr... cela ne fonctionne pas.
Je ne serai pas surpris que l'un d'entre-vous connaisse le nom VBA de ce
"clic-droit" sous Word.
Merci d'avance de votre aide.

Michel




Avatar
FFO
Salut à toi

Sur le net j'ai trouvé ce code pour une réinitialisation générale :

For x = 1 To Application.CommandBars.Count
With Application.CommandBars(x)
.Reset
.Enabled = True
End With
Next x

Essaies le c'est peut être ta solution

Dis moi !!!!!
Avatar
Péhemme
Mon cher FFO,

T'es un mec !
Ça, je le savais déjà.
Cela fonctionne parfaitement.
Merci
Michel

"FFO" a écrit dans le message de
news:
Salut à toi

Sur le net j'ai trouvé ce code pour une réinitialisation générale :

For x = 1 To Application.CommandBars.Count
With Application.CommandBars(x)
.Reset
.Enabled = True
End With
Next x

Essaies le c'est peut être ta solution

Dis moi !!!!!