Exécuté un document vocalement [Résolu]

Signaler
Messages postés
49
Date d'inscription
mercredi 29 juin 2005
Statut
Membre
Dernière intervention
21 novembre 2007
-
Messages postés
49
Date d'inscription
mercredi 29 juin 2005
Statut
Membre
Dernière intervention
21 novembre 2007
-
Bonjour,j'aimerais savoir si ça serais possible d'exécuté un document vocalement ....quand je parle de document c'est (Mes Documents.doc)

j'utilise la source http://www.vbfrance.com/codes/RECONNAISSANCE-VOCALE_26667.aspx
merci de votre aide

5 réponses

Messages postés
49
Date d'inscription
mercredi 29 juin 2005
Statut
Membre
Dernière intervention
21 novembre 2007

je pense que ça un rapport avec le "execute" mais je suis pas sûr si quelqu'un peut me confirmer ou est mon erreur merci de répondre.

merci de l'aide
Messages postés
49
Date d'inscription
mercredi 29 juin 2005
Statut
Membre
Dernière intervention
21 novembre 2007

j'ai trouvé merci quand même

tabstr(13) = "disk"
tabwtd(13) = "execute"
tabwf(13) = "C:\WINDOWS\EXPLORER.EXE /n,/e,C:"
Messages postés
49
Date d'inscription
mercredi 29 juin 2005
Statut
Membre
Dernière intervention
21 novembre 2007

j'utilise visual basic 6
Messages postés
443
Date d'inscription
mardi 27 mars 2007
Statut
Membre
Dernière intervention
1 mars 2011
2
Salut,
C quoi au juste "exécuté un document vocalement" ?
Je sais pour l'utiliser sous excel que "Fonction vocale" permet d'écouter le contenu des cellules
Dans word G pas trouvé d'équivalence

Cliquons "Réponse Acceptée" quand c'est le cas
 Partageons notre savoir et nos acquis
Messages postés
49
Date d'inscription
mercredi 29 juin 2005
Statut
Membre
Dernière intervention
21 novembre 2007

voici le code

code:

Dim tabstr(1 To 100) As String
Dim tabwtd(1 To 100) As String
Dim tabwf(1 To 100) As String
Dim recodata As String


Private Sub DirectSR1_PhraseFinish(ByVal flags As Long, ByVal beginhi As Long, ByVal beginlo As Long, ByVal endhi As Long, ByVal endlo As Long, ByVal Phrase As String, ByVal parsed As String, ByVal results As Long)
On Local Error Resume Next
For a = 1 To 100
If Trim$(Phrase) = tabstr(a) Then
Select Case tabwtd(a)
Case "execute"
Shell tabwf(a)
Case "msgbox"
MsgBox tabwf(a), vbInformation, "Reconnaissance vocale"
Case "exit"
MsgBox "Le programme a ete arrete", vbInformation, "Reconnaissance vocale"
End
End Select
End If
Next
End Sub


Private Sub Form_Load()
tabstr(1) = "notepad"
tabwtd(1) = "execute"
tabwf(1) = "notepad"
tabstr(2) = "author"
tabwtd(2) = "msgbox"
tabwf(2) = "Reconnaissance vocale est un programme de CoperSoft"
tabstr(3) = "web"
tabwtd(3) = "execute"
tabwf(3) = "C:\Program Files\Internet Explorer\Iexplore.exe"
tabstr(4) = "winword"
tabwtd(4) = "execute"
tabwf(4) = "C:\Program Files\Microsoft Office\Office\Winword.exe"
tabstr(5) = "excel"
tabwtd(5) = "execute"
tabwf(5) = "C:\Program Files\Microsoft Office\Office\Excel.exe"
tabstr(6) = "access"
tabwtd(6) = "execute"
tabwf(6) = "C:\Program Files\Microsoft Office\Office\Msaccess.exe"
tabstr(7) = "powerpoint"
tabwtd(7) = "execute"
tabwf(7) = "C:\Program Files\Microsoft Office\Office\Powerpnt.exe"
DirectSR1.Deactivate
DirectSR1.GrammarFromFile (App.Path + "/coms.cop")
DirectSR1.Activate
End Sub

fichier coms.cop

[Grammer]


Type=Cfg


[<Start>]
<Start>=notepad
<Start>=author
<Start>=web
<Start>=winword
<Start>=excel
<Start>=access
<Start>=powerpoint

voici mon problème  si je veut exécuté mon dossier vocalement comment je fais car j'ai essyé avec c:\documents and settings\julien\bureau\julien.doc et ça ne marche pas

exemple:

code:

tabstr(3) = "julien"
tabwtd(3) = "execute"
tabwf(3) = "c:\documents and settings\julien\bureau\julien.doc "

fichier coms.cop:

<Start>=julien