Codes de langues

Bonjour !

'Sa.Cha.' nous a écrit ...

Après avoir cherché en vain (si, si) dans la faq, je me tourne vers
cette docte compagnie à la recherche des codes nupériques pour les
différentes sortes de français.
Vous savez, ce nombre que l'on trouve généralement en première ligne des
dicos perso.

Le LCID ?

http://msdn.microsoft.com/library/en-us/script56/html/vsmsclcid.asp

Avec un 'tite macro on peut lister dans word toutes les LCID :
Public Sub ListeLangues()
Dim L As Language
For Each L In Application.Languages
ActiveDocument.Content.InsertAfter _
vbCr & L.ID & "----" & L.Name
Next L
End Sub

ça donne quelques pages ...

Si on ne veut que les LCID de français :
Public Sub LCIDFrançais()
Dim L As Language
For Each L In Application.Languages
If InStr(L.Name, "Français") <> 0 Then
ActiveDocument.Content.InsertAfter _
vbCr & L.ID & "----" & L.Name
End If
Next L
End Sub

ce qui donne chez moi (WD2003) :

1036----Français
2060----Français
3084----Canadien Français
4108----Français
5132----Français
6156----Français
7180----Français (Antilles)
8204----Français (Réunion)
9228----Français (Congo (RDC))
10252----Français (Sénégal)
11276----Français (Cameroun)
12300----Français (Côte-d'Ivoire)
13324----Français (Mali)
14348----Français (Maroc)
15372----Français (Haïti)

Les premiers sont France Belgique Canada Suisse Luxembourg
Je ne sais pas ce qu'est le 6156 ...

Anacoluthe
« Désormais pour apprendre le français,
il faudra savoir le français. »
- COLUCHE