Sub SpellcheckWordUS()
' Paul Beverley - Version 25.08.11
' Spellcheck single word US

Selection.Words(1).Select
If Application.CheckSpelling(Selection, _
     MainDictionary:=Languages(wdEnglishUS).NameLocal) = False Then
  ActiveDocument.CheckSpelling
Else
  Selection.Start = Selection.End
  beep
End If
End Sub