Discussion :

[EMBU1956]

Merci à l'avance et mes excuses si le format n'est pas habituel...c'est ma première discussion...
Je me bute depuis des jours sur cette SUB

Sub SetVoiceByLanguage(ByVal voice As Object, ByVal languageID As String)
Dim voiceInfo As Object
Dim voiceToken As Object

For Each voiceInfo In voice.GetVoices
If voiceInfo.GetAttribute("Language") = languageID Then
Set voiceToken = voiceInfo
voice.voice = voiceToken
Exit Sub
End If
Next voiceInfo

voice.voice = voiceToken est toujours en erreur 438
J'ai essayé plusieurs versions avec l'aide de ChatGPT 3,5 sans résultat.

Cette SUB est appelé par:

SetVoiceByLanguage voice, "C0C" ' ID de langue pour le français (Canada)
voice.Speak ...

Je veux pouvoir changer de langue à l'intérieur d'un texte. La VBA cherche et trouve la langue (J'ai fait les tests)...mais je demeure incapable de la Sélectionner afin de l'utiliser avec voice.Speak

Merci pour votre aide

[E KERGRESSE]

Bonjour,

Je ne connais pas cette partie de Word, mais dans

voice.voice = voiceToken

voice ne peut pas être à la fois variable et propriété. Changez déjà le nom de la variable, vous verrez ensuite.

[EMBU1956]

Merci pour le suivi E KERGRESSE

Je suis d'accord avec toi, ça fait un peu redondant d'avoir voice.voice. C'était une suggestion de ChatGPT 3,5 qui semble ne pas être encore très fiable à ce niveau

J'ai essayé de plusieurs façon...sans résultat dont...
Voice.SelectVoice = voiceToken
J'ai aussi essayé ceci:

Dim selectedVoice As Object

For Each voice In voice.GetVoices
If voice.GetAttribute("Language") = LanguageID Then
Set selectedVoice = voice
Exit Sub
End If
Next voice

avec selectedVoice.Speak

La recherche s'effectue très bien dans le registre des Voix disponibles mais je n'arrive toujours pas à "Sélectionner" la voix qui correspond à ma recherche afin de l'utiliser pour lire mon document.

Merci encore
PierreD