XDL
Utilisateur
Senior Boarder
|
Re:logiciel de reconnaissance vocale - 02-12-2007 Ã 11:27
Bonjour,
Dragon Naturaly Speaking, comme tous les logiciels, a quelques bugs et plus particulièrement des petits problèmes techniques au niveau de la typographie.
Sur certaines versions (avant la 8) il avait encore la typographie anglaise, soit pas d’espace avant les signes : etc.
Sur les versions suivantes un espace a été inséré avant, mais il n’est pas insécable et une phase se terminant sans rien avec un « : » sur la ligne suivante est du plus mauvais effet, et ce type de correction devient à la longue exaspérant.
Heureusement, WORD est livré avec VBA et son enregistreur de Macro !
Vous trouverez ci-dessous une macro palliant le défaut de Naturaly Speaking, qui a été écrite par l’enregistreur de Macro, simplifiée en enlevant les instructions inutiles et complétées par simple copier/coller pour les autres signes de ponctuation.
Le texte de la macro proposée ci-dessous n'est pas directement exploitable et vous devrez obligatoirement passer par l'enregistreur de macro, en appelant la fonction rechercher/ remplacer dans WORD, car l'espace insécable CTRL+MAJ+ESPACE, n'est pas reproduit par un copier coller de la macro à partir du site, ni possible dans l'éditeur de Visual Basic.
Si vous savez créer un bouton attaché au lancement de la macro, en un seul clic, rien n’est alors oublié, et tous les espaces insécables sont mis en place.
Sub DNS()
'
' DNS Macro
' Macro enregistrée le 25 juillet 2004 par XDL
' Déverminage de Naturaly Speaking
'1/ Espace insécable avant ":"
Selection.HomeKey Unit:=wdStory ' Retour au début document
Selection.Find.ClearFormatting ' Rend la recherche indépendante du formatage
Selection.Find.Replacement.ClearFormatting ' Rend le remplacement indépendant du formatage
With Selection.Find ' Début de recherche/remplacement
.Text = " :" ' Texte recherché : Espace + signe :
.Replacement.Text = " :" ' Texe de remplacement : Espace insécable + :
End With ' Espace insécable = CTRL+MAJ+ESPACE
Selection.Find.Execute Replace:=wdReplaceAll ' Remplacement de toutes les occurrences
'2/ Espace insécable avant "?"
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = " ?"
.Replacement.Text = " ?"
End With
Selection.Find.Execute Replace:=wdReplaceAll
'3/ Espace insécable avant ";"
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = " ;"
.Replacement.Text = " ;"
End With
Selection.Find.Execute Replace:=wdReplaceAll
'4 Espace insécable avant "!"
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = " !"
.Replacement.Text = " !"
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Que de temps gagné en ½ heure de développement !
Message édité par: XDL, à : 02-12-2007 à 12:04
Message édité par: XDL, à : 02-12-2007 à 12:07
|
Forum 
