Obtenir langue document [Résolu]

[husamus156]

Salut

j'aimerais savoir comment est-ce qu'on peut obtenir la langue du document word que je travail par macro en vba.

et aussi savoir comment est-ce qu'on peut mettre un tableaux de string en parametre

Code :

1
2
3
Private Function PassePasse(name As String, tabTemp as string (4) ) As Boolean
...
end function

Merci

[ouskel'n'or]

Code :

MsgBox Languages(Selection.LanguageID)

[ouskel'n'or]

Pour ta seconde question :

Envoyé par husamus156

savoir comment est-ce qu'on peut mettre un tableaux de string en parametre

Code :

Merci

Un exemple :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Sub PasserUnTableau()
Dim Result as string, LeTableau 'as variant
    LeTableau = Array("3", "5", "7", "12", "25", "36")
    Result = TheFonction(LeTableau)
    MsgBox Result
End Sub
 
Function TheFonction(LeTab) As String
    For i = 1 To UBound(LeTab)
        TheFonction = TheFonction & LeTab(i) & ";"
    Next
End Function

[husamus156]

merci bien pour l'aide