Macro MS Word pour corriger l'erreur d'orthographe la plus proche

Question

J'essaie de créer une macro assez simple dans Word 2010 en utilisant Visual Basic. Tout ce qu'il doit faire est d'appuyer sur Alt + F7 pour sélectionner l'erreur d'orthographe la plus proche, puis appuyez sur Entrée pour choisir la première suggestion d'orthographe, puis appuyez sur Maj + F5 pour revenir au point d'édition précédent. J'ai essayé ceci:

SendKeys "%{F7}" 
SendKeys "~" 
SendKeys "+{F5}" 

mais le menu contextuel qui apparaît après% {F7} disparaît immédiatement de sorte qu'il ne reçoit pas la touche Entrée appuyez sur la touche. Au lieu de cela, le texte sélectionné est remplacé par un saut de ligne. Aucune suggestion? J'effectue beaucoup cette séquence de touches lors de la frappe, ce serait génial si je pouvais l'automatiser.

Answer 1

bien, j'ai trouvé un peu d'une solution qui fonctionne:

SendKeys "{F7}{TAB}{TAB}{TAB}{TAB}{TAB}~{ESCAPE}+{F5}+{F5}" 

mais la boîte de dialogue qui apparaît et itérer par des boutons est plus lent et plus maladroits que je voudrais. Toutes les meilleures idées seraient grandement appréciées.

Answer 2

Un peu tho trop tard:

With Selection 
    .MoveStartUntil Chr(9) + Chr(32), -100 
    .MoveEndUntil Chr(9) + Chr(32), 100 
    .Text = .Range.GetSpellingSuggestions.Item(1) 
End With