AutoKeyboardSwitching Property Example

This example asks the user to choose whether or not to enable automatic keyboard switching for multilingual documents.

x = MsgBox("Enable automatic keyboard switching?", vbYesNo)
If x = vbYes Then
    Application.CheckLanguage = True
    Options.AutoKeyboardSwitching = True
    MsgBox "Automatic keyboard switching enabled!"
End If