traduction des boutons "word"

Bonjour à tous,
dans le message 163801c3fbb5$a42fbc30$a101280a@phx.gbl,

| Comment puis-je me procurer la traduction exacte des
| différents boutons Word, tes que Fichier, Edition, Ouvrir,
| Fermer, ..... pour développer un support informatique
| multilingue Français/Anglais/Espagnol?
| Merci par avance de votre réponse diligente,
| Bien cordialement.
| J-F. Adam

Dans Word, comme dans tous les programmes MS, tous les objets portent un
nom. Ils en portent même deux le nom qui est celui d'origine et le nom
local, en français pour une version française.
Voici une macro qui permet d'écrire ces noms ============= Public Sub ListerBarres()
On Error Resume Next
Dim Barre, Nom, NomLocal, NbBarres
Dim TypeControle, NbControles
NbBarres = Word.CommandBars.Count
Selection.InsertAfter "Il y TypeControle " & NbBarres & " barres de
menus."
Selection.Collapse wdCollapseEnd
Selection.TypeParagraph

For Each Barre In ActiveDocument.CommandBars
Nom = Barre.name
NomLocal = Barre.NameLocal
Selection.InsertAfter "Nom : " & Nom & ", nom local : " & NomLocal
Selection.Collapse wdCollapseEnd
Selection.TypeParagraph
TypeControle = Barre.Type
If Barre.Type = msoControlPopup Then
NbControles = Barre.Controls.Count
End If
CommandBars(Nom).Visible = True
CommandBars(Nom).Visible = False
Next Barre
End Sub
============= Pour l'utiliser, il suffit :
- de créer un document vierge
- d'ouvrir l'éditeur VBA
- d'ouvrir le module ThisDocument
- de copier le programme
- d'exécuter le programme
--
A+

G.M. MVP Word