CorrectKeyboardSetting Property Example

This example displays a dialog box where the user can choose whether or not Word automatically transposes foreign words to their native alphabets.

x = MsgBox("Do you want Microsoft Word to tranpose " _
    & "foreign words to their native alphabet?", _
    vbYesNo
If x = vbYes Then
    Application.CheckLanguage = True
    AutoCorrect.CorrectKeyboardSetting = True
    MsgBox "Automatic keyboard correction enabled!"
End If